|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.12.2011, 16:23 | #1 |
Пользователь
Регистрация: 06.11.2011
Сообщений: 29
|
записи
Сформировать массив студентов из 15 записей, содержащих информацию: фамилия и инициалы, группа, количество выполненных лабораторных работ (1..10). Напечатать фамилии студентов, выполнивших более 6 работ и список студентов, выполнивших менее двух.
type otchet=record fio:string[40]; gr:string[3]; lab:string[10]; end; var zap:array[1..16] of otchet; i,x:byte; begin for i:=1 to 15 do with zap[i] do begin writeln('Введите фамилию и инициалы студента'); readln(fio); writeln('Введите группу студента'); readln(gr); writeln('Введите кол-во выполненных работ'); readln(lab); end; val(lab,x); for i:=1 to 15 do if x>6 then writeln('фамилия студента',zap[i]) else if x<2 then writeln('фамилия студента',zap[i]); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Оцените математической формулой, насколько больше цифр в двоичной записи большого числа, чем в его десятичной записи. | Анюта.Хом | Помощь студентам | 1 | 02.12.2011 23:13 |
Записи | sosbmk | Помощь студентам | 0 | 31.05.2011 18:35 |
записи | Серый777 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 02.06.2010 20:33 |
ЗАПИСИ | Fermer | Помощь студентам | 8 | 12.05.2010 14:01 |
Записи | StudeHt | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 10.05.2009 13:52 |