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

Гонщик принял участие в 6 заездах.При условии хранения информации о скорости в каждом заезде в записи определить среднюю скорость гонщика.

20.01.2013, 08:03. Просмотров 1137. Ответов 2
Метки нет (Все метки)

Гонщик принял участие в 6 заездах.При условии хранения информации о скорости в каждом заезде в записи определить среднюю скорость гонщика. (Пожалуйста с коментариями)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2013, 08:03
Ответы с готовыми решениями:

Записи. Гонщик принял участие в шести заездах, определить среднюю скорость гонщика
Гонщик принял участие в шести заездах. При условии хранения информации о скорости в каждом заезде в...

Определить путь, пройденный за время, среднюю скорость, мгновенную скорость, ускорение, силу, кинетическую энергию, импульс
Доброго времени суток, товарищи физики! Возможно кто-нибудь сможет помочь с решением двух задач:...

Определить сколько людей приняли участие в каждом совещании
В одно и то же время в соседних конференц-залах проходят два совещания. Известно количество...


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

Или воспользуйтесь поиском по форуму:
2
3445 / 2383 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
20.01.2013, 10:42 2
Лучший ответ Сообщение было отмечено Homma как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  n=6;    //количество заездов
type      //задаем запись
  gon=record
       v: real; //поле записи одно - скорость
  end;
var
  a: array[1..n] of gon;  //массив записей
  i: byte;
  s: real;
begin
  s:=0;
  for i:=1 to n do     //цикл от одного до 6-ти
    with a[i] do      //действия производим с массивом записей
    begin
      write('Скорость ',i,'-го заезда: ');  //приглашение на ввод очередной скорости
      readln(v);      //считываем скорость
      s:=s+v;         //прибавляем к сумме
    end;
  writeln('Средняя скорость заезда = ',s/n:0:2);  //сумма деленная на количество заездов - средняя скорость
end.
1
0 / 0 / 0
Регистрация: 20.01.2013
Сообщений: 17
20.01.2013, 11:07  [ТС] 3
Большое спасибо
0
Ответ Создать тему
Опции темы

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