Помогите решить задачку .

@nikrzd · Регистрация: 23.02.2009

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

Всем привет , я тока начинаю разбираться в паскале .
Помогите.
1.5. Пусть даны четыре целых числа (hour, min, sec, time). Первые три (hour, min, sec) – это время запуска ракеты в часах, минутах, секундах, четвёртое time определяет время полёта в секундах. Найдите и напечатайте время возращения ракеты на землю.

program test;
uses crt;
var h,m,s,t,tim,min:integer;

begin
clrscr;
Writeln ('Vvedite vremya puska raketi ');
Readln (h,m,s);
Writeln ('Vremya poleta v secundax ');
Readln (t);
min:=t div 60;
if min>=60 then h:=min+h
else m:=min+m;
Writeln ('Tipa stolko ',min,' Hours ',h,' Minuts ',m,' Sekund ',s);
Readln;
end.
ReadLn;

Блин немогу понять как сделать , чтобы вычислялись часы и минуты из введенного t

@GalaX · 23.02.2009, 07:55

попробуй примерно так:

Код

min := t div 60;
sec := t mod 60;
inc(m, min);
inc(s, sec);
min := m div 60;
dec(m, min);
inc(h, min);

Добавлено через 6 минут 9 секунд
зы: блин, или я чет ваще не то загнул?

@nikrzd · 23.02.2009, 08:01 **[ТС]**

Видишь , что нужно , когда ввели t я думаю , что его нужно перевести в минуты или в часы , если в часы то чтобы и минуты тоже вычислились , я так нимаю это будет остаток от целой части часа . и все это дело прибавить к введенному ранее времяни соответственно часы к часам минуты к минутам .
Я блин щас немогу понять почему min:=t div 60;
3600/60=1 , а тут пишет что равно 60 ???

@GalaX · 23.02.2009, 08:03

вот так походу правильно:

Код

sec := (t mod 60) + s;
min := (t div 60) + m;
sec := sec mod 60;
hour := (min div 60) + h;
min := min mod 60;

@Puporev · 23.02.2009, 08:03

3600/60=1

Это круто! Учите арифметику. Задача то не на программирование, а на арифметику за 3-4 класс.

@nikrzd · 23.02.2009, 08:09 **[ТС]**

Путаюсь , операторы еще не знаю , еще все это дело вычислить надо =)

Подскажите =)
Как.

@GalaX · 23.02.2009, 08:11

у меня во второй строке ошибка была, переправил код

@Puporev · 23.02.2009, 08:11

Переведи время старта в секунды, используй тип Longint. Потом прибавь время полета, потом обратно в часы, минуты, секунды. Если получится больше 24 часов, отнимешь 24 часа.

@GalaX · 23.02.2009, 08:27

Сообщение от Puporev

Если получится больше 24 часов, отнимешь 24 часа.

лучше не отнимать, а задать mod 24 - это на тот случай если вдруг время полета будет идти несколько суток

@nikrzd · 23.02.2009, 08:34 **[ТС]**

Galax это ты находишь остаток от целочисленного деления я так понимаю ,

@GalaX · 23.02.2009, 08:36

div - целочисленное деление
mod - остаток от деления

@nikrzd · 23.02.2009, 10:27 **[ТС]**

Так перевел в секунды , а куда прибавлять время полета ?
к часам или секундам или минутам ?

@Puporev · 23.02.2009, 11:19

если вдруг время полета будет идти несколько суток

Если так, то время полета в секундах не задают.

@nikrzd 0 / 0 / 0 Регистрация: 23.02.2009 Сообщений: 17
	23.02.2009, 10:27 [ТС]	12
	Так перевел в секунды , а куда прибавлять время полета ? к часам или секундам или минутам ? 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	23.02.2009, 11:19	13
	если вдруг время полета будет идти несколько суток Если так, то время полета в секундах не задают. 0

