yy:=y/(y-1);
nn:=1;
yyy:=yy;
z:=0;
sg:=1;
while nn<=17 do
begin
z:=z+yyy/nn;
yyy:=yyy*yy*yy;
nn:=nn+2;
sg:=-sg;
end;
Задача в Pascal
Прошу извенить модерацию за неточность названия темы!
Уважаемые, помогите решить! Но решить очень просто, чтобы было можно объяснить что и как...
В приложенном файле:
Уважаемые, помогите решить! Но решить очень просто, чтобы было можно объяснить что и как...
В приложенном файле:
Я вот набрал, но Ctrl + F9 тупо не работает... Не могли бы Вы точно набрать программу, а то вдруг я что неправильно ввел.
это отрывочек. Переменные и begin end сам придумать сумеешь?
Я написал, да, но программа не реагирует на Run... Напишите пожалуйста подробнее, чтобы мог проверить.
Друзья, ну напишите пожалуйста кто-нибудь подробно, очень надо..(
Илья, [COLOR=Red]а почему название не точное? Почему задание изложено во вложение, а не написано в сообщение? Получаешь нарушение, в следущий раз, если увижу, просто буду удалять такие темы, извини, но порядок один для всех.[/COLOR]
Код:
uses ctr;
var y,yy,nn,yyy,z,sg:real;
begin
clrscr
writeln ('insert parametrs');
readln (); {в скобках напиши через запятую переменные, которые надо ввести}
yy:=y/(y-1);
nn:=1;
yyy:=yy;
z:=0;
sg:=1;
while nn<=17 do
begin
z:=z+yyy/nn;
yyy:=yyy*yy*yy;
nn:=nn+2;
sg:=-sg;
end;
writeln ('OTBET',); {не помню смысл задачи так что не скажу,
что здесь написать. посмотри, что тебе надо вывести и сам укажи после запятой}
readkey
end.
var y,yy,nn,yyy,z,sg:real;
begin
clrscr
writeln ('insert parametrs');
readln (); {в скобках напиши через запятую переменные, которые надо ввести}
yy:=y/(y-1);
nn:=1;
yyy:=yy;
z:=0;
sg:=1;
while nn<=17 do
begin
z:=z+yyy/nn;
yyy:=yyy*yy*yy;
nn:=nn+2;
sg:=-sg;
end;
writeln ('OTBET',); {не помню смысл задачи так что не скажу,
что здесь написать. посмотри, что тебе надо вывести и сам укажи после запятой}
readkey
end.
Вроде так должно выглядеть. если я чего-нить не упустил