Алгоритми з розгалуженнями. Команда IF

writeln(‘корені є’:x1: 6:2, x2:6:2);

end.

end.

Удосконалюємо програму зменшивши кількість операцій. Внаслідок цього у внутрішніх операторних дужках запишемо так:

d:=sgrt(d);

a:=2*a;

x1:=(-b+d)/a;

x2:=(-b-d)/a;

Виконуємо трасування програми для деяких вхідних даних, щоб впевнитися у правильності програми.

3.Увести ціле число. Вивести повідомлення чи число парне, чи непарне.

(учень біля дошки)

PROGRAM chyslo;

Var a:integer;

begin writeln(‘Введіть ціле число:’);

readln (a);

if 2*round(a/2)=a then writeln (‘число парне’) else writeln (‘число непарне’);

end.

Як записати умову, використовуючи операції mod; div?

(самостійно)

4.Скласти програму, яка дає довідку про назву столиці (st) та кількість населення (nas, в мільйонах) деякої країни (kr) з такого переліку: Угорщина, Італія, Греція, Туреччина, Єгипет, Бельгія, Росія.

PROGRAM Countries;

Var kr, st:string; nas:integer;

begin

write(‘Уведіть назву країни’); readln(kr);

if kr=’Угорщина’ then begin st:=’Будапешт’ ;nas:=11 end;if kr=’Італія’ then begin st:=’Рим’ ;nas:=60 end;