Новые блоги и статьи Все статьи Все блоги /
Ошибка "Cleartext HTTP traffic not permitted" в Android hw_wired 13.02.2025 При разработке Android-приложений можно столнуться с неприятной ошибкой "Cleartext HTTP traffic not permitted", которая может серьезно затруднить отладку и тестирование. Эта проблема особенно. . .	Изменение версии по умолчанию в NVM hw_wired 13.02.2025 Node Version Manager, или коротко NVM - незаменимый инструмент для разработчиков, использующих Node. js. Многие сталкивались с ситуацией, когда разные проекты требуют различных версий Node. js,. . .	Переименование коммита в Git (локального и удаленного) hw_wired 13.02.2025 Git как система контроля версий предоставляет разработчикам множество средств для управления этой историей, и одним из таких важных средств является возможность изменения сообщений коммитов. Но зачем. . .	Отличия Promise и Observable в Angular hw_wired 13.02.2025 В веб-разработки асинхронные операции стали неотъемлимой частью почти каждого приложения. Ведь согласитесь, было бы странно, если бы при каждом запросе к серверу или при обработке больших объемов. . .	Сравнение NPM, Gulp, Webpack, Bower, Grunt и Browserify hw_wired 13.02.2025 В современной веб-разработке существует множество средств сборки и управления зависимостями проектов, каждое из которых решает определенные задачи и имеет свои особенности. Когда я начинаю новый. . .
Отличия AddTransient, AddScoped и AddSingleton в ASP.Net Core DI hw_wired 13.02.2025 В современной разработке веб-приложений на платформе ASP. NET Core правильное управление зависимостями играет ключевую роль в создании надежного и производительного кода. Фреймворк предоставляет три. . .	Отличия между venv, pyenv, pyvenv, virtualenv, pipenv, conda, virtualenvwrapper, poetry и другими в Python hw_wired 13.02.2025 В Python существует множество средств для управления зависимостями и виртуальными окружениями, что порой вызывает замешательство даже у опытных разработчиков. Каждый инструмент создавался для решения. . .	Навигация с помощью React Router hw_wired 13.02.2025 React Router - это наиболее распространенное средство для создания навигации в React-приложениях, без которого сложно представить современную веб-разработку. Когда мы разрабатываем сложное. . .	Ошибка "error:0308010C:digital envelope routines::unsupported" hw_wired 13.02.2025 Если вы сталкиваетесь с ошибкой "error:0308010C:digital envelope routines::unsupported" при разработке Node. js приложений, то наверняка уже успели поломать голову над её решением. Эта коварная ошибка. . .	Подключение к контейнеру Docker и работа с его содержимым hw_wired 13.02.2025 В мире современной разработки контейнеры Docker изменили подход к созданию, развертыванию и масштабированию приложений. Эта технология позволяет упаковать приложение со всеми его зависимостями в. . .

@nikrzd 0 / 0 / 0 Регистрация: 23.02.2009 Сообщений: 17
		1
	Помогите решить задачку . 23.02.2009, 07:26. Показов 6567. Ответов 12 Метки нет (Все метки) Всем привет , я тока начинаю разбираться в паскале . Помогите. 1.5. Пусть даны четыре целых числа (hour, min, sec, time). Первые три (hour, min, sec) – это время запуска ракеты в часах, минутах, секундах, четвёртое time определяет время полёта в секундах. Найдите и напечатайте время возращения ракеты на землю. program test; uses crt; var h,m,s,t,tim,min:integer; begin clrscr; Writeln ('Vvedite vremya puska raketi '); Readln (h,m,s); Writeln ('Vremya poleta v secundax '); Readln (t); min:=t div 60; if min>=60 then h:=min+h else m:=min+m; Writeln ('Tipa stolko ',min,' Hours ',h,' Minuts ',m,' Sekund ',s); Readln; end. ReadLn; Блин немогу понять как сделать , чтобы вычислялись часы и минуты из введенного t 0

@GalaX 701 / 573 / 59 Регистрация: 18.11.2008 Сообщений: 2,147
	23.02.2009, 07:55	2
	попробуй примерно так: Код min := t div 60; sec := t mod 60; inc(m, min); inc(s, sec); min := m div 60; dec(m, min); inc(h, min); Добавлено через 6 минут 9 секунд зы: блин, или я чет ваще не то загнул? 0

@nikrzd 0 / 0 / 0 Регистрация: 23.02.2009 Сообщений: 17
	23.02.2009, 08:01 [ТС]	3
	Видишь , что нужно , когда ввели t я думаю , что его нужно перевести в минуты или в часы , если в часы то чтобы и минуты тоже вычислились , я так нимаю это будет остаток от целой части часа . и все это дело прибавить к введенному ранее времяни соответственно часы к часам минуты к минутам . Я блин щас немогу понять почему min:=t div 60; 3600/60=1 , а тут пишет что равно 60 ??? 0

@GalaX 701 / 573 / 59 Регистрация: 18.11.2008 Сообщений: 2,147
	23.02.2009, 08:03	4
	вот так походу правильно: Код sec := (t mod 60) + s; min := (t div 60) + m; sec := sec mod 60; hour := (min div 60) + h; min := min mod 60; 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	23.02.2009, 08:03	5
	3600/60=1 Это круто! Учите арифметику. Задача то не на программирование, а на арифметику за 3-4 класс. 0

@nikrzd 0 / 0 / 0 Регистрация: 23.02.2009 Сообщений: 17
	23.02.2009, 08:09 [ТС]	6
	Путаюсь , операторы еще не знаю , еще все это дело вычислить надо =) Подскажите =) Как. 0

@GalaX 701 / 573 / 59 Регистрация: 18.11.2008 Сообщений: 2,147
	23.02.2009, 08:11	7
	у меня во второй строке ошибка была, переправил код 0

@GalaX 701 / 573 / 59 Регистрация: 18.11.2008 Сообщений: 2,147
	23.02.2009, 08:27	9
	Сообщение от Puporev Если получится больше 24 часов, отнимешь 24 часа. лучше не отнимать, а задать mod 24 - это на тот случай если вдруг время полета будет идти несколько суток 0

@nikrzd 0 / 0 / 0 Регистрация: 23.02.2009 Сообщений: 17
	23.02.2009, 08:34 [ТС]	10
	Galax это ты находишь остаток от целочисленного деления я так понимаю , 0

@GalaX 701 / 573 / 59 Регистрация: 18.11.2008 Сообщений: 2,147
	23.02.2009, 08:36	11
	div - целочисленное деление mod - остаток от деления 0

	23.02.2009, 07:26

Опции темы