Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.05.2009, 17:25   #1
Вор
 
Аватар для Вор
 
Регистрация: 11.05.2009
Сообщений: 2
По умолчанию Площадь фигур

Ребят, вот ещё одну задачу нужно разрулить, очень просили.. И я вас очень прошу. Задача, наверн, лёгкая, но я профан в этом). Вот задача:

"Написать программу вычисления площади геометрических фигур. Программа предлагает пользователю выбрать фигуру из перечня и задать её параметры, после чего вывести на экран результат расчета объема фигуры с указанием формулы, по которой он вычислялся".
Вор вне форума Ответить с цитированием
Старый 18.05.2009, 17:55   #2
DM_bite
Участник клуба
 
Аватар для DM_bite
 
Регистрация: 29.07.2008
Сообщений: 1,091
По умолчанию

Задача - простейшая. Вот только одно НО - какие фигуры, по каким формулам вычислять площадь и т.д.Короче: многое не ясно...
Кто бы ты ни был - не думай о себе слишком (с)
DM_bite вне форума Ответить с цитированием
Старый 18.05.2009, 18:33   #3
Вор
 
Аватар для Вор
 
Регистрация: 11.05.2009
Сообщений: 2
По умолчанию

ну к примеру можно такие:

Площадь квадрата S = а(квадрат)

прямоугольника S = ab

S круга = пR(квадрат)

Площадь параллелограмма S = a · h

Площадь трапеции - S=(a+b)*h/2
Вор вне форума Ответить с цитированием
Старый 18.05.2009, 22:44   #4
unicode
Форумчанин
 
Аватар для unicode
 
Регистрация: 16.04.2009
Сообщений: 162
По умолчанию

Вот приблизительно вот так программа будет выглядеть, вы уже добавьте остальные процедуры к обработчику и продлите цикл.

Код:
program kuku;

procedure Kvadrat (a, S:real); //процедура расчета площади квадрата
begin
 writeln('Сторона квадрата - ', a);
 readln(a);
 S:=sqr(a);
 writeln(S:0:2);
end;

begin //начало программы
 writeln('Ваша фигура ...', figura); 
 readln(figura); //читаем какую фигуру хочет пользователь
 if figura = Kvadrat then Kvadrat(a , S) else ...{здесь идет продолжение цикла}...
end.//конец программы
unicode вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача - Определить, какая из двух фигур – круг или квадрат – имеет большую площадь. Incognitoal Microsoft Office Excel 7 05.03.2009 11:36
Pascal. Площадь пересечения кругов TOSAgrk Помощь студентам 1 05.02.2009 04:23
алгоритмы 2д фигур tarakannn Общие вопросы C/C++ 2 23.11.2008 11:23
Найти площадь треугольник (задача в делфи) YO$YA Помощь студентам 5 19.11.2008 21:29
Найти объём куба и площадь его боковой поверхности BASIC Ветренная Помощь студентам 23 02.06.2008 13:15