Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Leathc
0 / 0 / 0
Регистрация: 05.03.2019
Сообщений: 1
1

Структура: Получить список людей, которые получили по истории "4"...

05.03.2019, 10:16. Просмотров 104. Ответов 1

Есть ведомость ,из которой надо вывести людей с 4 по истории . Подскажите , если не сложно , в чем ошибка .Заранее спасибо
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
program lab3;
uses crt;
label 1,2;
type 
ecxam1sem=record
History:byte;
Fizika:byte;
Diskretnyamatematika:byte;
Matanaliz:byte;
end;
 
ZAO1sem=record
Linal:byte;
Inf:byte;
end;
 
Zach1sem=record
Inyaz:char;
OKKiDO:char;
Kyltorologia:char;
Vvedenie:char;
Fizra:char;
end;
 
Svodnayvedomost1sem=record
Nomer:byte;
FIO:string;
pol:char;
Ecxam:ecxam1sem;
Zao:ZAO1sem;
Zachet:Zach1sem;
end;
gruppa=array [1..32] of Svodnayvedomost1sem;
var iis:gruppa;
filename:string;
f:text;
n,i,m,m1,s:integer;
c:char;
begin
assign(f,'12.txt');
reset(f);
for i:=1 to 32 do
begin
 with iis[i] do
 begin 
   readln(f,iis[i].FIO);
   readln(f,iis[i].Ecxam.History);
   readln(f,iis[i].Ecxam.Fizika);
   readln(f,iis[i].Ecxam.Diskretnyamatematika);
   readln(f,iis[i].Ecxam.Matanaliz);
   readln(f,iis[i].Zao.Linal);
   readln(f,iis[i].Zao.Inf);
   readln(f,iis[i].Zachet.Inyaz);
   readln(f,iis[i].Zachet.OKKiDO);
   readln(f,iis[i].Zachet.Kyltorologia);
   readln(f,iis[i].Zachet.Vvedenie);
   readln(f,iis[i].Zachet.Fizra);
    if (iis[i].Ecxam.History=4)then writeln(iis[i].FIO);
 end;
end;
  close(f);
end.
Сама ведомость
Кликните здесь для просмотра всего текста
Анисимов Даниил Данилович
4
4
4
5
4
5
з
з
з
з
з
Агазаде Джейхун Эльчинович
3
0
4
4
3
3
н
з
з

з
з
Алиев Рамин Габил
3
0
4
3
3
4
н
з
з
з
з
Бабчук Артем Николаевич
3
3
0
4
4
3
н
з
з
з
з
Баранова Анлександра Сергеевна
5
4
5
5
5
5
з
з
з
з
з
Бирюкова Алена Александровна
4
4
4
3
4
5
з
з
з
з
з
Бородин Станислав Евгеньевич
5
3
3
4
4
5
з
з
з
з
з
Бугорков Егор Сергеевич
3
3
4
3
4
5
н
з
з
з
з
Глунцов Максим Александрович
5
3
4
4
4
4
з
з
з
з
з
Дудин Максим Аленсандрович
4
3
3
3
3
4
з
з
з
з
з
Зерянов Юрий Александрович
0
0
0
3
4
5
н
з
з
з
з
Игнатов Михаил Геннадьевич
4
4
4
4
4
4
з
з
з
з
з
Карамзин Александр Витальевич
0
0
3
0
4
4
з
з
н
з
з
Костенко Никита Викторович
5
3
4
4
4
4
з
з
з
з
з
Красильников Дмитрий Александрович
4
0
3
3
3
4
з
з
з
з
з
Куранов Николай Михайлович
0
0
4
0
0
2
н
н
н
з
н
Никулин Андрей Александрович
4
4
4
4
4
5
з
з
з
з
з
Педенко Илья Владимирович
4
0
4
4
4
5
н
з
з
з
з
Пономарев Назар Кириллович
5
4
4
5
5
5
з
з
з
з
з
Рогачев Никита Николаевич
3
0
0
3
3
3
з
з
з
з
з
Сенченко Вячеслав Романович
3
0
4
3
3
5
н
з
з
з
з
Силинский Антон Павлович
3
3
0
4
3
4
н
з
з
з
з
Скабелка Артем Дмитриевич
4
4
4
4
4
5
з
з
з
з
з
Слащев Анатолий Михайлович
4
0
4
3
3
4
н
з
з
з
з
Степанкина Валентина Сергеевна
3
5
5
5
5
5
з
з
з
з
з
Талыбова Сафура Эйвазовна
5
4
4
5
5
4
з
з
з
з
з
Трунов Платон Сергеевич
4
4
5
4
4
5
з
з
з
з
з
Туманов Валентин Викторович
4
3
4
3
3
5
з
з
з
з
з
Феденко Антон Олегович
4
3
4
4
4
5
з
з
з
з
з
Филатов Денис Александрович
3
0
0
3
3
4
н
з
з
з
з
Шатура Николай Владиславович
3
3
4
4
4
4
н
з
з
з
з
Шмакова Екатерина Александровна
4
4
5
4
4
4
н
з
з
з
з
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.03.2019, 10:16
Ответы с готовыми решениями:

Как мне вывести людей, которые получили зароботную плату по 1000р за период в 3 месяца?
как мне вывести людей которые получили зароботную плату по 1000р за период в 3 месяца! при этом...

Вывести список студентов, которые получили хоть один зачет
Здравствуйте. Не мог бы кто-нибудь помочь мне решить несколько простых задач по БД на запросы?

Распечатать список студентов, которые получили неудовлетворительные оценки за последнюю сессию
Распечатать список студентов, которые получили неудовлетворительные оценки за последнюю сессию,...

Распечатать список студентов, которые получили только оценки 5 на экзаменах, в возрастающем порядке по возрасту
С текстового файла считать последовательность записей, содержащих данные о результатах сессии...

Список людей которые посещали форму
Всем привет я хотел-бы узнать как сделать чтобы сохранялся список людей которые проходили тест и...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4689 / 3361 / 3983
Регистрация: 05.06.2014
Сообщений: 16,774
05.03.2019, 15:45 2
Цитата Сообщение от Leathc Посмотреть сообщение
в чем ошибка
Тут:
Агазаде Джейхун Эльчинович
3
0
4
4
3
3
н
з
з

з
з
лишняя пустая строка.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.03.2019, 15:45

Вывести список людей, которые родились после указанной даты
Плиз мне нужно вывести список людей которые родились после указанной даты #include <iostream.h>...

Получить список людей, у которых сегодня день рождения
Привет всем. У меня есть БД (MS Access), подключенное через ADOTabel. Вот мне нужно сделать так,...

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


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

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

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