Записать в тетрадь Тема урока: Программирование вложенных условий Работа с презентацией. Записать в тетрадь(помечено в презентации) https://www.onlinegdb.com/ (онлайн редактор) ввести пример1,пример2
function Summa(a,b:integer):string; var a1,b1:integer; begin //находим сумму первого числа a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше if a1>b1 then Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1) else Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1); end;
procedure TForm1.Button1Click(Sender: TObject); begin //Выполнение и вывод результата функции через нажатие кнопки Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text)); end;
Program ; var min_e, max_e, count, i, j, otn: integer; a: array[1..5, 1..7] of integer; srednee: real; begin for i := 1 to 5 do begin writeln; for j := 1 to 7 do a[i, j] := Random(81); end; max_e := 1; min_e := 81; srednee := 0; for i := 1 to 5 do for j := 1 to 7 do begin if a[i, j] < min_e then min_e := a[i, j]; if a[i, j] > max_e then max_e := a[i, j]; if a[i, j] mod 5 = 0 then begin srednee := srednee + a[i, j]; count := count + 1; end; end; otn := max_e div min_e; srednee := srednee / count; for i := 1 to 5 do begin writeln; for j := 1 to 7 do write(a[i, j]:3); end; writeln; writeln(min_e, ' ', max_e, ' ', otn, ' ', srednee);end.
function Summa(a,b:integer):string;
var a1,b1:integer;
begin //находим сумму первого числа
a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа
b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше
if a1>b1 then
Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1)
else
Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin //Выполнение и вывод результата функции через нажатие кнопки
Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;