Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
SHKET07
1 / 1 / 0
Регистрация: 01.03.2011
Сообщений: 4
#1

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

01.03.2011, 21:14. Просмотров 490. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Отдельно напечатать список водителей у которых расход топлива более 10 л на 100 км (Turbo Pascal):

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

Напечатать список таксопарков, в которых расход топлива на одну автомашину больше среднего - Turbo Pascal
Даны массивы: А1,...,А20-шифры таксопарков К1,...,К20-колличество машин в каждом R1,...,R20-расход топлива в литрах(л) за месяц по...

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

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

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

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

1
Brotherhood6
26 / 26 / 14
Регистрация: 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 %. - Turbo Pascal
Даны массивы h1,..,h7 -шифры цехов; l1,..,l7-лимит электро энергии,кВт.ч ;r1,..,r7-израсходованная электроэнергия ,кВт.ч ; напечатать...

Напечатать список сотрудников, стаж работы которых более 25 лет - Turbo Pascal
Прошу помогите разобрать задачу 1. Создать набор данных, в котором записи имеют структуру: ОТДЕЛ, ФИО, ДОЛЖНОСТЬ, ОКЛАД, СТАЖ РАБОТЫ,...

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

Напечатать список премированных водителей с указанием суммы - Pascal
Var Pr,P,R:array of real; F:array of string; S,FOND:real; i:byte; t:text; begin clrscr; s:=0;FOND:=0; ...


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

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

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