Составить программу, подсчитывающую выручку

@yakovdi1996 · Регистрация: 28.12.2016

Студворк — интернет-сервис помощи студентам

Составить программу, подсчитывающую выручку от продаж в каждом месяце, учитывая все места отдыха. Результатом работы программы являются 3 значения: сумма выручки за июль, сумма выручки за август, сумма выручки за сентябрь.

Сведения о продажах путевок представлены в виде таблицы:

@Comrade2017 · 30.12.2016, 17:02

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program fff;
 uses crt;
  var
  i,k,g,h:longint;
begin
  i:=12400;
  k:=255;
  i:=i*k;
  write(i);
  writeln('');
  i:=12400;
 g:=203;
 i:=i*g;
 write(i);
 writeln('');
 i:=12400;
 h:=198;
 i:=i*h;
 write(i);
end.

@bormant · 30.12.2016, 17:32

Comrade2017,
Зачем подключать Crt, если его не использовать?
В остальном, вы, вероятно, хотели написать:

Pascal
1
2
3
4
const p=12400;
begin
  WriteLn(255*p,' ',203*p,' ',198*p);
end.

Но задание было несколько иным.

@Comrade2017 · 31.12.2016, 03:55

можно так

Добавлено через 1 минуту
const p=12400;
можно так
P:=12400;

@bormant · 31.12.2016, 14:12

Сообщение от yakovdi1996

Результатом работы программы являются 3 значения: сумма выручки за июль, сумма выручки за август, сумма выручки за сентябрь.

Pascal
1
2
3
4
5
6
7
8
9
10
var p, s7, s8, s9, t7, t8, t9: Real; t: String;
begin
  WriteLn('Введите данные, окончание - пустая строка:');
  repeat
    Write('Место: '); ReadLn(t); if t='' then Break;
    Write('Количество за июль, август, сентябрь, цена: '); ReadLn(t7,t8,t9,p);
    s7:=s7+t7*p; s8:=s8+t8*p; s9:=s9+t9*p;
  until False;
  WriteLn('Итого июль: ',s7:0:0,' август: ',s8:0:0,' сентябрь: ',s9:0:0);
end.

@bormant · 31.12.2016, 14:18

Сообщение от Comrade2017

можно так

можно, но зачем?

@Comrade2017 · 31.12.2016, 15:47

конечно

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@yakovdi1996 0 / 0 / 0 Регистрация: 28.12.2016 Сообщений: 6

	Составить программу, подсчитывающую выручку 28.12.2016, 18:10. Показов 630. Ответов 6 Метки нет (Все метки) Составить программу, подсчитывающую выручку от продаж в каждом месяце, учитывая все места отдыха. Результатом работы программы являются 3 значения: сумма выручки за июль, сумма выручки за август, сумма выручки за сентябрь. Сведения о продажах путевок представлены в виде таблицы: 0

@Comrade2017 7 / 7 / 5 Регистрация: 30.12.2016 Сообщений: 100
	31.12.2016, 03:55
	можно так Добавлено через 1 минуту const p=12400; можно так P:=12400; 0

@Comrade2017 7 / 7 / 5 Регистрация: 30.12.2016 Сообщений: 100
	31.12.2016, 15:47
	конечно 0