Переделать под процедуру

@SerjoF · Регистрация: 04.06.2014

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

Всем привет. Нужна помощь с переделкой задачи под процедуру...
Вот сам код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var 
 a,b,c,h: real;
 a1,b1,c1,h1: real;
 P,S: real;
 P1,S1: real;
 SP,SS: real;
 SumP,SumS: real;
Begin
 write('Введите первую пару данных(a,b,h) = ');
 readln(a,b,h);
 write('Введите вторую пару данных(a1,b1,h1) = ');
 readln(a1,b1,h1);
 c:=h/0.87;
 c1:=h1/0.87;
 P:=a+b+2*c;
 P1:=a1+b1+2*c1;
 S:=(a+b/2)*h;
 S1:=(a1+b1/2)*h1;
 SP:=P+P1;
 SS:=S+S1;
 SumP:=P+P1;
 SumS:=S+S1;
 writeln(' Сумма прощадей = ',SumS:5:1,' Сумма периметров = ',SumP:5:1);
 writeln(' Первая пощадь = ',S:5:1,' Вторая площадь = ',S1:5:1);
 writeln(' Первый периметр = ',P:5:1,' Второй периметр = ',P1:5:1);
End.

Заранее большое спасибо.

Добавлено через 7 минут
PS:Если можно переделайте с теми же переменными что и у меня, просто хочется разобраться с процедурами на данном примере.

@ighor · 24.11.2014, 02:22

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var
  a2, b2, c2, h2: real;
  a1, b1, c1, h1: real;
  k, m: real;
  y, r, t, u: real;
  SumP, SumS: real;
 
procedure S1(var c, a, b, h, k: real );
begin
  c := h / 0.87;
  k := (a + b / 2) * h;
end;
 
procedure P1(var c, a, b, h, m: real ) ;
begin
  c := h / 0.87;
  m := a + b + 2 * c;
end;
 
begin
  write('Введите первую пару данных(a1,b1,h1) = ');
  readln(a1, b2, h2);
  write('Введите вторую пару данных(a2,b2,h2) = ');
  readln(a1, b1, h1);
  S1(a1, b1, c1, h1, y);  
  S1(a2, b2, c2, h2, u);
  P1(a1, b1, c1, h1, r);  
  P1(a2, b2, c2, h2, t); 
  sumS := y + u;
  sump := r + t;
  writeln(' Первый периметр = ', r);  writeln(' Первая пощадь = ', y);
  writeln(' Второй периметр = ', t); writeln( 'Вторая площадь = ', u);
  writeln(' Сумма прощадей = ', SumS:5:1, ' Сумма периметров = ', SumP:5:1);
  
end.

------------------------------------------
не судите строго я только учусь

Добавлено через 10 минут
то первое это - правильно, но больше текста.
я переделал

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
  a2, b2, c2, h2: real;
  a1, b1, c1, h1: real;
 
  y, r, t, g,i: real;
  SumP, SumS: real;
 
procedure S1(var c, a, b, h, k,q: real );
begin
  c := h / 0.87;
  k := (a + b / 2) * h;
  q := a + b + 2 * c;
end;
begin
  write('Введите первую пару данных(a1,b1,h1) = ');
  readln(a1, b2, h2);
  write('Введите вторую пару данных(a2,b2,h2) = ');
  readln(a1, b1, h1);
  S1(a1, b1, c1, h1, y,i); 
  S1(a1, b1, c1, h1, r,g);  
 
  sumS := y + r;
  sump := g + t;
  writeln(' Первый периметр = ', i);  writeln(' Первая пощадь = ',y );
  writeln(' Второй периметр = ', g); writeln( 'Вторая площадь = ', r);
  writeln(' Сумма прощадей = ', SumS:5:1, ' Сумма периметров = ', SumP:5:1);
  
end.

@SerjoF · 24.11.2014, 02:29 **[ТС]**

Спасибо большое более менее вник.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@SerjoF 1 / 1 / 0 Регистрация: 04.06.2014 Сообщений: 21
	24.11.2014, 02:29 [ТС]
	Спасибо большое более менее вник. 0