Turbo Pascal

S risk da stana nahalen shte pomolq nqkoi ot prisastvashtite programisti da mi napishe edna malka programka za TP.Prosto v momenta imam nujda ot neq i shte sam blagodaren na vseki,koito mi pomogne.Ta znachi eto kakvo mi trqbva:
Da se otvori textov file i da se razpechata na po 20 reda na ekrana.Izvinete me za nevejestvoto mi i blagodarq predvaritelno.

Program ShowText;
Uses Crt;
Var F:Text;
i:Integer;
S,FName:String;

Begin
ClrScr;
Write('Въведете име на файл: ');
Readln(FName);
Assign(F,FName);
Reset(F);
ClrScr;
While not Eof(F) do
Begin
i:=1;
While not Eof(F) and (i<=20) do
Begin
Read(F,S);
Writeln(S);
Inc(i);
End;
Readln;
End;
Close(F)
End.

Всичко е по спомени. Може да съм объркал някоя функция или процедура. За да не се услажняват нещата няма проверка на I/O операциите - има ли такъв файл, добре ли се чете и т.н. Uses Crt e само заради изчистването на екрана с ClrScr. Ако компилираш и пуснеш програмата на нещо повече от Pentium 150-180 MHz ще ти даде Runtime error. Грешката не е твоя, а на Borland :( .Ако няма кой да ти я оправи, махни USes Crt; и дна двете места ClrScr;
Ако има проблем - пиши.

Хитър начин да поискаш някой да ти напише курсовата задача ....

Mnogo ti blagodarq.

Не виждам защо трябва да се мъчи с нещо, което не му/и е по душа и едва ли ще се наложи да ползва. Помня в нашия поток навремето имаше хора, които бяха царе в математиката, но трябваше да учат и програмиране. Нямаха дори и капчица интерес към програмирането и се занимават със сметки за които компютъра е по-скоро вреден. Сега чувам че доста са успяли в математиката и съм сигурен, че все още не са написали и една програма. Аз като съм учил диференциална геометрия вече 14 години не ми се е наложило да използвам за нещо - примерно тензори :( . Оф, дано и да не ми се наложи

men ako pitash :

Program ShowText;
Uses Crt;
Var F:Text;
i:Integer;
S,FName:String;
Begin
ClrScr;
Write('Въведете име на файл: ');
Readln(FName);
Assign(F,FName);
Reset(F);
ClrScr;
While not Eof(F) do
Begin
i:=1;
While not Eof(F) and (i<=20) do
Begin
ReadLN(F,S);
Writeln(S);
Inc(i);
End;
{Readln;{} readkey;
End;
Close(F)
End.

readkey syshto e ot CRT

Obarni osobeno vnimanie na operatora s bold WRITELN - imache ste poluchish greshni rezultati... readkey moge spokoyno da se zameni s readln - ne e problem... po-dobre vaprosite svarzani s Pascal gi zadavai v kluba "DELPHI" - tam sa horata zanimavasti se s tova...

Така си е. Четенето на файла трябва да стане задължително с ReadLN(F,S) иначе е боза.
Съжалявам за заблудата :)