Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 27.03.2011, 19:18   #1 (permalink)
diagen_62
Member
 
Регистрация: 19.03.2011
Сообщений: 30
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Составить программу

Составить программу, вычисляющую площадь прямоугольника по двум формулам, в зависимости от того, что дано(либо через две стороны a и b,либо через диагональ d и угол между диагоналями),используя case
1 формула- s=a*b;
2 формула- s=0.5*d*sin(y);
diagen_62 вне форума   Ответить с цитированием

Старый 27.03.2011, 19:18
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Обратите внимание на данные топики

Помогите составить программу на турбо паскаль
Разработать алгоритм и составить программу для решения задачи
Помогите найти обратную матрицу СЛАУ и составить программу
Помогите пожалуйста составить программу
Помогите составить программу на Паскале
Помогите составить программу в Pascal

Старый 27.03.2011, 20:29   #2 (permalink)
diagen_62
Member
 
Регистрация: 19.03.2011
Сообщений: 30
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

помогите пожалуйста!очень надо!
diagen_62 вне форума   Ответить с цитированием
Старый 27.03.2011, 21:36   #3 (permalink)
diagen_62
Member
 
Регистрация: 19.03.2011
Сообщений: 30
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

щас попробовал.не знаю как задать синус угла.посмотрите правильно или нет.проверьте пожалуйста

program gutuu;
var a,b,d,s,s1,s2:real; k1:byte;
begin
writeln('1-площадь прямоугольника ');
writeln('2-площадь прямоугольника');
readln(k1);
case k1 of
1:begin
writeln('Введите исходные данные a,d');
readln(a);
s1:=a*b;
end;
2:begin
writeln('Введите исходные данные d');
readln(d);
s2:=d*sin(y);
end;
end;
writeln('Площадь равна=',s);
end.
diagen_62 вне форума   Ответить с цитированием
Старый 27.03.2011, 21:51   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

В принципе правильно. Немного поправлю:
Код:
program gutuu;
var 
a,b,d,s:real; 
k1:byte;
begin
  writeln('Введите метод расчета');
  writeln('1-площадь прямоугольника через 2 стороны');
  writeln('2-площадь прямоугольника через диагональ и угол');
  readln(k1);
  case k1 of
   1:begin
       writeln('Введите исходные данные a, b:');
       readln(a, b);
       s:=a*b;
       writeln('Площадь равна= ',s:10:3);
     end;
   2:begin
       writeln('Введите исходные данные d, y (в радианах)');
       readln(d, y);
       s:=0.5*d*d*sin(y);
       writeln('Площадь равна= ',s:10:3);
     end;
  end;
 readln; 
end.
Vladimir_S вне форума   Ответить с цитированием
Старый 27.03.2011, 22:31   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Исправил ошибку - надо не
s:=0.5*d*sin(y);
а
s:=0.5*d*d*sin(y);
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 16:51.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.