Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
SHKET07
1 / 1 / 0
Регистрация: 01.03.2011
Сообщений: 4
1

Отдельно напечатать список водителей у которых расход топлива более 10 л на 100 км

01.03.2011, 21:14. Просмотров 1002. Ответов 1
Метки нет (Все метки)

Даны массивы
F1....F20 - фамилия водителей
NF1....NF20 -номерные знаки автомашины
S1.....S20 -пройденный за смену путь (км)
RT1.....RT20 -расход топлива за смену (л)

Напечатать список водителей с указанием номерных знаков автомашин,у которых расход топлива на 100км составит от 8 до 10 л.Отдельно напечатать список водителей у которых расход топлива более 10л на 100км.

Ребят,помогите пожалуйста,заранее спасибо
1
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.03.2011, 21:14
Ответы с готовыми решениями:

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

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

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

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

Напечатать списки водителей, перевыполнивших план более чем на 5%
Даны массивы F1...F10 - фамилии водителей S1...S10 - выручка за смену и PL...

1
Brotherhood6
26 / 26 / 34
Регистрация: 01.01.2011
Сообщений: 89
01.03.2011, 23:58 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
uses crt;
const max=30;
type avto=record
          F:string[30];
          NF:integer;
          s:real;
          Rt:real;
          end;
var sp:array[1..max]of avto;v:array[1..200]of real;
    n,i,j,k:integer;
begin
clrscr;
write(' kolichesvo voditelei : ');readln(n);
for i:=1 to n do
 begin
  write(' familiya: '); readln(sp[i].F);
  write(' nomer: ');readln(sp[i].NF);
  write(' put: '); readln(sp[i].s);
  write(' rashod: ');readln(sp[i].Rt);
 v[i]:=sp[i].S/sp[i].Rt
 end;
;writeln('rashod na 100km 8..10l. : ');
for i:=1 to n do
 begin
if (v[i]<=12.5)and (v[i]>=10)then writeln(sp[i].NF);
end;
writeln('rashod bolee 10l na 100km ');
for i:=1 to n do  begin
if v[i]<10 then writeln(sp[i].NF);
end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2011, 23:58

Напечатать список премированных водителей
ниче не понимаю в массивах,на черкайте что нить рабочее плз, практику закрыть...

Напечатать список заводов, у которых экономия электроэнергии составила более 5%
Даны массивы: PR1.....PR9 - наименования заводов; L1.....L9 - лимит...

Напечатать список сотрудников, стаж работы которых более 25 лет
Прошу помогите разобрать задачу 1. Создать набор данных, в котором записи...


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

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

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