Задача Turbo pascal

[wolf2783]

ViktorR,
С виду все норм. А на деле не робит правильно

program N3;
type StudentRecord = record
surname: String[15]; 
point,number: Integer;
end;
var textFile:file of studentrecord; 
i,n: integer;
student: StudentRecord; 
begin
mkdir('C:/Files/');
assign(textFile,'C:/Files/textFile.dat');
rewrite(textFile);
write('Enter students numbers: ');
readln(n);
writeln('Enter students points');
for i:=1 to n do 
begin
   write('Surname: ');               
   readln(student.surname); 
   write('point: ');              
   readln(student.point);
   student.number := i;   
   write(textFile, student);      
end; 
close(textFile);                 
writeln('Data is stored in file');
readln; 
end.

И вторая часть

Program N4; 
uses crt;
type StudentRecord = record 
surname: String[12];
point,number: Integer; 
end;
var textFile: file of StudentRecord;
i,n,k: integer;
student: StudentRecord; 
begin
clrscr; 
assign(textFile,'C:/Files/textFile.dat'); reset(textFile);
writeln('List of students'); 
if ((student.number >= 10) and (student.number <= 20) and (student.point > k)) then
writeln(student.surname);
end.

[digitalis]

В задании исходные данные должны задаваться в текстовом файле. Видимо, там элементы структуры разделяются специально выбранным символом или же длина строки фамилии, оценки и номера фиксирована. Нужно читать файл построчно и распарсить каждую строку в структуру. Для начала. Сдутый исходник предполагает ручной ввод и запись в типизированный файл, т.е. подготовка данных. Если справедливо вышесказанное, то данные подготовить можно хотя бы даже в "Блокноте". А что до вывода - задание вроде не требует вывода в файл, можно, видимо, и на экран.
Так что получилось совсем наоборот.
Мне входной файл видится таким:

Мымриков З.Ю./2/12
Кошкин Т.П./1/16
Зябликова И.Х./5/03
/

Здесь / - разделитель. Строка, состоящая из одного разделителя, обозначает конец файла. Хотя можно и без него по EOF. Но мне так привычнее
Если делать всё по уму, а не по детсадовски, то нужен ещё контроль правильности входных данных: недопустимые символы в фамилии, не цифры в оценке и номере и т.п. Но это уже чересчур. Co za dużo, to nie jest zdrowe
--------------------
Резюмируя:
Первая часть представленного - это подготовка данных в виде типизированного файла. А во второй чтения его нет совсем.
Т.е прежде чем решать задачу, надо определиться, как говорил писатель В. Кочетов: "Чего же ты хочешь?"

[Aleksandr H.]

и учесть фразу с условия

Сообщение от wolf2783

массив содержащая n элементов

Moim zdaniem. Nie?

[digitalis]

Wcale nie.

Элементы массива - это записи, хранящиеся в текстовом файле,

Ох, и огребём уж от модератора за использование Jeszcze_Polska_nie_zginęła

[WorldMaster]

Сообщение от digitalis

Wcale nie.

Щас жуткий алар раздаст всем люля ... Если он еще следит хоть за чем то кроме чая .. ))))
Он же говорил что только русский язык приемлем на данном ресурсе ...
А может даже и мне прилетит ....

Сообщение от Aleksandr H.

Moim zdaniem. Nie?

Или все таки избранным можно нарушать правила?? Или на правила уже всем покласть??

[Aleksandr H.]

Сообщение от WorldMaster

Или все таки избранным можно нарушать правила?? Или на правила уже всем покласть??

Правила всем можно нарушать, до момента когда за нарушения получишь бан
имхо встречаются здесь такие писатели на "приемлемом" русском, что наших 3 фразы на 12 иностранных слов ни в какое сравнение не идут.

[digitalis]

Истинно так. "Не нужен не какой..." (правда, это из другого форума)
WorldMaster А чай - это хорошо. Лучше - с коньяком. Тогда можно и без чая

[ViktorR]

С виду все норм. А на деле не робит правильно.
И вторая часть

Код:

Program N4; 
uses crt;
type StudentRecord = record 
surname: String[12];
point,number: Integer; 
end;
var textFile: file of StudentRecord;
i,n,k: integer;
student: StudentRecord; 
begin
clrscr; 
assign(textFile,'C:/Files/textFile.dat'); reset(textFile);  {Открыл файл на чтение}
writeln('List of students');    {Предупредил о выводе списка}
{========}
while not eof(textFile) do 
begin
   <тут читаем структуру>
   if ((student.number >= 10) and (student.number <= 20) and (student.point > k)) then
      writeln(student.surname);
end;  {завершение цикла}
{========}
end.

Было написано:

Далее надо читать файл в заданную выше структуру,

Чтение делается процедурой read(), и делать это надо в цикле, наподобие того, как создавал файл (первая часть).
Посмотри вставку в коде выше.
Дерзай.