tediss
06-03-2013, 11:16
Имам нужда от помощ не мога да се справя с тези две задачи :
1.. Открийте 6-те грешки в програмата на Паскал за най- голямото число от редицата на Фибоначи..
Program MaxFibonachi
Var
I, N, F, FO, F1 : Integer;
Begin;
Readln (N)
If N<=1 then F:= 1
elase Begin
F1:= 1;
FO=0;
F:=0;
while F<=N do
Begin
F:=F1 + FO;
Fo:=F1;
F1:=F
end
F:= FO
end
Writeln ("Fmax=", F: 8)
end
и другата е да се направи графично и словестно изчисляване на периметър лице и синус на трапец по зададени a b h c d и се провери дали страните са положителни числа..
1.. Открийте 6-те грешки в програмата на Паскал за най- голямото число от редицата на Фибоначи..
Program MaxFibonachi
Var
I, N, F, FO, F1 : Integer;
Begin;
Readln (N)
If N<=1 then F:= 1
elase Begin
F1:= 1;
FO=0;
F:=0;
while F<=N do
Begin
F:=F1 + FO;
Fo:=F1;
F1:=F
end
F:= FO
end
Writeln ("Fmax=", F: 8)
end
и другата е да се направи графично и словестно изчисляване на периметър лице и синус на трапец по зададени a b h c d и се провери дали страните са положителни числа..