Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
qozyrek
6 / 6 / 5
Регистрация: 19.11.2012
Сообщений: 438
1

Даны 10 автомобилей, мощность их двигателей, расход топлива на 100 км

09.06.2014, 02:10. Просмотров 379. Ответов 1
Метки нет (Все метки)

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

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
  uses 
      crt;
  
  type 
      info = record
   
      Marka : string[45];
      Rashod : integer; 
      Moshnost : integer; 
      
  end;
  
  var 
      i : integer;  
      mashyny : info;
  
begin 
   
   writeln ('Введите сведения о машинах: ');
    
    begin
       
      write ('Введите марку автомобиля: ');
      readln (mashyny.Marka); 
      write ('Введите мощьность двигателя: '); 
      readln (mashyny.moshnost); 
      write ('Введите расход топлива на 100 км: '); 
      readln(mashyny.rashod); 
      writeln;
       
    end;
    
end.
Помогите доделать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.06.2014, 02:10
Ответы с готовыми решениями:

Определить расход топлива
Выручите с задачей,не могу понять как составить формулу. При движении со скоростью 40 км/ч...

Напечатать стоимость каждого из автомобилей, в которых мощность двигателя не превышает 80 л.с.
Известны данные о мощности двигателя (в л.с.) и стоимости 30-ти маркам легковых автомобилей....

Найти стоимость самых дорогих автомобилей, у которых мощность не превышает 80 лошад. сил.
Известны данные о мощности двигателя и стоимости нескольких марок легковых автомобилей. Найти...

Вычислить расход топлива на 100 км
Учебник Стивена Прата "6-е издание Лекции и упражнения" 3 глава 6 задача Напишите программу,...

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

1
qozyrek
6 / 6 / 5
Регистрация: 19.11.2012
Сообщений: 438
10.06.2014, 14:46  [ТС] 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
uses
  crt;
 
const
  n = 10;
 
type
  
  Info = record 
    Marka: string;
    Moschnost_dvigatelya: integer;
    Toplivo: integer;
  
  end;
 
var
  Avto: array[1..n] of Info; 
  found: boolean;
  i, idxi: integer;
 
begin
  found := false;
  for i := 1 to n do 
    with Avto[i] do
    begin
      
      writeln('Ведите данные  ', i, '-й машины: ');
      write('Марка: ');
      readln(Marka);
      write('Мощность двигателя: ');
      readln(Moschnost_dvigatelya);
      write('Расход топлива на 100 км: ');
      readln(Toplivo);
      writeln;
      
    end;
  
  clrscr;
  begin
    for i := 1 to n do
    begin
      if (avto[i].Toplivo > 10) then
      begin
        
        with Avto[i] do
        begin
          idxi := i;
          writeln('Машина, которая потребляет топлива больше 10-ти л на 100 км находится'); 
          writeln('под номером ', idxi, '. Её марка - "', Marka, '". Она потребляет ', Toplivo, 'л/100 км.');
          writeln;
          found := true;
        end;  
      end;
    end; 
  end;
  if found = false then writeln('Такой машины не найдено.');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2014, 14:46

Отдельно напечатать список водителей у которых расход топлива более 10 л на 100 км
Даны массивы F1....F20 - фамилия водителей NF1....NF20 -номерные знаки автомашины S1.....S20...

Рассчитать стоимость бензина, необходимого для поездки на дачу, если известен путь, расход топлива на 100 км и
Рассчитать стоимость бензина, необходимого для поездки на дачу, если известен путь, расход топлива...

Определить общую стоимость автомобилей, у которых мощность двигателя превышает 100 л.с
Известны данные о мощности двигателя (в л. с.) и стоимости 30 легковых автомобилей. Определить...


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

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

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