Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
YniRus
7 / 7 / 4
Регистрация: 13.12.2011
Сообщений: 124
1

По заданным значениям вычислить и выдать время окончаний школьных уроков

28.02.2012, 19:32. Просмотров 553. Ответов 9
Метки нет (Все метки)

по идее она должна по заданным значениям вычислять и выдавать время окончаний школьных уроков. но что то ни как! помогите кто сможет) заранее спасибо
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a,b,c,d,f: integer;
q,w,e,r:integer;
p:integer;
begin
write('Введите длительность урока:');
 readln(a);
 write('Введите длительность перемены:');
 readln(b);
 Write('Введите время начала уроков(через пробел):');
 readln(c,d);
 begin
  for F:=1 to 8 do
  begin
   q:=c; w:=d+a*f+b*(f-1);
   if p=f-1 then w:=w-60;
                 q:=q+1;
   write('Часов: ',q);writeln(' Минут: ',w);
  end;
 end;
end.
Добавлено через 42 минуты
ну помогите плиз
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2012, 19:32
Ответы с готовыми решениями:

Вычислить значение выражения по заданным значениям a и b...
Даны целые числа а, b, действительное число c. Вычислить:

По заданным значениям расценок SА, SВ, SС за выполненную работу по сборке единицы изделия категорий А, В, С соответственно,выдать на печать информацию
1) Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочим за...

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

Как найти время работы алгоритма, по заданным значениям?
Помогите пожалуйста найти время работы: Пусть время работы алгоритма Т(N) = O(logN). Если 2000...

По заданным значениям Х[20\, У[20] вычислить
По заданным значениям Х вычислить D E L E T E D

9
Coohper
38 / 38 / 29
Регистрация: 18.10.2011
Сообщений: 91
28.02.2012, 20:42 2
Посмотри, вроде так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var a,b,c,d,f: integer;
q,w,e,r:integer;
p:integer;
begin
write('Ââåäèòå äëèòåëüГ*îñòü óðîêГ*:');
 readln(a);
 write('Ââåäèòå äëèòåëüГ*îñòü ïåðåìåГ*Г»:');
 readln(b);
 Write('Ââåäèòå âðåìÿ Г*Г*Г·Г*Г«Г* óðîêîâ(÷åðåç ïðîáåë):');
 readln(c,d);
 begin
  for F:=1 to 8 do
  begin
   w:=b+a+w;If f=1 then w:=w+d;
   While w>=60 do
            begin
             w:=w-60;
             c:=c+1;
             end;
   end;
   write('Г—Г*ñîâ: ',c);writeln(' ГЊГЁГ*ГіГІ: ',w);
 end;
end.
0
YniRus
7 / 7 / 4
Регистрация: 13.12.2011
Сообщений: 124
28.02.2012, 21:01  [ТС] 3
нет не работает!
0
Coohper
38 / 38 / 29
Регистрация: 18.10.2011
Сообщений: 91
28.02.2012, 21:03 4
А что не так?
0
YniRus
7 / 7 / 4
Регистрация: 13.12.2011
Сообщений: 124
29.02.2012, 14:04  [ТС] 5
вы дает одно значение.
0
Coohper
38 / 38 / 29
Регистрация: 18.10.2011
Сообщений: 91
29.02.2012, 15:43 6
Какое?
0
YniRus
7 / 7 / 4
Регистрация: 13.12.2011
Сообщений: 124
29.02.2012, 17:00  [ТС] 7
"Часов: 15 Минут: 10" вот
0
Coohper
38 / 38 / 29
Регистрация: 18.10.2011
Сообщений: 91
29.02.2012, 17:07 8
Новый точечный рисунок.rar
0
YniRus
7 / 7 / 4
Регистрация: 13.12.2011
Сообщений: 124
29.02.2012, 18:04  [ТС] 9
да вот это
0
Coohper
38 / 38 / 29
Регистрация: 18.10.2011
Сообщений: 91
29.02.2012, 18:08 10
А в чем ошибка то? Как введешь так и выводит, разве что можно еще сделать задаваемое количество уроков
0
29.02.2012, 18:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.02.2012, 18:08

по заданным значениям X[20],Y[20] вычислить
Помогите начинающему студенту.Заранее благодарю!!!

По заданным значениям x, y, z вычислить значения u
по заданым значениям x,y,z вычислить значения u...

По заданным значениям вычислить функцию
Помогите, пожалуйста, люди добрые, завтра зачет нужно решить задачку на паскале:help: По...


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

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

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