Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 11.12.2018
Сообщений: 1
1

Работа с очередью

11.12.2018, 07:43. Просмотров 767. Ответов 1
Метки нет (Все метки)

Пишет: Ожидается "." в 33 строке, где 2 end подряд


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Program Alex;
uses crt;
type DatePersonale=record
                 ИМЯ,ФАМИЛИЯ:string[20];
                 ГРУППА:char;
                 СТИПЕНДИЯ:string[50];
                 СРЕДОЦЕНКА:real;
                 АДРЕС:char;
              end;
var     E1,e:DatePersonale;
        R:file of DatePersonale;
        i,n:integer;
Begin
clrscr;
writeln('Введи число стундетов:');
readln(n);
 
for i:=1 to n do
Begin
        writeln('Введи имя стундента:',i);
        readln(E.ИМЯ);
        writeln('Введи фамилию стундета:',i);
        readln(E.ФАМИЛИЯ);
        writeln('Введи группу студента:',i);
        readln(E.ГРУППА);
        writeln('Введи стипендию студента:',i);
        readln(E.СТИПЕНДИЯ);
        writeln('Введи среднюю оценку студента:',i);
        readln(E.СРЕДОЦЕНКА);
        writeln('Введи адресс студента:',i);
        readln(E.АДРЕС);
end;
end;
        while R<>nil do
             Begin
                 m:=0;
                 for i:=1 to R^.info.sem do
                   m:=m+R^.info.media[i];
                 m:=m/R^.info.sem;
                 if ((m>6)and(m<8))then
                 writeln(R^.info.NP:20,m:10:2);
                 R:=R^.prec
             end;
        end;
   readln;
   end;
   
begin
     s:=nil;
     repeat
            writeln('Меню:');
            writeln('I - Вставка элемента:');
            writeln('A - Вывод очереди на экран:');
            writeln('O - Остановка программы:');
            write('Ваш выбор:'):readln(c);
            case c of
                 'I':introduc;
                 'A':Afis;
                 'O':
                 else writeln('Недоступная операция');
            end;
      until c='O':
readln;
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2018, 07:43
Ответы с готовыми решениями:

Работа с очередью на статических структурах данных
Помогите разобраться с задачей. Условие таково: Каpдинал Ришелье обнаpужил...

Работа с очередью
Добавить элементы очереди OCHER1 к элементам очереди OCHER2, создав очередь OCHER3. Помогите...

Работа с очередью
Дана очередь действительных чисел. Выведите на печать в начале все числа, меньшие заданного а,...

Работа с очередью
Как сделать так, чтобы очередь выводила после нуля, 3 случайных числа. Написал программу но числа...

1
Модератор
61716 / 46198 / 31871
Регистрация: 18.05.2008
Сообщений: 111,449
11.12.2018, 08:26 2
Какая-то чушь написана, а ошибка не одна, еще есть лишний end и вообще...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2018, 08:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

работа с очередью
Нужно создать динамическую структуру очередь и найти определённое условие, мне вот выдаёт ошибку в...

Работа с очередью, список
Ребята, спасайте! обычно я прихожу сюда с недоделанным кодом/кодом в котором что-то неправильно...

Работа с очередью в Delphi
Написал программу на паскале, а препод требует ещё написать на delphi. Нужно уже сдавать, а я не...

Работа со стеком и очередью
Вот такое вот задание: Система состоит из процессора P, трёх очередей F0, F1, F2 и стека S. В...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.