Решение задачи
Пожалуста помогите!!!
помогите написать в Pascal'e, и составить блок-схему!! оч. надо... :( :( :(
Пожалуста помогите!!!
Program qwe;
uses crt;
var y,x,a,b:real;
begin
clrscr;
a:=0.42;
b:=0.87;
x:=sqr(a)+b;
y:=(sqr(sin(x))+1)/(sin(Pi)*x);
writeln('y=',y);
readkey;
end.
А если решаться не будет то поставь место a,b сразу данные.
Program qwe;
uses crt;
var y,x,a,b:real;
begin
clrscr;
a:=0.42;
b:=0.87;
x:=sqr(a)+b;
y:=(sqr(sin(x))+1)/(sin(Pi)*x);
writeln('y=',y);
readkey;
end.
А если решаться не будет то поставь место a,b сразу данные.
СПАСИБО!!!! все пашет!
хочу спросит, а что такое "uses crt;" и "clrscr;"?;) ;) :) :roll:
и еще одно, а линейную блок-схему, кто-нить поможет нарисовать? :roll:
хочу спросит, а что такое "uses crt;" и "clrscr;"?;) ;) :) :roll:
uses crt - подключение модулей, в данном случае только crt, но через запятую можешь еще всяких нафигачить
clrscr - очистка экрана в текстовом режиме (данная функция содержится в модуле crt)
а насчет блоксхемы... я сам их неумею рисовать :D :D :D
_
uses crt - подключение модулей, в данном случае только crt, но через запятую можешь еще всяких нафигачить
clrscr - очистка экрана в текстовом режиме (данная функция содержится в модуле crt)
_
Их обязательно прописывать? просто в технаре я не видел чтобы такое использовали..
СПАСИБО
...а линейную блок-схему, кто-нить поможет нарисовать? :roll:
Может что то вроде этого
Их обязательно прописывать? просто в технаре я не видел чтобы такое использовали..
попробуй удали эти две строки... и увидишь что будет на экране
_
СПАСИБО!!!! все пашет!
хочу спросит, а что такое "uses crt;" и "clrscr;"?;) ;) :) :roll:
и еще одно, а линейную блок-схему, кто-нить поможет нарисовать? :roll:
Что, реально пашет???
А у меня выдает деление на нуль, что и неудивительно, так как вместо
y:=(sqr(sin(x))+1)/(sin(Pi)*x);
должно быть
y:=(sqr(sin(x))+1)/sin(Pi*x);
иначе можно вместо sin(Pi) сразу писАть константу
0.
p.s. Если в проге есть ошибка, гоподин sp999 об этом пишет, думаю в блоксхеме исправишь сам.
Что, реально пашет???
А у меня выдает деление на нуль, что и неудивительно, так как вместо
y:=(sqr(sin(x))+1)/(sin(Pi)*x);
должно быть
y:=(sqr(sin(x))+1)/sin(Pi*x);
иначе можно вместо sin(Pi) сразу писАть константу
0.
я так и написал, после нескольких попыток..))
Помогите пожалйста написать эту прогу, заранее благодарю!