Подпрограммы: площади, периметры

@Илья9 · Регистрация: 26.11.2017

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

Доброго времени суток

, задача вроде бы простая, но что то не получается и еще ошибку выдает
Задача: Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров и сумму их площадей. Определить процедуру для расчета периметра и площади равнобедренной трапеции по ее основаниям и высоте.

Visual Basic
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
Dim a1 As Integer, b1 As Integer, h1 As Integer, p1 As Integer, s1 As Integer, a2 As Integer, b2 As Integer, h2 As Integer, p2 As Integer, s2 As Integer
Sub Perimetr(x, y, z As Integer, p As Integer)
End Sub
p = x + y + 2 * sqrt(Sqr((x - y) / 2) + Sqr(z))
Sub Ploshad(x, y, z As Integer, s As Integer)
End Sub
s = z * Abs(x + y) / 2
Private Sub CommandButton1_Click()
' a1
a1 = Val(TextBox1.Text)
' b1
b1 = Val(TextBox2.Text)
' h1
h1 = Val(TextBox3.Text)
' a2
a2 = Val(TextBox4.Text)
' b2
b2 = Val(TextBox5.Text)
' h2
h2 = Val(TextBox6.Text)
Call Perimetr(b1, a1, h1, p1)
Call Perimetr(b2, a2, h2, p2)
'(p1+p2)
Call Ploshad(a1, b1, h1, s1)
Call Ploshad(a2, b2, h2, s2)
Label1.Caption = p1 & p2 & s1 & s2
'(s1+s2)
End Sub

Ошибка:

Как выглядит:

Есть код на Паскале (взят за основу), код на паскале частично взят из интернета, но доделан и работает:

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
Program LR32;
var
a1,b1,h1,p1,s1,a2,b2,h2,p2,s2: real;
procedure Perimetr(x,y,z:real; var p:real);
begin
p:=x+y+2*sqrt(sqr((x-y)/2)+sqr(z));
end;
procedure Ploshad(x,y,z:real; var s:real);
begin
s:=z*abs(x+y)/2;
end;
begin
writeln('Первая трапеция');
writeln('Введите меньшую сторону a1: ');
readln(a1);
writeln('Введите большую сторону b1: ');
readln(b1);
writeln('Введите высоту h1: ');
readln(h1);
writeln('Вторая трапеция');
writeln('Введите меньшую сторону a2: ');
readln(a2);
writeln('Введите большую сторону b2: ');
readln(b2);
writeln('Введите высоту h2: ');
readln(h2);
Perimetr(b1,a1,h1,p1);
Perimetr(b2,a2,h2,p2);
writeln('Сумма периметров равна: ',(p1+p2):0:2);
Ploshad(a1,b1,h1,s1);
Ploshad(a2,b2,h2,s2);
writeln('Сумма площадей равна: ',(s1+s2):0:2);
readln;
end.

@Burk · 20.03.2018, 20:03

Илья9,

Сообщение от Илья9

я подпрограмму могу использовать хоть миллион раз, а функцию нет,

хоть сто миллионов раз и то, и другое. Я думал, что уже всё объяснил, а тут опять какие-то дебаты на ровном месте. Ведь теперь, после исправлений, считает правильно? Ну и радуйтесь, и приступайте к следующей задаче

@Илья9 · 20.03.2018, 21:49 **[ТС]**

Сообщение от Burk

хоть сто миллионов раз и то, и другое. Я думал, что уже всё объяснил, а тут опять какие-то дебаты на ровном месте. Ведь теперь, после исправлений, считает правильно? Ну и радуйтесь, и приступайте к следующей задаче

ок )

Новые блоги и статьи Все статьи Все блоги /
Жара жесть. kumehtar 18.08.2026 Пролетают летом дни Тридцать пять жары в тени. Каждый август год от года Дарит жаркую погоду.	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .