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

@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
Write(‘ Купил яблок (кг) ‘);  ReadLn(N);

А надо бы делать так: Write(‘ Купил N кг яблок’);
На эту тему была программа про мальчика – сколько ему лет?
Вами было сделано: Мне 16 лет. (то что надо)
Но уж очень сложная программа, да и последняя строка
оказалась с дефектом:

Pascal
1
Ого! Целых 0 лет. Да ты совсем взрослый    !

Так можно сделать так как надо без примерных
ответов, но проще?

@Pro_grammer · 19.05.2019, 15:36

Petro29, почекму в теме QBasic размышления о (на ) Паскале ?

Новые блоги и статьи Все статьи Все блоги /
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .
Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .	Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .

@Pro_grammer 6807 / 2840 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	19.05.2019, 15:36
	Petro29, почекму в теме QBasic размышления о (на ) Паскале ? 1