Проверьте правильность программы на паскале
Program lab1;
Var x: real; begin write('Введите x='); read(x); y:=(((sqr*(cos(x)))/(1+sin(x))))-(sqr(ln)(x/exp(1/3*ln(x-1)))); write(y); if (y>0) then y:=1; else (y=0) then y:=0; else (Y<0)then y:=-1; end. Если конечно не трудно. |
Цитата:
|
А разве строка вывода не должна быть после присвоения "у" принятого результата.
(если конечно я правильно понял конечную проверку). на выполнение не запускается? во блин.. Vladimir_S прав: проверка результата (или как бы её еще помягче назвать) в корне неправильная. Учи язык, помощь тут будем лишней. Разрешите откланяться. |
Цитата:
помоги плиз |
Я конечно никудышный кодер, но зачем присваивать "у" нуль, если он итак имеет значение нуль? И вообще, попробуй выразить через case...
|
Цитата:
|
Вложений: 1
Цитата:
http://www.tehnari.ru/f41/t85356/ Могу лишь, присоединяясь к Dr.Format_C, посоветовать учить язык, для начала разобравшись с семантикой условного оператора if..then..else. Успехов! |
Код:
Program lab1; {пока верно} |
Часовой пояс GMT +4, время: 14:28. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.