0 / 0 / 0
Регистрация: 29.09.2015
Сообщений: 4
1

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

29.09.2015, 19:36. Показов 1494. Ответов 3
Метки нет (Все метки)

Известны данные о мощности двигателя (в л.с.) и стоимости 30-ти маркам легковых автомобилей. Напечатать стоимость каждого из автомобилей, в которых мощность двигателя не превышает 80 л.с.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.09.2015, 19:36
Ответы с готовыми решениями:

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

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

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

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

3
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
29.09.2015, 19:53 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
const
    n = 30;
type
    TCar = record
        Power: Word;
        Cost: LongWord;
    end;
var
    mas: Array[1..n] Of TCar;
    i: Byte;
    sum: LongWord;
begin
    WriteLn('Data about each car.'); WriteLn;
    sum := 0; Randomize;
    for i := 1 to n do
        with mas[i] do
        begin
            Power := Random(1000); Cost := Random(143165570); WriteLn('Power: ', Power, #9, 'Cost: ', Cost);
            if (Power <= 80)
            then
                Inc(sum, Cost);
        end;
    WriteLn; WriteLn('sum: ', sum);
end.
0
0 / 0 / 0
Регистрация: 29.09.2015
Сообщений: 4
29.09.2015, 19:59  [ТС] 3
Спасибо большое!
0
JokeR.BY
29.09.2015, 20:01     Напечатать стоимость каждого из автомобилей, в которых мощность двигателя не превышает 80 л.с.
  #4

Не по теме:

интересно, хоть один (если это не тот же самый) читал код? и что будет, если там "незаметно" в цикле выводить на экран слово из трёх букв?)

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.09.2015, 20:01

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru