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

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

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

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

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

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

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

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

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

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

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

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

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
ѕривет! ¬от еще темы с решени€ми:

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

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

Ќапечатать список автомашин с указанием nz, f, pr, у которых среднегодовой пробег больше средней дл€ всех автомашин величины
ƒаны массивы NZ1,..NZ15 - номерные знаки . F1,...,F15- фамилии водителей ,...

¬ывести на экран ‘»ќ студентов, средний балл которых выше среднего балла всей группы
дана группа студентов котора€ сформирована ‘»ќ. номер группы и 5 оценок....


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

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

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