27.03.2011, 19:18 | #1 (permalink) |
Member
Регистрация: 19.03.2011
Сообщений: 30
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Составить программу
1 формула- s=a*b; 2 формула- s=0.5*d*sin(y); |
27.03.2011, 19:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обратите внимание на данные топики Помогите составить программу на турбо паскаль Разработать алгоритм и составить программу для решения задачи Помогите найти обратную матрицу СЛАУ и составить программу Помогите пожалуйста составить программу Помогите составить программу на Паскале Помогите составить программу в Pascal |
27.03.2011, 21:36 | #3 (permalink) |
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. |
27.03.2011, 21:51 | #4 (permalink) |
Специалист
Регистрация: 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. |
27.03.2011, 22:31 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Исправил ошибку - надо не
s:=0.5*d*sin(y); а s:=0.5*d*d*sin(y); |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|