Получить расписание звонков на весь учебный день

@Quantity · Регистрация: 06.06.2012

Author24 — интернет-сервис помощи студентам

Задали на дом задачку.. в паскале вообще ни ногой, только Си.. спасайте, форумчане)

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

@КонецСвета · 28.06.2013, 16:07

кажись, так

Pascal

uses crt;
var chasov,minut,urok,peremena,i,k: byte;
    
begin
write('Начало уроков: '); readln(chasov);
write('Длительность урока: '); readln(urok);
write('Длительность перемены: '); readln(peremena);
write('Количество уроков: '); readln(k);
clrscr;
writeln('РАСПИСАНИЕ УРОКОВ');
for i:=1 to k do
    begin
    write(i:3,' урок   ');
    chasov:=chasov+minut div 60;
    minut:=minut mod 60;
    write(chasov:2,':',minut:2,' - ');
    minut:=minut+urok;
    chasov:=chasov+minut div 60;
    minut:=minut mod 60;
    writeln(chasov:2,':',minut:2);
    minut:=minut+peremena;
    end;
end.

или с выравниванием )

Pascal

uses crt;
var chasov,minut,urok,peremena,i,k: byte;
    
begin
write('Начало уроков: '); readln(chasov);
write('Длительность урока: '); readln(urok);
write('Длительность перемены: '); readln(peremena);
write('Количество уроков: '); readln(k);
clrscr;
writeln('РАСПИСАНИЕ УРОКОВ');
for i:=1 to k do
    begin
    write(i:3,' урок   ');
    chasov:=chasov+minut div 60;
    minut:=minut mod 60;
    if chasov<10 then write(0);
    write(chasov,':');
    if minut<10 then write(0);
    write(minut,' - ');
    minut:=minut+urok;
    chasov:=chasov+minut div 60;
    minut:=minut mod 60;
    if chasov<10 then write(0);
    write(chasov,':');
    if minut<10 then write(0);
    writeln(minut);
    minut:=minut+peremena;
    end;
end.

@Quantity 13 / 13 / 2 Регистрация: 06.06.2012 Сообщений: 136
		1
	Получить расписание звонков на весь учебный день 28.06.2013, 15:06. Показов 4112. Ответов 1 Метки нет (Все метки) Задали на дом задачку.. в паскале вообще ни ногой, только Си.. спасайте, форумчане) В учебном заведении задается начало учебного дня в часах,продолжительность урока в минутах ,перемен в минутах и количество уроков.получить расписание звонков на весь учебный день.гарантируется что все уроки заканчиваются до полуночи 0

	28.06.2013, 16:07

Получить расписание звонков на весь учебный день

Решение