Учебно-методическое пособие. Алматы, 2017 ббк


while Not EOF(FileIn ) do



бет71/106
Дата03.01.2022
өлшемі483.39 Kb.
#451845
түріУчебно-методическое пособие
1   ...   67   68   69   70   71   72   73   74   ...   106
УЧЕБНИКПаскаль(100217)

while Not EOF(FileIn ) do

begin

{увеличение значения счетчика на единицу}



inc(KolichestvoStrok);

{установка счетчика столбцов начальное значение}



KolichestvoStolb:=0;

{считывание элементов массива по столбцам}



while Not EOLn(FileIn ) do

begin

{увеличение значения счетчика на единицу}



inc(KolichestvoSolb);

{считывание элементов массива}



read (FileIn, Chislo [i,j]);

end;

{превод курсора на начало новой строки при достижении конца строки}



readln (FileIn);

end;

{закрытие файла}

close(FileIn);

end;


Задание

1. Напишите программу, которая считывает данные из файла «MayFileF1.in» содержащий одномерный массив и выводит этот массив на экран компьютера, сохраните его под именем «MayFileF8.pas»





Достарыңызбен бөлісу:
1   ...   67   68   69   70   71   72   73   74   ...   106




©dereksiz.org 2024
әкімшілігінің қараңыз

    Басты бет