Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Блок схема для задачи, Задача в Pascal 
:(
    Опции темы
NewStudent01
Дата 24.12.2017, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 24.12.2017

Репутация: нет
Всего: нет



Господа,нужна Ваша профессиональная помощь. Задача следующая. Составить программу, выводящую на экран расписание учителя (номер урока, время начала урока, класс, предмет, номер кабинета). Данные хранить в структуре – запись.

Сама программа составлена в Pascal. Нужна лишь блок-схема. Помогите её составить.  smile 
Код

type
tovar = record
nu:integer; 
vn: string;
kl: string;
pr: string;
nk: integer;
end;
var
mas: array[1..10] of tovar;
n,i: integer;

procedure input;
begin
writeln('Запись №',i);
write('Номер урока: ');
readln(mas[i].nu);
write('Время начала: ');
readln(mas[i].vn);
write('Класс: ');
readln(mas[i].kl);
write('Предмет ');
readln(mas[i].pr);
write('Номер кабинета ');
readln(mas[i].nk);
writeln;
end;

procedure output;
begin
writeln(mas[i].nu:13, ' | ', mas[i].vn:15, ' | ', mas[i].kl:10, ' | ', mas[i].pr:15, ' | ', mas[i].nk:15, ' | ');
end;

begin
writeln('Количество записей:');
readln(n);

writeln;
writeln('Введите данные об уроках ');
for i:=1 to n do
input;

writeln;
writeln('Расписание учителя');
writeln('Номер урока':13, ' | ', 'Время начала':15, ' | ', 'Класс': 10, ' | ', 'Предмет':15,' | ','Номер кабинета':15,' | ');
for i:=1 to n do
output;
end.


Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  Паскаль_2_ЛР.pas 1,14 Kb
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0935 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.