ВАРИАНТ № 1. Найди ошибку.
1) Наберите программу, и измените ее так, чтобы она
выполнилась.
Условие задачи: Ввести с клавиатуры 2 числа – длины сторон
прямоугольника. Посчитать и вывести на экран периметр прямоугольника.
Программа:
Program perimeter;
Var a, P: integer;
BEGIN
writeln (Введите длины сторон
прямоугольника);
readln (a, b);
P := (a b) * 2;
writeln (‘Периметр = ’, P );
END.
2) Реши самостоятельно.
Ввести с клавиатуры 2 числа –
длин сторон прямоугольника. Посчитать и вывести на экран площадь
прямоугольника.
ВАРИАНТ № 2. Найди ошибку.
1) Наберите программу, и измените ее так, чтобы она
выполнилась.
Условие задачи: Ввести с клавиатуры 2 числа – длины сторон
прямоугольника. Посчитать и вывести на экран периметр прямоугольника.
Программа:
Program perimeter;
Var b, P: integer;
BEGIN
writeln (‘Введите длины сторон
прямоугольника’);
readln (a, b);
P := (a b) * 2;
writeln (Периметр = , P );
END.
2) Реши самостоятельно.
Ввести с клавиатуры 3 числа –
длин сторон треугольника. Посчитать и вывести на экран его периметр.
ВАРИАНТ № 3. Найди ошибку.
1) Наберите программу, и измените ее так, чтобы она
выполнилась.
Условие задачи: Ввести с клавиатуры 2 числа – длины сторон
прямоугольника. Посчитать и вывести на экран периметр прямоугольника.
Программа:
Program perimeter;
Var a, P: integer;
BEGIN
writeln (‘Введите длины сторон
прямоугольника’);
readln (a, b);
P := (a + b) 2;
writeln (Периметр = , P );
END.
2) Реши самостоятельно.
Ввести с клавиатуры длины
сторон квадрата. Посчитать и вывести на экран его площадь.
ВАРИАНТ № 4. Найди ошибку.
1) Наберите программу, и измените ее так, чтобы она
выполнилась.
Условие задачи: Ввести с клавиатуры 2 числа – длины сторон
прямоугольника. Посчитать и вывести на экран периметр прямоугольника.
Программа:
Program perimeter;
Var a, b, : integer;
BEGIN
writeln (Введите длины сторон
прямоугольника);
readln (a, b);
P = (a + b) * 2;
writeln (‘Периметр = ’, P );
END.
2) Реши самостоятельно.
Ввести с клавиатуры 2 числа –
длин сторон прямоугольника. Посчитать и вывести на экран площадь
прямоугольника.
ВАРИАНТ № 5. Найди ошибку.
1) Наберите программу, и измените ее так, чтобы она
выполнилась.
Условие задачи: Ввести с клавиатуры 2 числа – длины сторон
прямоугольника. Посчитать и вывести на экран периметр прямоугольника.
Программа:
Program perimeter;
Var a, , P: integer;
BEGIN
writeln (‘Введите длины сторон
прямоугольника’);
readln (a, b);
P : (a + b) * 2;
writeln (Периметр = , P );
END.
2) Реши самостоятельно.
Ввести с клавиатуры длины
сторон квадрата. Посчитать и вывести на экран его периметр.
ВАРИАНТ № 6. Найди ошибку.
1) Наберите программу, и измените ее так, чтобы она
выполнилась.
Условие задачи: Ввести с клавиатуры 2 числа – длины сторон
прямоугольника. Посчитать и вывести на экран периметр прямоугольника.
Программа:
Program perimeter;
Var a, b : integer;
BEGIN
writeln (Введите длины сторон
прямоугольника);
readln (a, b);
P = (a + b) *2;
writeln (‘Периметр = ’, P );
END.
2) Реши самостоятельно.
Ввести с клавиатуры 3 числа –
длин сторон треугольника. Посчитать и вывести на экран его периметр. |