Страница 1 из 1
Поогите с Здачкой
Добавлено: 14 дек 2007, 09:24
AstraZak
Вот не получается решить задачи,первую вроде решил(если не сложно проверьте правильно ли)
var a,b,c,x:integer;
Begin
{a-Gysei,x-Krolilov}
writeLn('Rabota #1');
a:=2;
x:=15;
while x>-1 do
begin
WriteLn(' Gysei=',a);
WriteLn(' Krolikov=',x);
a:=a+2;
x:=x-1;
end;
ReadLn;
А вот дальше задачки вообще не знаю как делать,кому не сложно помогите.
Маленький скрин с задачкой:
Re: Поогите с Здачкой
Добавлено: 14 дек 2007, 11:36
Хыиуду
С 1 задачей правильно, только не учтен вариант "0 гусей, 16 кроликов".
2.
Код: Выделить всё
i:=1;
sum:=x;
an:=x;
repeat
sum:=sum+an;
an:=-an*x*x/((2*i)*(2*i+1));
i:=i+1;
until an<0.001;
По третьей то же самое, только вначале sum=0; an=10; в цикле an:=an*10/i
Re: Поогите с Здачкой
Добавлено: 14 дек 2007, 11:59
AstraZak
Хыиуду,
Ага сп,но есть 2 вопроса:
1.Если не сложно скажи что значает
" писал(а):until an<0.001;
2.И почему тут выдаёт ошибку?
" писал(а):an:=-an*x*x/((2*i)*(2*i+1));
Var i,sum,an,x:integer;
Begin
writeln('Задание №2');
i:=1;
sum:=x;
an:=x;
repeat
sum:=sum+an;
an:=-an*x*x/((2*i)*(2*i+1));
i:=i+1;
until an<0.001;
writeln('Задание №2');
i:=1;
sum=0;
an=10;
repeat
sum:=sum+an;
an:=an*10/i;
i:=i+1;
until an<0.001;
End.
Re: Поогите с Здачкой
Добавлено: 14 дек 2007, 12:05
somewhere
" писал(а):Var i,sum,an,x:integer;
Вот почему
Re: Поогите с Здачкой
Добавлено: 14 дек 2007, 12:12
AstraZak
" писал(а):Вот почему
Так и знал,что тип переменной не правильно поставил.
Re: Поогите с Здачкой
Добавлено: 17 дек 2007, 11:20
Хыиуду
Пардон, я там еще забыл модуль. Конечно, until abs(an)<0.001;
Ну, сами понимаете, тут таких спрашивателей человек по 10 на день - проверять свой код времени нет совершенно.