Вахарловский
4 год назад
Программу в Pascal ABC1. Дано целое число А. Если значение А > 0, то необходимо увеличить егона единицу. Напи-сать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Про-тестировать программу для A=5, A=-4, A=0.2. Дано целое число А. Если значение А < 0, то необходимо удвоить его. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать про-грамму для A=6, A=-10, A=0.3. Дано целое число А. Если значение А <> 0, то необходимо уменьшить его на 4. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протести-ровать программу для A=2, A=-1, A=0.4. Дано целое число А. Если значение А > 0, то необходимо увеличить егона единицу, иначе уменьшить на 1. Написать программу для решения этой задачи. Программа должна иметь друже-ственный интерфейс. Протестировать программу для A=3, A=0, A=-12.5. Дано целое число А. Если значение А = 0, то необходимо увеличить егона 3, иначе при-своить А значение равное 0. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать программу для A=0, A=-1, A=8.6.Даны два действительных числа X и Y. Если X>Y, то вычислить произведение этих чисел, иначе их сумму. Программа должна иметь дружественный интерфейс. Протестировать программу на трёх различных тестах (X>Y, X=Y и X
ОТВЕТЫ
Kurzmann Brit
Oct 24, 2020
var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.
75
Смежные вопросы:
