Процедуры и функции

@Весельчак111 · Регистрация: 15.11.2013

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

Помогите пожалуйста, задача вроде не очень трудная, для знающих людей, буду очень благодарен. Пользователь вводит значения высоты правильной призмы и стороны квадрата, лежащего в ее основании.
Составить функцию, которая получает введенные значения в качестве параметров и возвращает значение площади полной поверхности данного тела. Решить эту же задачу, используя процедуру.

@ildwine · 25.11.2013, 09:30

Pascal

function s(a, h : integer) : integer;
begin
  s := 2 * sqr(a) + 4 * a * h
end;
 
var
  a, h, z : integer;
begin  
  write('введите сторну квадрата в основании и высоту: ');
  readln(a, h);
  z := s(a, h);
  writeln('площадь полной поверхности: ', z);
  readln
end.

Добавлено через 58 секунд

Pascal

procedure s(a, h : integer; var res : integer);
begin
  res := 2 * sqr(a) + 4 * a * h
end;
 
var
  a, h, z : integer;
begin  
  write('введите сторну квадрата в основании и высоту: ');
  readln(a, h);
  s(a, h, z);
  writeln('площадь полной поверхности: ', z);
  readln
end.

@Весельчак111 0 / 0 / 0 Регистрация: 15.11.2013 Сообщений: 10
		1
	Процедуры и функции 25.11.2013, 09:10. Показов 1264. Ответов 1 Метки нет (Все метки) Помогите пожалуйста, задача вроде не очень трудная, для знающих людей, буду очень благодарен. Пользователь вводит значения высоты правильной призмы и стороны квадрата, лежащего в ее основании. Составить функцию, которая получает введенные значения в качестве параметров и возвращает значение площади полной поверхности данного тела. Решить эту же задачу, используя процедуру. 0

Опции темы

Процедуры и функции

Решение