![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
111 |
![]() ![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: ![]() ![]() ![]() |
Здравствуйте!
![]() Подскажите, плиз, как перевести минуты в часы (и обратно) в следующей задачке: В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала m часов, а каждая следующая на 10 минут дольше, чем предыдущая. Сколько часов проработала вся бригада? плиз, люди, подскажите! Задачку нужно сдать уже послезавтра! |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Вообще - то 1 час = 60 минутам (соответственно, минута = 1/60 часа)
![]() |
Дож |
![]()
Сообщение
#3
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 179 Пол: Мужской Репутация: ![]() ![]() ![]() |
Код For i:=0 to N-1 do begin All:=m*60+i*10; end; All:=m/60; -------------------- Доброго времени суток.
:nnn: |
kent |
![]()
Сообщение
#4
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 50 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
У меня вот так получилось...
uses Crt;
var m,N,i : Integer;
Hours,minuten,step : Integer;
begin
Clrscr;
Write('Input N:');
ReadLn(N);
Write('Input m:');
ReadLn(m);
step := m * 60;
minuten := m * 60;
for i := 2 to N do begin
step := step + 10;
minuten := minuten + step;
end;
hours := minuten div 60;
minuten := minuten mod 60;
WriteLn('Works Time:',hours,' hours ',minuten,' minuten;');
ReadKey;
end.
|
klem4 |
![]()
Сообщение
#5
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Цитата cколько часов проработала вся бригада? что-то у тебя многовато переменных ... ![]() uses crt;
var
n,m,i,s : word;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
s := m;
for i := 1 to n-1 do inc(s, i*10 + m);
writeln('All time : ', s div 60,' hours, ', s mod 60,' minuts');
readln;
end.
Сообщение отредактировано: klem4 - 19.11.2005 19:38 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
kent |
![]()
Сообщение
#6
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 50 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Цитата что-то у тебя многовато переменных ... klem4, у тебя программа неправильно работает... ![]() n=3 m=1 All Time: 0 hours, 33 minuts Сообщение отредактировано: kent - 19.11.2005 20:08 |
volvo |
![]()
Сообщение
#7
|
Гость ![]() |
To: klem4
арифметическую прогрессию не напоминает? ![]() uses crt;
var
n, m, s : word;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
s := n * trunc((2 * m * 60 + (n - 1) * 10) / 2);
writeln(s div 60, ' hrs ', s mod 60, ' mins');
readln;
end.
|
klem4 |
![]() ![]()
Сообщение
#8
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
все правильно 1 + 11 + 21 = 33
гага только я считал в минутах!!! а не в часах (типа m минут)))) Да, тогда это не то. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
APAL |
![]()
Сообщение
#9
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
To: klem4
Сдается мне, что цикл надо с нуля начинать, т.к. первая косилка без 10-ти минутной "добавки"...
For i:=0 to N-1 do
Sum:=Sum+m*60+i*10;
Hour:=Sum div 60; {часы}
Min:=Sum mod 60; {минуты}
P.S.: Каюсь, не проверял, тут писал... -------------------- |
klem4 |
![]()
Сообщение
#10
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Apal, моя прога вообще не то считает что нужно, я же писал, но вроде если считать правильным мой вариань рассуждений, что m - минуты, то все норм работает ... Хотя это собственно не важно
![]() Вот если надо мое доделаное решение через цикл uses crt;
var
n,m,i,s : word;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
m := m * 60;
s := m;
for i := 1 to n-1 do inc(s, i*10 + m);
writeln('All time : ', s div 60,' hours, ', s mod 60,' minuts');
readln;
end.
хехе щас проглядел месаджы, это предложил дож в 3 посте ![]() Сообщение отредактировано: klem4 - 20.11.2005 16:53 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
![]() |
Текстовая версия | 25.07.2025 10:10 |