Программа продажи игрушек

@Petro29 · Регистрация: 30.04.2016

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

Это мои размышления о такой программе:

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses Crt;
Var N, M: Integer;
begin
ClrScr;
WriteLn(‘ Мальчик, сколько ты продал игрушек?’);
   Write(‘ Я продал штук ‘);
      ReadLn(N);
WriteLn(‘ А сколько осталось?’);
      ReadLn(M);
   ReadLn
end.

На выходе имеем:

Pascal
1
2
3
4
Мальчик, сколько ты продал игрушек?
Я продал штук 25
А сколько осталось?
Осталось штук 12

С таким исполнением получается, что продал штук 25;
то есть примерно штук 25 (может больше, может меньше)
Осталось штук 12 (то есть примерно штук 12)
А надо чтобы было так: Продал 25 штук. (это точность)
Осталось 12 штук (также точность)
Думаю, Вы поняли разницу исполнений.

Pascal
1
2
Ведь для подобных программ принято писать:
     Write(‘ Купил яблок (кг) ‘);  ReadLn(N);

А надо бы делать так:

Pascal
1
Write(‘ Купил N  кг яблок’);

На эту тему была программа про мальчика – сколько ему лет?
Вами было сделано: Мне 16 лет. (то что надо)
Но уж очень сложная программа, да и последняя строка
оказалась с дефектом:
Ого! Целых 0 лет. Да ты совсем взрослый !
Так можно сделать так как надо без примерных
ответов, но проще?

@кот Бегемот · 07.11.2019, 15:48

Зачем вам в readLn дополнение 'я продал', если Вы его сами вводите?
Или добавьте слово 'штук' отдельной командой после read

@Petro29 · 16.02.2020, 10:43 **[ТС]**

Была программа с таким выходом:
Мальчик, сколько ты продал игрушек?
Я продал штук 25
А сколько осталось?
Осталось штук 12
Т. е. продал примерно 25 штук. Осталось примерно 12 штук.
А надо чтобы было так: Я продал 25 штук
Осталось 12 штук
На эту программу был ответ от модератора кота Бегемота
От 07.12.2019 года.
Зачем вам в readln дополнение ‘я продал’, если Вы его сами
вводите?
Или добавьте слово ‘штук’ отдельной командой после read.
Вот поставил ‘штук’ после ReadLn(N).

Pascal
1
2
3
4
5
6
7
8
9
Uses Crt;
Var N, M: Integer;
Begin ClrScr;
WriteLn(`Мальчик, сколько ты продал игрушек?`);
Write(` Я продал `);  ReadLn(N);  WriteLn(` штук`);
WriteLn(` А сколько осталось?`);
Write(`Осталось `);  ReadLn(M);  Write(`штук`);
   ReadLn
end.

На выходе имеем:

Pascal
1
2
3
4
5
6
Мальчик, сколько ты продал игрушек?
Я продал 25
штук
А сколько осталось?
Осталось 12
штук

Не получилось одной строкой: Я продал 25 штук
И как же сделать, чтобы получилось как надо. И чтобы
слово ‘штук’ печаталось в программе, а не на выходе.

@Puporev · 16.02.2020, 11:44

Pascal
1
2
3
4
5
6
7
8
9
10
11
Uses Crt;
Var N, M: Integer;
Begin ClrScr;
Write('Мальчик, сколько ты продал игрушек? ');
ReadLn(N);
Writeln(' Я продал  ',N,' штук');
Write(' А сколько осталось? ');
ReadLn(M);
Writeln(' Осталось ',M,' штук');
ReadLn
end.

@Petro29 · 09.03.2020, 21:07 **[ТС]**

Надо чтобы на выходе было так:

Pascal
1
2
3
4
Мальчик, сколько ты продал игрушек?
Я продал  25  штук 
А сколько осталось?
Осталось 12  штук

Вот получена программа

Pascal
1
2
3
4
5
6
7
8
9
10
11
Uses Crt;
Var N, M: Integer;
Begin ClrScr;
Write('Мальчик, сколько ты продал игрушек? ');
ReadLn(N);
Writeln(' Я продал  ',N,' штук');
Write(' А сколько осталось? ');
ReadLn(M);
Writeln(' Осталось ',M,' штук');
ReadLn
end..

