fon
Главная » Файлы » Программирование компьютерных систем » Программирование на языке Pascal

Задача № 2. Вывести на экран три числа в порядке, обратном вводу

Категория:
Программирование на языке Pascal
Комментариев:
0
Загрузок:
0
Автор:
sesin
Задача № 2. Вывести на экран три числа в порядке, обратном вводу

МЗадача № 2. Вывести на экран три числа в порядке, обратном вводу

Полное решение задачи 

Так как с клавиатуры вводится три числа, необходимо завести три переменные. Обозначим их как a, b и c. Ввиду того, что нам ничего не сказано о том, в каком отрезке могут располагаться введенные числа, мы возьмем тип integer, так как он охватывает и положительные, и отрицательные числа в некотором диапазоне (от -2147483648 до 2147483647). Затем нам нужно использовать оператор вывода write (writeln), в списке аргументов которого (напомним, что список аргументов write (writeln) может содержать не только переменные, но и константы и арифметические выражения) эти переменные будут находиться в обратном порядке. В данном случае будем использовать оператор writeln, который после вывода результата переведет курсор на следующую строку:
writeln(c, b, a);
Однако если мы оставим его в таком виде, то увидим, что при выводе между переменными не будет никакого пробела, и они будут слеплены и визуально смотреться как одно число. Это связано с тем, что при вводе мы использовали пробелы для разделения чисел, а сами пробелы никаким образом не влияют на содержимое переменных, которые будут последовательно выведены оператором writeln без каких-либо дополнений. Чтобы избежать этого, нам нужно добавить в список аргументов writeln две текстовые константы-пробелы. Проще говоря, пробельная константа – это символ пробела, заключенный в одиночные апострофы (апостроф – символ «'»). Первая константа будет разделять переменные a и b, вторая – b и c. В результате наш оператор вывода будет таким:
writeln(c, ' ', b, ' ', a);
Теперь он работает так: выводит переменную c, затем одиночный символ пробела, затем переменную b, потом еще один символ пробела и, наконец, переменную a.

program WriteThree;
var
  a, b, c: integer;
begin
readln(a, b, c);
writeln(c, ' ', b, ' ', a)
end.
 
 

 

Добавил: sesin , скачали: 143

Сиды: 356
Пиры: 86
Общий размер: 0.1 Kb
Общие сведения: 07.08.2016,20:44,Просмотров:1384,Категория-Программирование на языке Pascal
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Популярные игры
Скачать игру Земля мертвых
Скачать игру Земля мертвых Загрузок: 380 Просмотров: 3195 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Скачать игру TimeShift через торрент для пк
Скачать игру TimeShift через торрент для пк Загрузок: 411 Просмотров: 3115 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Gladiator 2016 через торрент
Gladiator 2016 через торрент Загрузок: 212 Просмотров: 2606 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Devil May Cry 3 через торрент
Скачать Devil May Cry 3 через торрент Загрузок: 268 Просмотров: 2478 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Batman: Arkham Knight (2015) скачать торрент
Скачать Batman: Arkham Knight (2015) скачать торрент Загрузок: 221 Просмотров: 2344 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Мини-чат

500
text
Друзья сайта

Пользователи

0

aarbuzov241

артём pley

Пользователи

0

gonater117

76 56

Пользователи

0

Пользователи

0

Пользователи

0

Для того что стать друзьями сайта необходимо авторизоваться  на сайте .

Вы получаете преимущества  .

1)Бесплатные отправки подарков пользователям .

2)Отправка личных смс пользователям .

3)Отключение рекламы на сайте .

Популярные фильмы

Три богатыря и Морской царь Загрузок: 158 Просмотров: 2317 Добавил: sesin Дата: 29.03.2017

Монстр-траки Загрузок: 155 Просмотров: 1217 Добавил: sesin Дата: 29.03.2017

Грязь 2014 скачать через торрент Загрузок: 169 Просмотров: 1708 Добавил: sesin Дата: 28.11.2016

2 спальни, 1 ванная (2014) смотреть онлайн Загрузок: 136 Просмотров: 1067 Добавил: sesin Дата: 28.11.2016

Скачать фильм Абатуар. Лабиринт страха (2016) смотреть онлайн Загрузок: 191 Просмотров: 1994 Добавил: sesin Дата: 28.11.2016
Вход на сайт
,