А л г о р и т м

алг максимум двух

арг а, в: вещ

рез max: вещ

нач

ввод а, в

если а > в

то max: = a

иначе max: = в

все

вывод max

кон

П Р О Г Р А М М А

program maxsimum;

var a, b, m: real;

begin

writeln('Максимум двух чисел');

write ('Первое число? ');

readln(a);

write ('Второе число? ');

readln(b);

if a> =b then m: =a else m: =b;

writeln('a=', a: 2: 0, ' b =', b: 2: 0);

writeln('max =', m: 2: 0);

end.

ПРИМЕР 2: Найти корни квадратного уравнения

А Л Г О Р И Т М

алг квадратное уравнение

арг а, в, c: вещ

рез x1, x2: вещ

нач

ввод а, в, c

если а = 0

то вывод " Уравнение не квадратное"

D: =b - 4*a*c

если D< 0

то Вывод " Нет решений"

иначе х1: =(-b+D)/(2*a)

х2: =(-b+D)/(2*a)

вывод х1, х2

все

все

кон

П Р О Г Р А М М А

program uravnen;

m label;

var a, b, c, x, x1, x2, d: real;

begin

write('Введите коэффициенты? '); readln(a);

if a=0 then begin writeln('Уравнение не квадратное');

goto m

end;

readln(b);

readln(c);

writeln('a= ', a, ' b =', b, 'c=', c);

d: =b*b-4*a*c;

if d< 0 then writeln('Нет решений')

else begin

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

x2: =(-b-sqrt(d))/(2*a);

write('Решение: ');

wtiteln('x1= ', x1, 'x2= ', x2);

end

m: end.

ПРИМЕР 3: Определить название столицы по названию

государства.

program capital;

var land, cap: string[20];

num: 0..8;

begin

writeln('Определяем название столицы');

writeln('Введите название страны');

readln(land);

num: =0; {номер страны в списке}

if land='Австрия' then num: =1; if land='Болгария'then num: =2;

if land='Греция' then num: =3; if land='Италия' then num: =4;

if land='Норвегия' then num: =5; if land='Франция' then num: =6;

if land='США' then num: =7; if land='Россия' then num: =8;

case num of {определение столицы по номеру страны в списке }

1: cap: ='Вена'; 2: cap: ='София';

3: cap: ='Афины'; 4: cap: ='Рим';

5: cap: ='Осло'; 6: cap: ='Париж';

7: cap: ='Вашингтон'; 8: cap: ='Москва';

0: cap: ='Такой страны не знаю'

end;

writeln(cap);

readln;

end.