[2Ric]

Тема: Цикл с параметром.
1.Написать программу, которая выводит на экран таблицу
стоимости, например, яблок в диапазоне от 100 г до 1 кг с шагом 100.
2.Написать программу, которая выводит двоичное представление введенного с клавиатуры десятичного целого числа в диапазоне от 0 до 255.
3.Написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое.
4.Написать программу, которая вводит с клавиатуры последовательность из пяти дробных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности.
5.Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое.
6.Написать программу, которая генерирует три последова¬тельности из десяти случайных чисел в диапазоне от 1 до 10, выводит каждую последовательность на экран и вычисляет среднее арифметическое каждой последовательности. Рекомендуемый вид экрана во время работы программы приведен ниже.
*** Случайные числа ***
6 10 4 2 5 8 1 7 7 3 сред.арифм. 5.30
10 3 6 1 10 1 3 8 7 6 сред.арифм. 5.50
5 2 2 5 4 2 2 1 6 10 сред.арифм. 3.90

2.Тема: Операторы цикла итерационного типа.
1. Найти сумму цифр заданного натурального числа n.
2. Дано натуральное число верно ли, что в данном числе сумма цифр больше b, a само число делится на b (b вводить с клавиатуры).
3. Вводится последовательность ненулевых чисел, 0-конец последовательности. Подсчитать, сколько в ней отрицательных чисел, и сумму положительных чисел.
4. Дано не менее трех различных натуральных чисел, за которыми следует 0. Определить три наибольших числа среди них.
5. Дано натуральное число n, найти количество цифр данного числа, больших a (a вводится с клавиатуры);
6. Найти сумму цифр заданного натурального числа n.
7. Дано натуральное число, сколько раз первая цифра встречается в данном числе;
8. Дано натуральное число, верно ли, что данное число начинается на a и заканчивается на b (цифры а и b вводятся с клавиатуры).
9. Дано натуральное число, найти количество четных цифр числа;
10. Дано натуральное число, сколько раз данная цифра а встречается в данном числе (а вводить с клавиатуры).
11. Дано натуральное число, верно ли, что в данном числе сумма цифр больше b, a само число делится на b (b вводить с клавиатуры).
12. Дано натуральное число, найти произведение цифр числа;
13. Дано натуральное число, верно ли, что в данном числе нет данной цифры а (цифру а вводить с клавиатуры).

[Страдалецъ]

А вы где обучаетесь и по какой специализации?

[chainik]

Здесь простенькая прога переводящая числа по любому основанию. Дарю безвозмездно (то есть даром)

[chainik]

Остальное решать лень.
Лето, жара........

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    StaticText1: TStaticText;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function CalkSum(z:longword):integer;
begin
Result:=0;
    while z >=1 do
        begin
        Result:=Result + z mod 10;
        z:=z div 10
        end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
    try
    StaticText1.Caption:=Format('Сумма цифр  %d',[CalkSum(StrToInt(Edit1.Text))])
    except
    ShowMessage('Неверный ввод')
    end;
end;

end.

Админ: Пользуемся тегами для оформления кода!

[marales]

1.zip с теми же яблоками

[marales]

Массив из 10 случайных чисел,+ подсчёт среднеарифметического значения
5.zip