Практическая работа «Работа с готовыми программами на языке Паскаль»

Практическая работа № 8

«Работа с готовыми программами на Практика языке Паскаль».

Вариант 1

1)      Исправь и набери программу так, чтобы она выполнялась.

Условие задачи: Ввести с клавиатуры 2 числа – длины сторон прямоугольника. Посчитать и вывести на экран периметр прямоугольника.

Программа:

Program Perimeter;

Var a, P: real;

BEGIN

Writeln (‘Введите длины сторон прямоугольника’)

Readln (a,b);

P=(a+b)*2;

Writeln(Периметр=, P);

END

2)      Написать программу

Ввести с клавиатуры 2 числа – длины сторон прямоугольника. Посчитать и вывести на экран площадь прямоугольника.

Практическая работа № 8

«Работа с готовыми программами на Практика языке Паскаль».

Вариант 2

1)      Исправь и набери программу так, чтобы она выполнялась.

Условие задачи: Ввести с клавиатуры 2 числа – длины сторон прямоугольника. Посчитать и вывести на экран периметр прямоугольника.

Программа:

Program Perimeter;

Var b, P: real;

BEGIN

Writeln (Введите длины сторон прямоугольника);

Readln(a,b);

P:=(a+b)/2;

Writeln(‘Периметр=’, P)

END.

2)      Написать программу

Ввести с клавиатуры 3 числа – длины сторон треугольника. Посчитать и вывести на экран его периметр.

Практическая работа № 8

«Работа с готовыми программами на Практика языке Паскаль».

Вариант 3

1)      Исправь и набери программу так, чтобы она выполнялась.

Условие задачи: Ввести с клавиатуры 2 числа – длины сторон прямоугольника. Посчитать и вывести на экран периметр прямоугольника.

Программа:

Program Perimeter;

Var a, b: real;

BEGIN

Writeln (Введите длины сторон прямоугольника);

Readln(a,b);

P:(a+b)/2;

Writeln(‘Периметр=’, P);

END.

2)      Написать программу

Ввести с клавиатуры 2 числа – длины сторон прямоугольника. Посчитать и вывести на экран площадь прямоугольника.