Изменения в режиме работы на уроке информатики в связи с утверждением нового "Санітарного регламенту для закладів загальної середньої освіти": чередование компьютерной и безмашинной части уроков, индивидуальная работа с ПК.
Вложенные ветвления
procedure TForm1.Button2Click(Sender: TObject);
var x,y:integer;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
if x=y then ShowMessage('Числа равны ')
else
if x<y then ShowMessage('min ' + IntToStr(x))
else ShowMessage('min ' +IntToStr(y));
end;
end.
var x,y:integer;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
if x=y then ShowMessage('Числа равны ')
else
if x<y then ShowMessage('min ' + IntToStr(x))
else ShowMessage('min ' +IntToStr(y));
end;
end.
Работаем в классе:
- Выполнить задание 9 стр.206 в среде программирования Lazarus
- Выполнить задание в безмашинном варианте
Немає коментарів:
Дописати коментар