Программирование ver 4.1

когда ласт цифра =0 то она отказывается работать, как пофиксить?

вместо деления на ноль засчитывать автоматом как "не делится"?

ну хз как на других, у меня на паскале выдает ошибку типа ~попытка деления на ноль

я выше решение дал, условие дополни

когда ласт цифра =0 то она отказывается работать, как пофиксить?

вместо деления на ноль засчитывать автоматом как "не делится"?

ну хз как на других, у меня на паскале выдает ошибку типа ~попытка деления на ноль

может просто не стоит делить на ноль????

ну там же рандомно выбирается число

из этого числа берется ласт цифра

там все автоматизировано

ну уже вроде разобрался с этой хуйней, прога работает

результат выдает

только вот хуй знает верно или нет

я дополнил. спс.

ПОСОНЫ

ПЛИИИЗАНЫЧ

ВОТ ПРЯМ ОЧЕНЬ СРОЧНО

КАКАЯ КОМАНДА НУЖНА ЧТОБЫ БАТНИК СРАЗУ НЕ ЗАКРЫВАЛСЯ

А ТАМ К ПРИМЕРУ ПОСЛЕ НАЖАТИЯ

ПОСОНЫ

ПЛИИИЗАНЫЧ

ВОТ ПРЯМ ОЧЕНЬ СРОЧНО

КАКАЯ КОМАНДА НУЖНА ЧТОБЫ БАТНИК СРАЗУ НЕ ЗАКРЫВАЛСЯ

А ТАМ К ПРИМЕРУ ПОСЛЕ НАЖАТИЯ

http://bit.ly/16ansNg

<3

pause

Помогите пожалуйста программисты пд

Дано: q =3; dq=-0.2. F вычислять по формуле: f:=√1+0.5*q -1/q+1; Считать до тех пор, пока подкоренное выражение больше 0. Определить кол-во вычислений F. Вывести на экран f q k

var q,dq,f,r,t: double;
k:real;
begin
q:=3;
dq:=-0.2;
k:=0;
t:=(1+0.5*q);
while t>0 do
begin
q:=dq+q;
f:=(sqrt(1+0.5*dq)-(1/(dq+1)));
writeln('',f:0:6);
writeln(f:0:0);
if f>0 then  k:=k+1;
t:=(1+0.5*q);
end;
readln;
writeln('Quantity of numbers ',k:0:6);
end.

Нашёл похожую задачу на одном форуме, но она не работает и условие чуть другое. Надеюсь на вас

паскаль нынче в моде

pause

это слишком просто

 

program zzz;
var
i,k:integer;
f,q:real;
begin
q:=3.2;
k:=0;
while 1+0.5*q>0 do
begin
	q:=q-0.2;
	k:=k+1;
	f:=sqrt(1+0.5*q)-1/(q+1);
end;
writeln('f: ',f:0:2);
writeln('q: ',q:0:2);
writeln('k: ',k-1);
end.

 

var q, dq, f, t: double;
 k: integer;
begin
 q := 3;
 dq := -0.2;
 k := 0;
 t := (1 + 0.5 * q);
 while t > 0 do
 begin
inc(k);
if abs(q + 1)>0.000000001 {это сравнение знаменателя дроби с нулём}
then begin
  f := (sqrt(t) - (1 / (q + 1)));
  writeln(k:2,') q=', q:0:1,'  f=', f:0:6);
end
else
  WriteLn(k:2,') при q=', q:0:1, ' функция неопределена (деление на ноль)');
q := dq + q;
t := (1 + 0.5 * q);
 end;
 writeln('Quantity of numbers ', k);
 readln;
end.

блять как и пригораю от бестолковых уебков, тратящих свое время на посты на форумах, вместо того что бы взять, сесть, и разобраться один раз.

И потом ни в ебаной школе, ни в универе или хуй знает где еще тебе не надо будет сидеть и писать посты, на которые ты тратишь времени больше, чем на решение этой задачи.

а посты в стиле "как сделать так чтобы отпустило не делило на ноль пожалуйста" особенно улыбают, при чём это нельзя сказать, что говорит о полнейшей некомпетентности человека, а скорее о нежелании просто взять и подумать, это ведь не обязательно нужно быть гением ИТ, чтобы продумать алгоритм исключения из правил, но человек упорно напрягать мыслительный центр не желает, а вместо этого "блять ахуеть на ноль не хочет делить сук пздц чо делать"

именно так я выгляжу при прочтении очередной проблемы деления на ноль

поцоны можно ли как нибудь в паскале замутить

чтобы определялось комбинация цифр в числе

ну к примеру 11 в 3х значных цифрах

ну вот, ещё один вопрос из такой же категории

Казик, тебя тут скоро возненавидят

прочитай уже наконец хотя бы методичку, или чей-нить конспект)