|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.11.2016, 19:42 | #1 |
Пользователь
Регистрация: 14.10.2016
Сообщений: 18
|
Помогите найти ошибку
Составить функцию нахождения площади параллелограмма по диагоналям и углу между ними. С помощью данной функции вычислить площадь для N параллелограммов.
uses crt; var d1,d2,d,s:real; n,i:integer; function pl(c1,c2,c:real):real; //заголовок функции begin pl:=(1/2)*c1*c2 * sin(c) //тело функции end; begin clrscr; writeln('Введите количество параллелограммов'); readln(n); for i:=1 to n do begin writeln('Введите d1 = '); read(d1); writeln('Введите d2 = '); read(d2); writeln('Введите угол d в градусах = '); read(d); s:=pl(d1,d2,d); // вызов функции write('s = ', s:8:2); writeln; end; end. |
06.11.2016, 20:56 | #2 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,331
|
"Уж сколько лет твердили миру ..."
Код:
Код:
Код:
readln() - эти символы считывает корректно. Как-то так, ...
Как-то так, ...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[Язык C]: В массиве числа образуют неубывающую последовательность. Найти количество различных чисел в массиве. Помогите найти ошибку. | Yulia24* | Помощь студентам | 0 | 18.10.2016 20:41 |
Дан массив а(n) типа SWORD. найти сумму всех отрицательных элементов массива.помогите найти ошибку | Юлия123456 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 07.09.2016 06:12 |
С++ помогите найти ошибку | Aleksander550 | Помощь студентам | 4 | 09.01.2015 13:43 |
Найти седловые точки в матрице(помогите найти ошибку) - pascal | tdsotm | Помощь студентам | 0 | 20.11.2014 18:57 |
Помогите найти ошибку - StrToFloat выдаёт ошибку EConvertError для ячеек StringGrid (Delphi) | Artsiom | Помощь студентам | 10 | 18.12.2013 14:10 |