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

Напишите программу, которая будет вычислять, на какую сумму продал магазин фруктов в каждый из дней

02.11.2012, 20:04. Просмотров 1184. Ответов 1
Метки нет (Все метки)


Фруктовый магазин продает яблоки поштучно по 1 грн., груши по 2 грн., апельсины по 3 грн. В первые два дня недели продано x яблок, y груш, z апельсинов. Напишите программу, которая будет вычислять, на какую сумму продал магазин фруктов в каждый из этих дней.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.11.2012, 20:04
Ответы с готовыми решениями:

Вычислить, на какую сумму продал магазин фруктов в каждый из дней
Фруктовый магазин продает яблоки поштучно по 1 грн., груши по 2 грн., апельсины по 3 грн. В первые...

Напишите программу определения суммы фруктов, которые магазин продал в каждый из дней
Фруктовый магазин продаёт яблоки по А руб.за кг., груши по В руб. за кг., апельсины по С руб. за...

Написать программу, которая будет вычислять среднюю температуру за 4 дня
Всем привет. Нужно написать программу которая будет вычислять среднюю температуру за 4 дня. Вроде...

Построить программу машины Тьюринга, которая будет вычислять функцию
Необходимо построить программу машины Тьюринга, которая будет вычислять функцию f(x,y) = x + y - 1....

1
19 / 18 / 7
Регистрация: 30.09.2012
Сообщений: 35
02.11.2012, 22:49 2
Лучший ответ Сообщение было отмечено Shoko 312 как решение

Решение

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
uses CRT;
var
   a,b,c,i,s:Integer;
   mas : array[1..2] of Integer;
 begin
 
 TextColor(1);
 
 ClrScr;
 
 ReadLn(a);
 WriteLn('Apple = ',a);
 ReadLn(b);
 WriteLn('Peaps = ',b);
 ReadLn(c);
 WriteLn('Oranges = ',c);
 
 for i := 1 to 2 do
    begin
     mas[i] := (a*1)+(b*2)+(c*3);
 
     s := s + mas[i];
    end;
 WriteLn('Otvet = ',s,' griven');
 ReadLn;
 end.
Добавлено через 7 минут
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
uses CRT;
var
   a,b,c,i,s:Integer;
   mas : array[1..2] of Integer;
 begin
 
 TextColor(1);
 
 ClrScr;
 
 ReadLn(a);
 WriteLn('Apple = ',a);
 ReadLn(b);
 WriteLn('Peaps = ',b);
 ReadLn(c);
 WriteLn('Oranges = ',c);
 
 for i := 1 to 2 do
    begin
     mas[i] := (a*1)+(b*2)+(c*3);
 
     s := s + mas[i];
     WriteLn('Sold in ',i,'Day ',s,' Griven')
    end;
 WriteLn('Otvet on all Days = ',s,' griven');
 ReadLn;
 end.
-Добавил информацию о продаже в каждый день.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.11.2012, 22:49

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

Написать программу,которая будет вычислять меньшее из всех чисел
Человек вводит с клавиатуры по одному целому числу. Когда ввод закончен,то вводится строка "end"....


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

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

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