Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Kukish2490
0 / 0 / 0
Регистрация: 18.05.2016
Сообщений: 47
#1

Написать программу по нахождению площадей фигур

13.06.2016, 14:51. Просмотров 878. Ответов 1
Метки нет (Все метки)

Написать программу по нахождению площадей фигур.
Надо сделать так, что бы в ней было несколько способов вычисления, например треугольника через основание и высоту, и через стороны и угол. А так же добавить в программу проверку на неподходящие числа, например отрицательные.
Ниже скинул уже то, до чего дошел. Хотелось бы что бы доработали программу так, что бы после выбора в меню "треугольник-3" Переходил на следующий этап меню и там уже выбирать каким способом будет находится площадь.
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
Uses CRT;
var
a,s,r,b,h:real;
V:char;
begin
repeat
  clrscr;
  writeln('"Программа для вычисления площади фигур"');
  writeln('Введите номер фигуры');
  writeln('Квадрат-1');
  writeln('Прямоугольник-2');
  writeln('круг-3');
  writeln('Треугольник-4');
  writeln('ромб-5');
  writeln('Параллелограмм-6');
  writeln('Трапеция-6');
  writeln('Выход-q');
  readln(V);
  case V of
'1':begin//квадрат
  writeln('Площадь квадрата');
  writeln('Введите значение стороны');
  readln(a);
  s:=a*a;
  writeln('Решение готово');
  writeln ('Площадь квадрата=',s);
  writeln('Нажмите Enter для очистки экрана. ');
  readln;
end;
'2':begin//прямоугольник
  writeln('Площадь прямоугольника');
  writeln('введите сторону a');
  readln(a);
  writeln('введите сторону b');
  readln(b);
  s:=a*b;
  writeln('Решение готово');
  writeln('Площадь прямоугольника=',s);
  writeln('Нажмите Enter для очистки экрана.');
  readln;
end;
'3':begin//круг
  writeln('Площадь круга');
  writeln('радиус круга');
  readln(r);
  s:=3.14*r*r;
  writeln('Решение готово');
  writeln('Площадь круга=',s);
  writeln('Нажмите Enter для очистки экрана.');
  readln;
end;
'4':begin//треугольник
  writeln('Площадь треугольника');
  writeln('Введите основание треугольника');
  readln(b);
  writeln('Введите высоту треугольника');
  readln(h);
  s:=((1/2)*b*h);
  writeln('Решение готово');
  writeln('Площадь треугольника=',s);
  writeln('Нажмите Enter для очистки экрана. ');
  readln;
end;
'5':begin//ромб
  writeln('Площадь ромба');
  writeln('Введите основание ромба');
  readln(a);
  writeln('Введите высоту ромба');
  readln(h);
  s:=a*h;
  writeln('Решение готово');
  writeln('Площать ромба=',s);
  writeln('Нажмите Enter для очистки экрана.');
  readln;
end;
'6':begin//трапеция
  writeln('Площадь трапеции');
  writeln('Введите высоту трапеции');
  readln(h);
  writeln('Введите нижнее основание трапеции');
  readln(a);
  writeln('Введите верхнее основание трапеции');
  readln(b);
  s:=(((a+b)/2)*h);
  writeln('Решение готово');
  writeln('Площадь трапеции=',s);
  writeln('Нажмите Enter для очистки экрана.');
  readln;
end;
end;
  until V='q';
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2016, 14:51
Ответы с готовыми решениями:

Вычисление площадей различных геометрических фигур
Составить программу вычисления площадей различных геометрических фигур

Написать программу сравнения площадей и периметров двух прямоугольных треугольников
Написать программу сравнения площадей и периметров двух прямоугольных...

Написать программу движения 3-х разных геометрических фигур по экрану
Написать программу движения 3-х разных геометрических фигур по экрану...

Написать программу, используя графические примитивы и стили заполнения фигур
Доброго времени суток.Помогите сделать такое задание. Составить программу на...

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

1
Kukish2490
0 / 0 / 0
Регистрация: 18.05.2016
Сообщений: 47
15.06.2016, 16:26  [ТС] #2
Как я понял тут никто не поможет(
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2016, 16:26

Составьте программу для вычисления площадей трех колец
задача с модулем составьте программу для вычисления площадей трех колец....

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

Дополнить программу по нахождению пар "близнецов" простых чисел.
Пожалуйста помогите дописать программу. Нужно в эту программу добавить такое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru