Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 29.02.2016
Сообщений: 10
1

Поиск средней скорости автомобиля на пути от пункта А до пункта D

28.03.2016, 14:54. Показов 1256. Ответов 3
Метки нет (Все метки)

Здравствуйте! Не могу понять как составить программу.
С клавиатуры вводятся значения расстояний на участках AB, BC и CD и времени движения автомобиля на каждом участке. Составить программу поиска средней скорости автомобиля на пути от пункта А до пункта D, вычислив скорости на участках АB, BC, CD. Поиск скорости на указанных участках оформить в виде подпрограммы.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2016, 14:54
Ответы с готовыми решениями:

вычисление средней скорости автомобиля
Привет всем я тут новенький. Облазил все форумы но никаких результатов(( Помогите написать...

Поезд едет из пункта А в пункт Б со средней скоростью V
Поезд едет из пункта А в пункт Б со средней скоростью V. Составить программу для нахождения времени...

Выделение пункта меню при наведении - только текст или весь блок пункта
Всем привет.Есть меню, при наведении появляется hover но он идет строго по тексту... Можно ли его...

Как вычислить середину высоты пункта родительского меню для выравнивания дочернего пункта
Нужно расположить открывающийся дочерний пункт меню (третьего уровня) его верхней границей по...

3
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
28.03.2016, 15:05 2
Pascal
1
2
v:=t/s;//скорость на участке
sr:=(s1+s2+s3)/(t1+t2+t3);//средняя скорость на пути от А до D
0
0 / 0 / 0
Регистрация: 29.02.2016
Сообщений: 10
28.03.2016, 23:05  [ТС] 3
Спасибо)Извините,что беспокою Вас,голова уже не работает.Можете написать всю программу.Я не могу понять,что писать в блоке описания.

Добавлено через 26 минут
Вот что у меня получилось
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var v1,v2,v3,t1,t2,t3,p1,p2,p3,sr:integer;
Procedure s(x,y:integer;Var p:integer);
Begin
???
end;
Begin
Writeln('Введите расстояние и время на участках AB,BC,CD');
Readln(p1,t1,p2,t2,p3,t3);
s(v1,t1,p1);
s(v2,t2,p2);
s(v3,t3,p3);
sr:=(s1+s2+s3)/(t1+t2+t3);
Writeln(sr);
End.
0
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
29.03.2016, 08:15 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function V(s,t:real):real;
begin
V:=s/t;
end;
var v1,v2,v3,t1,t2,t3,p1,p2,p3,sr:real;
Begin
Writeln('Введите расстояние и время на участках AB,BC,CD');
Readln(p1,t1,p2,t2,p3,t3);
v1:=V(p1,t1);
v2:=V(p2,t2);
v3:=V(p3,t3);
//sr:=(p1+p2+p3)/(t1+t2+t3);//правильно так
//но возможно здесь подразумевается среднее из трех, иначе зачем эта функция
sr:=(v1+v2+v2+v3)/3;
Writeln('Средняя скорость=',sr:0:2);
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.03.2016, 08:15

Укажите номер таблицы, для которой выполняется условие «Максимальная протяженность маршрута от пункта А до пункта С не больше 5
2) В таблицах приведена протяженность автомагистралей между соседними населенными пунктами. Если...

Равномерное ДВИЖЕНИЕ тела из пункта А в пункт В движется велосипедист с постоянной скоростью V через 0.5 часа после его старта из пункта а стартовал в
Равномерное ДВИЖЕНИЕ тела из пункта А в пункт В движется велосипедист с постоянной скоростью V...

Самолет летит из пункта А в пункт В со средней скоростью V.Составить программу нахождения времени в полете
лаба 4 Самолет летит из пункта А в пункт В со средней скоростью V.Составить программу нахождения...

Определение минимального по "стоимости" пути из пункта 1 в пункт N
var A:array of Byte; function Test: Boolean; var i,j:Integer; begin Test:=False; ...


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

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

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