Редактирование и отладка программ с помощью Pascal (стр. 5 из 12)

end.

(Вводим значение 56)

Ответ: получаем абсол. величину.

Задание11. Даны 2 целых числа, определить какое из них меньше

Program as; Блок-схема

Uses crt;

Var a,b:integer;

Min:integer;

Begin clrscr;

Writeln(‘Введи 2 числа’);

Readln(a,b);

If a<b then min:=a else min:=b;

Writeln(‘Минимальное=’,min);

Readln;

End.

(Вводим значение 5,6) Ответ: 5

Задание12. Даны 2 числа. Если кв.корень из второго числа меньше первого числа, то увеличить второе число в 5 раз

program as; Блок-схема

uses crt;

var a,b,d,c:real;

begin clrscr;

writeln(‘Введи 2 числа’);

readln(a,b);

d:=sqrt(a);

c:=sqrt(b);

if (d<c) then

writeln(‘увеличить 2 число в 5 раз’,c*c*c*c*c:5:2)

else writeln(‘нет решения’);

readln;

end.

Ответ: нет решения

Задание13. Дано число. Если это число чётное, то /2 если нет, то *2

Program as; Блок-схема

Var a: integer;

Begin clrscr;

Writeln(‘Введи число’);

Readln (a);

If a mod 2=0 then writeln(a/2)

else writeln(a*2);

Readln;

End.

(Вводим значение 5)

Ответ:10

Задание14.Даны 4 вещественных числа. Найти сумму тех чисел, которые больше 5

Program as; Блок-схема

Uses crt;

Var a,b,c,d,k,z,x,v:integer;

Begin clrscr;

Writeln(‘Введи 4 числа’);

Readln(a,b,c,d);

If a>5 then k:=a;

If b>5 then z:=b;

If c>5 then x:=c;

If d>5 then v:=d;

Writeln(‘Общая сумма=’,k+z+x+v);

End.

(Вводим значение 6,6,6,6)

Ответ: 24

Задание15.Даны 3 числа a,b,c. Найти максимальное

Program as; Блок-схема

Uses crt;

Var a,b,c:integer;

Max,max1:integer;

Begin clrscr;

Writeln(‘Введи 3 числа’);

Readln(a,b,c);

If a>b then max:=a else max:=b;

If max>c then max1:=max else max1:=c;

Writeln(‘Максимально=’,max1);

Readln;

End.

(Вводим значение 5,6,7)

Ответ: 7

Циклическая программа

Задание 1.Напечатать “столбиком”: все целые числа от 20 до 35

Program as; Блок-схема

Uses crt;

Var a:integer;

Begin clrscr;

For a:=20 to 35 do writeln(a);

Readln;

end.

Задание 2.Напечатать “столбиком”: квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры, причем b>10)