Turbo Pascal

[MILLENNIUM]

подскажите какой-нибудь учебник или пособие по паскалю, потому что я тут решил за голову взяться(хочу стипендию вернуть)....
методичка-*ерня, там на одном примере показано, толком ниче не разберу...

зы.желательно, чтобы книженция была в осле...

 

[Hamster]

Лекции

 

[MILLENNIUM]

Лекции

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

 

[MILLENNIUM]

От толькочто нацарапал чтото.

Правельнее бы было, конечно, работать с самим числом конкретно, а не со стринговым эквивалентом так скажем, но все-же прога вроде бы пашет.

сенкс.......


можно уточнить? что такое val() и str()

 

[Hamster]

Shift+F1 > Поиск > Str > Enter
Shift+F1 > Поиск > Val > Enter

 

[Merlіn]

подскажите какой-нибудь учебник

You must be registered for see links

 

[stan]

Люди!! Помогите, кто может...:kuku:
39) Дано рядок. Вивести підрядок, розміщений між початком і першою крапкою рядка.

 

[Nalivai]

И мне) ну не идет эта задача и все тут..
Підрахувати кількість n-значних чисел Фібоначчі, у яких старша цифра парна.

 

[Tom d`Cat]

Люди!! Помогите, кто может...:kuku:
39) Дано рядок. Вивести підрядок, розміщений між початком і першою крапкою рядка.

Лентяи...

{ Example }
var
i:Integer;
s: string;
begin
WriteLn('Введіть текст:');
Readln(s);
If length(s)>0 then
for i:=1 to length(s) do
If s='.' then
Begin
If i=1 then
WriteLn('Крапка - у першій позиції.')
Else
WriteLn(copy(s,1,i-1));
Exit;
End;
WriteLn('Крапки в тексті немає.');
end.

 

[Tom d`Cat]

Підрахувати кількість n-значних чисел Фібоначчі, у яких старша цифра парна.

{ Example }
{$N+}
var
n,m,i,j:Integer;
Fn,Fn1,F0,F1,F: extended;
S: string;
begin
WriteLn('Введіть значнiсть для чисел Фібоначчі:');
Readln(n);
If (n<1) or ( n>18 ) then
WriteLn('He можу')
Else
Begin
Fn1:=0;
Fn:=1;
F0:=1;
i:=1;
While i<n do
Begin
F0:=F0*10;
i:=i+1;
End;
F1:=F0*10;
{WriteLn(f0:20:0,F1:20:0);}
m:=0;
j:=1;
While Fn<F1 do
Begin
F:=Fn+Fn1;
j:=j+1;
i:=round(int(F/F0));
If (F>F0) and (F<F1) and ((i mod 2)=0) then Begin
m:=m+1;
S:=' +';
End Else
s:='';
WriteLn(j:10,m:10,F:20:0,s);
Fn1:=Fn;
Fn:=F;
End;
WriteLn('Існує ',m,' ',n,'-значних чисел Фібоначчі з першою парною цифрою');
End;
end.