Здравствуйте уважаемые дримеры! Помогите исправить программу на Паскале. Вот условие:
Дан список учебной группы, включающий 20 человек. Для каждого студента известны: фамилия, имя, дата рождения, оценки по всем дисциплинам за последний семестр. Составить программу, которая обеспечивает ввод информации и отображение ее на экран в виде таблицы. Отобразить на экран анкетные данные студентов-отличников в виде таблицы. Отобразить на экран фамилию и имя студентов, родившихся зимой и весной.

Вот программа:
Program lab_10;
uses crt;
const n=3;
Type
students = record
famil: string[30];
imya : string[15];
drojd: string[10];
otsn:integer;
end;
var x,y:students; mas1:array[1..n] of students; j:integer;

begin
clrscr;
for j:=1 to n do
begin
write('Vvedite familiju: '); readln(mas1[j].famil);
write('Vvedite imya: '); readln(mas1[j].imya);
write('Vvedite datu rozhdeniya: '); readln(mas1[j].drojd);
write('Vvedite ball: '); readln(mas1[j].otsn);
writeln;

end;

writeln('Vse studenty:');
for j:=1 to n do
begin

writeln('familiya: ',mas1[j].famil);
writeln('Imya: ',mas1[j].imya);
writeln('Data rozhdeniya: ',mas1[j].drojd);
writeln('Ball: ',mas1[j].otsn);
writeln;
end;

writeln('Studenty-otlichniki: ');
for j:=1 to n do
begin
if mas1[j].otsn=5 then begin
writeln('Familiya: ',mas1[j].famil);
writeln('Imya: ',mas1[j].imya);
writeln('Data rozhdeniya: ',mas1[j].drojd);
writeln('Ball: ',mas1[j].otsn);
writeln;
end else writeln('Net otlichnikov!');
end;
end.

обычно вконце 2 readln; вставляют чтоб задержать информацию на экране
зачем 3 раза спрашивать Введите фамилию имя и тд?
з.ы, зачем такой гемор устраивать на паскале, мы токо примеры прогнали на нем и пару массивов и все

Да преподу осталось 2 программы сдать (одна из которых выложена здесь), чтобы допуск получить к экзамену. Я в Паскале нифига не шарю, т.к. в школе у нас не преподавали его:(. Помогите пожалуйста с этой программой! Заранее спасибо!

В паскале не селен, в детсве Бейсю юзал. Но поидеии если где есть ошыбка то сидит в операторе условия, или гдето пропущены символы. Больше к сожелению ничего сказать не могу)

к примеру: writeln('Vse studenty:'); нет пробела, с пробелом выглядит writeln('Vse studenty: ');

Не знаю куда вставить, чтобы отображалось на экране фамилии и имена студентов, родившихся зимой и весной и что при этом надо писать:(

Выложи на http://pastebin.com/ для начала.

Выложил. Что дальше?

Ссылку, видимо, не сохранил.
Ладно, не важно, с нуля напишу.

http://pastebin.com/tAPf8dCT
Как-то так.

я не понял насчёт "Приделай сюда парсер списков"

Ну измени функцию get_all_students (и get_one_student), чтобы читала все записи из одного CSV.
Запятая - новое поле, перенос строки - новая запись.
Очевидно же.

Хотя можешь не заморачиваться и сдавать так.

Спасибо за такой труд Slowpoke!!! Я в паскале нифига не шарю:(У меня препод по информатике к каждой строчке докапывается:(

Надеюсь, комментарии все удалил? :coolface:

Да я и сам его не знаю, на питоне пишу. Но на большинстве языков же можно по референсам из интернета писать.

Slowpoke, можешь ещё с одной программой помочь, а?
Даны два конечных множества А и В, элементами которых могут быть любые целые числа в диапазоне от 1 до 30. Найти прямое произведение этих множеств и вывести его на экран. (по теме: “Сложный тип данных – множества”). Походу надо на курсы программирования записаться

kesha_good, нет, с этим помочь не могу, я не знаю теорию множеств.

Ну и на этом спасибо! :biggrin: :biggrin: :biggrin: