Question

Написать программу нахождения периметра параллелограмма по известным сторонам c и h (c и h — целые числа, вводимые с клавиатуры). 1)program perimetr; var begin write('c='); readln(c); write('h='); readln(h); p:=2*(c+h); writeln('p=',p); readln; end. 2)program perimetr; var c,h,p:integer; begin write('c='); readln(c); write('h='); readln(h); writeln('p=',p); readln; end. 3)program perimetr; var c,h,p:integer; begin write('c='); readln(c); write('h='); readln(h); p:=2*(c+h); writeln('p=',p); readln; end.

Answer 1

В первом варианте решения не объявлены используемые переменные, во втором варианте пропущено собственно вычисление периметра (инициализация переменной p), так что верным является только третий вариант.

Answer 2

Ваша программа нахождения периметра параллелограмма имеет несколько ошибок. Вот исправленный вариант программы:

program perimetr;
var
  c, h, p: integer;
begin
  write('c=');
  readln(c);
  write('h=');
  readln(h);
  p := 2 * (c + h);
  writeln('p=', p);
  readln;
end.

Описание программы

Программа начинается с объявления переменных `c`, `h` и `p`, которые представляют стороны и периметр параллелограмма соответственно.

Затем программа запрашивает у пользователя ввод значения стороны `c` с помощью функции `readln`, и сохраняет его в переменную `c`. Аналогично, программа запрашивает у пользователя ввод значения стороны `h` и сохраняет его в переменную `h`.

Следующая строка кода вычисляет значение периметра `p` параллелограмма, используя формулу `p = 2*(c + h)`.

Затем программа выводит значение периметра `p` с помощью функции `writeln`. И наконец, программа ожидает ввода пользователя с помощью функции `readln`, чтобы окно консоли не закрылось сразу.

Исправления

В вашем изначальном коде были пропущены объявления типов переменных `c`, `h` и `p`. Чтобы исправить это, я добавил объявления типов перед объявлениями переменных.

var
  c, h, p: integer;

Также, во втором варианте программы, вы попытались вывести значение переменной `p` до того, как она была вычислена. Это вызвало бы неправильный вывод в консоли. В исправленной программе значение переменной `p` вычисляется перед выводом.

p := 2 * (c + h);
writeln('p=', p);