Программку в Pascal ABC1. Дано целое число А. Если значение А
Программку в Pascal ABC
1. Дано целое число А. Если значение А gt; 0, то нужно прирастить его на единицу. Напи-сать программку для решения этой задачки. Программа должна иметь дружественный интерфейс. Про-тестировать программку для A=5, A=-4, A=0.
2. Дано целое число А. Если значение А lt; 0, то нужно удвоить его. Написать программку для решения этой задачки. Программка обязана иметь дружеский интерфейс. Протестировать про-грамму для A=6, A=-10, A=0.
3. Дано целое число А. Если значение А lt;gt; 0, то нужно уменьшить его на 4. Написать программку для решения этой задачки. Программка обязана иметь дружеский интерфейс. Протести-ровать программку для A=2, A=-1, A=0.
4. Дано целое число А. Если значение А gt; 0, то нужно прирастить его на единицу, по другому уменьшить на 1. Написать программку для решения этой задачки. Программка обязана иметь друже-ственный интерфейс. Протестировать программку для A=3, A=0, A=-12.
5. Дано целое число А. Если значение А = 0, то нужно увеличить его на 3, по другому при-своить А значение одинаковое 0. Написать программку для решения этой задачки. Программка обязана иметь дружеский интерфейс. Протестировать программку для A=0, A=-1, A=8.
6. Даны два реальных числа X и Y. Если Xgt;Y, то вычислить произведение этих чисел, иначе их сумму. Программа должна иметь дружеский интерфейс. Протестировать программку на трёх разных тестах (Xgt;Y, X=Y и X
var
a: integer;
begin
1
readln(a);
if a gt; 0 then a := a + 1;
writeln(a);
2
readln(a);
if a lt; 0 then a := a * 2;
writeln(a);
3
readln(a);
if a lt;gt; 0 then a := a - 4;
writeln(a);
4
readln(a);
if a gt; 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 gt; y then x := x * y
else x := x + y;
writeln(x);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.