|
Решите задачу на паскале
|
|
Дата: Сб, 16.02.2013, 12:58:54 | Сообщение # 1|
|
В чем ошибка, кто поможет?
|
|
Дата: Сб, 16.02.2013, 13:03:35 | Сообщение # 2|
|
UltraKS, в старом паскале не нужна строчка program в самом начале? Или это строка с ошибкой загородила?
|
|
Дата: Сб, 16.02.2013, 13:04:32 | Сообщение # 3|
|
merKaa^, Строчка ошибки загорадила
|
|
Дата: Сб, 16.02.2013, 13:21:59 | Сообщение # 4|
|
UltraKS, у тебя дужек закрытия ')' больше чем открытия '('
|
|
Дата: Сб, 16.02.2013, 13:34:40 | Сообщение # 5|
|
Izmailov, Я знаю, но где? какая строчка?
|
|
Дата: Сб, 16.02.2013, 14:02:44 | Сообщение # 6|
|
у тебя begin не закрыт
поставь end; в конце процедуры
[cntr]
[/cntr]
Сообщение отредактировал Mizer - Сб, 16.02.2013, 14:03:43
|
|
Дата: Сб, 16.02.2013, 14:03:45 | Сообщение # 7|
|
Mizer, Его и не надо закрывать
|
|
Дата: Сб, 16.02.2013, 22:27:13 | Сообщение # 8|
|
Цитата (UltraKS) Izmailov, Я знаю, но где? какая строчка?
В строчке М:=
|
|
Дата: Сб, 16.02.2013, 22:56:42 | Сообщение # 9|
|
Код program ultraks;
uses crt;
var c,b,k,a,d,z,M:real;
begin
clrscr;
writeln('Vvedite znacheniya c,b,k,a,d'');
readln(c,b,k,a,d);
z:=(ln*SQRT(4*a*exp(4*ln(sin(d)/cos(d)))))-c/9*exp(3*ln(sin(k)/(cos(k)) ));
M:=(7*exp(5*ln(sin(c/4)))+2*sqr(b)*exp(1/3*sqrt(exp(3*ln(cos(k)))))/(z);
writeln('M= ', M)
readln;
end
попробуй, была ошибка в строчке z
|
|
