‘орум программистов, компьютерный форум, киберфорум
Ќаши страницы
Turbo Pascal
¬ойти
–егистраци€
¬осстановить пароль
 
–ейтинг 4.60/5: –ейтинг темы: голосов - 5, средн€€ оценка - 4.60
Xpamou
0 / 0 / 0
–егистраци€: 17.10.2010
—ообщений: 3
#1

Ќапечатать список таксопарков, в которых расход топлива на одну машину больше среднего по всей группе

26.04.2011, 14:33. ѕросмотров 839. ќтветов 1
ћетки нет (¬се метки)

ƒаны массивы :

A1,...,A20 - шифры таксопарков;
K1,...,K20 - количество машин в каждом;
R1,...,R20 - расход топлива в литрах за мес€ц по каждому таксопарку.

Ќапечатать список таксопарков,в которых расход топлива на одну машину больше среднего по всей группе таксопарков.

P.S.в голове представл€ю как это выгл€дит,а вот изложить это в виде программы не получаетс€..
0
Ћучшие ответы (1)
Ќадоела реклама? «арегистрируйтесь и она исчезнет полностью.
Similar
Ёксперт
41792 / 34177 / 6122
–егистраци€: 12.04.2006
—ообщений: 57,940
26.04.2011, 14:33
ќтветы с готовыми решени€ми:

Ќапечатать список таксопарков в которых расход топлива на одну автомашину больше среднего по всей группе таксопарков.
ƒаны ћассивы: A1,..,A20-Ўифры таксопарков; K1,..,K20- кол-во автомашин в...

Ќапечатать список таксопарков, в которых расход топлива на одну автомашину больше среднего
ƒаны массивы: ј1,...,ј20-шифры таксопарков  1,..., 20-колличество машин в...

ќтдельно напечатать список водителей у которых расход топлива 8-10 л на 100 км
ѕомогите решить задачу пожалуйста, заранее спасибо!

ќтдельно напечатать список водителей у которых расход топлива более 10 л на 100 км
ƒаны массивы F1....F20 - фамили€ водителей NF1....NF20 -номерные знаки...

Ќапечатать список таксопарков ,у которых коэффициент выпуска составл€ет 0.5-0.8.
ƒаны массивы: H1..H6-шифры таксопарков. KB1..KB6-колчество...

1
KSTU
9 / 10 / 4
–егистраци€: 25.04.2011
—ообщений: 47
26.04.2011, 14:59 #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
24
25
26
27
28
29
30
31
32
33
34
35
36
program taxopark;
 
const z=100;
 
type
taxi=record
  code:string[10];
  cars:integer;
  fuel:integer;
end;
 
var
a:array[1..z] of taxi;
i,n:integer;
s:real;
 
begin
  writeln('√К√Ѓ√Ђ√®√Ј√•√±√≤√Ґ√Ѓ √≤√*√™√±√Ѓ√ѓ√*√∞√™√Ѓ√Ґ (√ђ√*√™√±√®√ђ√≥√ђ 100)');
  readln(n);
  for i:=1 to n do
  begin
    writeln('√Ш√®√і√∞ √≤√*√™√±√Ѓ√ѓ√*√∞√™√* ¬є',i);
    readln(a[i].code);
    writeln('√К√Ѓ√Ђ√®√Ј√•√±√≤√Ґ√Ѓ √ђ√*√Є√®√*');
    readln(a[i].cars);
    writeln('√Р√*√±√µ√Ѓ√§ √≤√Ѓ√ѓ√Ђ√®√Ґ√* √Ґ √Ђ√®√≤√∞√*√µ √І√* √ђ√•√±√њ√ґ');
    readln(a[i].fuel);
  end;
 
  s:=0;
  for i:=1 to n do
  s:=s+a[i].fuel/a[i].cars;
 
  for i:=1 to n do
  if a[i].fuel>s/n then writeln(a[i].code);
end.
0
MoreAnswers
Ёксперт
37091 / 29110 / 5898
–егистраци€: 17.06.2006
—ообщений: 43,301
26.04.2011, 14:59

ћассивы: Ќапечатать список предпри€тий, у которых велечина фонда на социальное страхование выше средней по группе предпри€тий
ƒаны массивы P1...P10 наименовани€ предпри€тий F1...F10...

ќпределить расход топлива
¬ыручите с задачей,не могу пон€ть как составить формулу. ѕри движении со...

¬ывести список студентов, год рождени€ которых больше среднего года рождени€ группы и мес€ц рождени€ меньше 8
—оставить программу, котора€ обеспечивает ввод с клавиатуры и запись во внешний...


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

»ли воспользуйтесь поиском по форуму:
2
ќтвет —оздать тему
ќпции темы

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