Напишите процедуру, которая вычисляла бы периметр и площадь квадрата

@Кан95 · Регистрация: 08.04.2019

Author24 — интернет-сервис помощи студентам

Помощь нужна мужики! "Напишите процедуру, аналогичную процедуре Pr, которая вычисляла бы периметр и площадь квадрата со стороной r и а также объем куба с тем же самым ребром r." В паскале нужно мужики

@ZX Spectrum-128 · 18.04.2019, 09:38

4.Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п.

https://www.cyberforum.ru/announcement.php?a=3

Комментарий модератора

Кан95, вы нарушаете Правила! Предупреждение!

Добавлено через 1 минуту
Вычислить периметр квадрата
Составить программу расчёта объёма куба и площадии его боковой поверхности

@Cyborg Drone · 20.04.2019, 20:21

Сообщение от Кан95

Помощь нужна мужики

А от баб помощь не принимаете? А то как-то так получилось, что на этом форуме и мужики есть, и бабы.

Сообщение от Кан95

Напишите процедуру, аналогичную процедуре Pr

А где процедура Pr, аналогично которой нужно написать?

@Кан95 · 24.04.2019, 11:41 **[ТС]**

Pascal

Program ProcUse
Uses CRT;
Procedure Pr (R,L,S:real);
begin
L:=2*PI*R;
S:=PI*sqr (R);
end;
var rad,len, area:real;
begin
write ('  ');readln (rad);
Pr (rad,len,area);
writeln ('   'l, len);
writeln ('   '),area):
end.

Аналогично этой нужно сделать

@Cyborg Drone · 25.04.2019, 07:41

Вы привели нерабочую программу. Она содержит ошибки: четыре синтаксических и одну алгоритмическую. Будьте внимательнее. Также в программе отсутствует какой-либо интерфейс. Код не отформатирован.

Рабочая программа, наподобие Вашего неудачного примера, и в его же стиле:

Pascal

Program ProcUse;
Uses CRT;
Procedure Pr (R:real;var P,S,V:real);
begin
P:=4*R;
S:=R*R;
V:=R*R*R;
end;
var r,per,area,vol:real;
begin
write ('  ');readln (r);
Pr (r,per,area,vol);
writeln ('   ', per);
writeln ('   ',area);
writeln ('   ', vol);
end.

То же самое, но оформленное по-человечески, и с простейшим интерфейсом:

Pascal

Procedure Pr(R: real; var P, S, V: real);
begin
  P := 4 * R;
  S := R * R;
  V := R * S
end;
 
var
  r, per, area, vol: real;
 
begin
  write('R = ');
  readln(r);
  Pr(r, per, area, vol);
  writeln('P = ', per);
  writeln('S = ', area);
  writeln('V = ', vol)
end.

@Кан95 · 25.04.2019, 12:10 **[ТС]**

Спасибо большое

@Кан95 0 / 0 / 0 Регистрация: 08.04.2019 Сообщений: 64
		1
	Напишите процедуру, которая вычисляла бы периметр и площадь квадрата 18.04.2019, 09:35. Показов 5715. Ответов 5 Метки нет (Все метки) Помощь нужна мужики! "Напишите процедуру, аналогичную процедуре Pr, которая вычисляла бы периметр и площадь квадрата со стороной r и а также объем куба с тем же самым ребром r." В паскале нужно мужики 0

@Cyborg Drone Модератор 10063 / 5405 / 3353 Регистрация: 17.08.2012 Сообщений: 16,541
	20.04.2019, 20:21	3
	Сообщение от Кан95 Помощь нужна мужики А от баб помощь не принимаете? А то как-то так получилось, что на этом форуме и мужики есть, и бабы. Сообщение от Кан95 Напишите процедуру, аналогичную процедуре Pr А где процедура Pr, аналогично которой нужно написать? 0

@Кан95 0 / 0 / 0 Регистрация: 08.04.2019 Сообщений: 64
	25.04.2019, 12:10 [ТС]	6
	Спасибо большое 0

Напишите процедуру, которая вычисляла бы периметр и площадь квадрата

Решение