На выходе имеем:

Pascal
1
2
3
4
Мальчик, сколько ты продал игрушек?  25
Я продал 25 штук
А сколько осталось?  12
Осталось 12 штук

На выходе повторение введённых чисел. Т. е. получилось не то что нужно. В 1-ё строке не должно быть числа 25, в 3-й не должно быть числа 12.
Получается, что сделать как нужно – невозможно?

@mr-Crocodile · 11.03.2020, 16:51

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

Надо чтобы на выходе было так:
Мальчик, сколько ты продал игрушек?
Я продал 25 штук
А сколько осталось?
Осталось 12 штук

легко. держи:

Pascal
1
2
3
4
5
6
7
8
9
10
11
Uses Crt;
const N = 25; M = 12;
Begin ClrScr;
Write('Мальчик, сколько ты продал игрушек? ');
ReadLn;
Writeln(' Я продал  ',N,' штук');
Write(' А сколько осталось? ');
ReadLn;
Writeln(' Осталось ',M,' штук');
ReadLn
end..

@Petro29 · 23.03.2020, 19:45 **[ТС]**

Программа работает. Но количество и остаток заданы в самой программе, а хотелось бы, чтобы они задавались
при вводе.
Но я всё-таки попытался её отредактировать в таком виде:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
          Uses Crt;
Var N, a, b: Integer;
Begin ClrScr;
Write(' Ввести кол. игрушек для продажи: ');
    ReadLn(N);
      a:= 70;
Write (' Мальчик, сколько ты продал игрушек?');
WriteLn(' Я продал ',a,' штук');
      b:= N – a;
Write (' А сколько осталось?'); 
     ReadLn;   
WriteLn(' Осталось ', b,'штук');
   ReadLn
end.

На выходе имеем:

Pascal
1
2
3
4
5
Ввести кол. игрушек для продажи:  100
Мальчик, сколько ты продал игрушек:
Я продал 70 штук
А сколько осталось? 
Осталось 30 штук

В самой программе пришлось задавать только количество
проданных игрушек – «а» (не считая ввод «Количества для
продажи»»). А остаток игрушек получается автоматически.
А чтобы сделать и ввод количества проданных игрушек –
не получается. По видимому и не получится.
Т. е. задача свелась к тому, можно ли количество игрущек
задавать при вводе переменных (на выходе).

Pascal
1
2
3
4
5
6
7
8
uses Crt;
Var N, a, b: Integer;
begin ClrScr;
Write(' Мальчик, сколько ты продал игрушек:? ')
    ReadLn(N)
WriteLn(' Я продал  ', a, '  штук');
    ReadLn
end.

Получается, что избавиться от повторения вводимого числа невозможно. Так? И в QBasic такой вариант невозможен?

@ValentinNemo · 23.03.2020, 20:41

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program fff;
Uses
  Crt;
Var
  N, a, b: Integer;
Begin
  ClrScr;
  Write(' Ввести кол. игрушек для продажи: ');
  ReadLn(N);
  Writeln (' Мальчик, сколько ты продал игрушек?');
  Write(' Я продал ');
  Readln(a);
  gotoxy(14,3);
  Writeln(' штук');
  b:= N-a;
  Writeln (' А сколько осталось?');
  WriteLn(' Осталось ', b,'  штук');
  ReadLn;
end.

@Petro29 · 08.04.2020, 15:04 **[ТС]**

Долго мы с ней возились. Наконец то ValentinNemo дал окончательную работающую программу с вводом количества проданных игрушек на выходе. То что требовалось. Cпасибо.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	07.11.2019, 15:48
	Зачем вам в readLn дополнение 'я продал', если Вы его сами вводите? Или добавьте слово 'штук' отдельной командой после read 0

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 732
	08.04.2020, 15:04 [ТС]
	Долго мы с ней возились. Наконец то ValentinNemo дал окончательную работающую программу с вводом количества проданных игрушек на выходе. То что требовалось. Cпасибо. 0