|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.05.2012, 19:46 | #1 |
Новичок
Джуниор
Регистрация: 31.05.2012
Сообщений: 2
|
Создать типизированный файл (Паскаль АВС)
Создать типизированный файл, содержащий информацию о расписании учителя (номер урока, время начала урока, класс, предмет, номер кабинета). Разработать программу, выводящую на экран расписание учителя в виде таблицы.
Вот программа: Const n=10; Type raspisanie=record vremea,klass,predmet:string[10]; nomeru,nomerk:integer; end; Var a:array[1..n] of raspisanie; i:integer; Begin for i:=1 to n do with a[i] do begin Writeln('Введите номер урока '); Readln(nomeru); Writeln('Введите время начала урока'); Readln(vremea); Writeln('Введите класс'); Readln(klass); Writeln('Введите предмет'); Readln(predmet); Writeln('Введите номер кабинета'); Readln(nomerk); end; writeln('__________________________ ___________________________________ __'); writeln('| № урока | Время | Класс | Предмет |№ кабинета|'); writeln('__________________________ ___________________________________ __'); for i:=1 to n do with a[i] do writeln ('|',nomeru:8,' | ',vremea:6,' | ',klass:10,' | ',predmet:15,' | ',nomerk:5,' |'); writeln('__________________________ ___________________________________ __'); End. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создать типизированный файл n действительных чисел. | technomaster | Помощь студентам | 13 | 10.03.2012 13:05 |
Требуется создать типизированный файл записей | sifa | Помощь студентам | 6 | 07.12.2011 23:16 |
Создать типизированный файл | Asell | Помощь студентам | 1 | 26.04.2011 16:45 |
Как создать типизированный файл? | Байконуровец | Общие вопросы Delphi | 8 | 26.01.2011 17:25 |
Как создать типизированный файл | Kosya4ok | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 16.12.2007 09:29 |