паскаль записи

19.11.2013, 19:52. Показов 315. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Pascal

TYPE
 CLASS=RECORD
            N:INTEGER;
            List:ARRAY[1..30] of STRING;
      END;
VAR
 School:ARRAY[1..5] of CLASS;
 i,j,k,m:INTEGER;
 
BEGIN
 FOR i:=1 TO 5 DO
  With School[i] DO
  BEGIN
    Write('How many pupils are in class ',i,'? '); ReadLn(N);
    FOR j:=1 TO N DO
    BEGIN
      WriteLn('Enter the surname of next pupil:');
      ReadLn(List[j]);
    END;
  END;
 FOR i:=1 TO 5 DO
  FOR j:=1 TO School[i].N DO
  FOR k:=i+1 TO 5 DO
    FOR m:=1 TO School[k].N DO
    IF School[i].List[j]=School[k].List[m] THEN
      WriteLn(School[i].List[j],' class N',i,' and class N',k);
 ReadLn;
END.

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.11.2013, 19:52

Ответы с готовыми решениями:

Паскаль. Записи. Создать список клиентов банка
Пожалуйста, помогите с решением. Создать список клиентов банка. 1.Описать и ввести массив,...

Снова перевести с Турбо Паскаля на Паскаль АВС или Паскаль АВС.Нет
program derevo; uses crt, graph; function cx(length, angle:real):integer; begin ...

Записи. Паскаль
Напечатать анкетные данные студентов, что учатся на 4 и 5.

Паскаль - записи
Задача: Дано описание записи: type данные=record имя:string; пол:char;...

	19.11.2013, 19:52

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.11.2013, 19:52

Помогаю со студенческими работами здесь

Паскаль, записи!
Помогите пожалуйста с решением задачи! Написати програму яка створює типізований файл, в який...

Паскаль на записи!!!!
Задан массив записей следующей структуры:фамилия, имя , отчество,пол,возраст,курс, причём в...

паскаль,записи!
Помогите пожалуйста написать программу на записи... Из множества латинских букв выделить...

Паскаль -Записи.
Переписать сведения о багаже из переменной Bagaj в переменную Bag. В переменной Bag сведения о...

Паскаль, записи
Не пашет. Прошу подсказать, из-за чего не работает прога. задачка звучит так:создать массив...

Паскаль, записи!!!
Помогите,плиз!!!!! 1)Составить программу, выводящую на экран студенческую ведомость (Ф. И. О.,...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх