1 Востаннє редагувалося ulyana (03.06.2014 21:36:51)

Тема: зчитати лише 7 рядків тексту з файлу, а не весь.

хтось може відкоректувати програму в паскалі?
треба щоб зчитувало лише 7 рядків тексту, а не весь.
зараз надішлю текст програми

може хтось допомогти??

2

Re: зчитати лише 7 рядків тексту з файлу, а не весь.

Код - в тег code (є тут на панельці), ось так:

begin
  writeln('Hi!')
end.

3 Востаннє редагувалося Torbins (08.08.2014 22:07:31)

Re: зчитати лише 7 рядків тексту з файлу, а не весь.

PROGRAM TEXT1;
USES CRT;
VAR
   F1: TEXT;
   STR: STRING;
   R: ARRAY[1..7] OF INTEGER;
   I,J: INTEGER;
   K: INTEGER;
BEGIN
SLRSCR;
ASSIGN(F1, 'D:\STUDENT\F1.TXT');
RESET(F1);
K :=0;
WHILE NOT EOF(F1) DO
   FOR I:=1 TO 7 DO
   BEGIN
      WHILE NOT EOLN(F1) DO
      READLN(F1,STR);
      K :=0;
      FOR J:=1 TO LENGTH(STR)-1 DO
         IF STR[J]='S' THEN
         K:=K+1;
         IF K>=2 THEN
         WRITELN(STR);
      END;
   CLOSE(F1);
END.

4

Re: зчитати лише 7 рядків тексту з файлу, а не весь.

Уф, ну тут і помилок...
А треба усього ж

for i:=1 to 7 do 
  readln( F1, R[ i ] );

(цей варіант не враховує можливості, що в файлі менше 7 рядків, але хоча б для 7 чи більше він працює)

5

Re: зчитати лише 7 рядків тексту з файлу, а не весь.

вибиває помилку 106

6

Re: зчитати лише 7 рядків тексту з файлу, а не весь.

А ви не пробували самостійно подивитися в довідці чи в інтернеті, що означає помилка 106?

7

Re: зчитати лише 7 рядків тексту з файлу, а не весь.

Ну добре, якщо не виходить знайти - скажу: це означає, що те, що ви намагалися прочитати з файлу - не число.