29.01 Оператор ветвления
Проверка домашней работы
Определите, что делают следующие программы, и дополните команду вывода.
1. var x: integer;
a: boolean;
begin
write(ꞌВведите x =ꞌ);
read(x);
a := x mod 10 = 0;
write(ꞌЧисло ... — ꞌ,a);
end.
- var x: integer;
a: boolean;
begin
write(ꞌВведите x =ꞌ);
read(x);
a := (x * 10) and (x + 100);
write(ꞌЧисло ... — ꞌ,a);
end.
Светофор Пример 16.2 uses GraphABC; var m:integer; begin Rectangle(250,50,390,250); SetBrushColor(clBlack); Circle(320,100,30); Circle(320,200,30); SetBrushColor(clWhite); writeln('Введите время'); read(m); writeln(m); if m mod 2 = 1 then FloodFill(320,100,clRed) else FloodFill(320,200,clGreen); end.
Чей дом ближе
Var x1, y1, x2, y2, r_T, r_K: real;
begin
writeln('Танин дом'); read(x1,y1);
writeln('Катин дом'); read(x2,y2);
r_T:= sqrt(x1*x1+y1*y1);
r_K := sqrt(x2*x2+y2*y2);
if r_T + r_K then
writeln('Танин дом ближе')
else
writeln('Катин дом ближе');
end.