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

Задача № 3. Вывести на экран квадрат введенного числа

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

МЗадача № 3. Вывести на экран квадрат введенного числа

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

Задача является аналогом задачи 2. Единственное отличие состоит в том, что условие данной задачи требует предварительное сохранение результата в некоторой переменной. Так как нам ничего не сообщается о необходимости сохранить исходное число, то для получения квадрата мы можем использовать ту же самую переменную, в которую считывали число с клавиатуры. Обозначим эту переменную как a.

В условии задачи дается ограничитель величины вводимого числа – фраза «меньше 256». Это означает, что оно может быть охвачено типом byte. Но что произойдет, если в переменную a будет введено число 255, и затем мы попытаемся присвоить ей его квадрат 65025? Естественно, это вызовет переполнение типа данных, так как используемой для переменной a ячейки памяти не хватит для того, чтобы вместить число 65025. Значит, для ее описания мы должны использовать более емкий числовой тип. При этом типом минимальной размерности, охватывающим данный отрезок (от 1 (это 12) до 65025), является тип word. Его мы и будем использовать при описании a.

Далее нужно сформировать в переменной a квадрат. Для этого присвоим ей ее прежнее значение, умноженное само на себя:
a := a * a;
Теперь остается вывести результат на экран. Для этого будем использовать оператор writeln.

program SqrOfNum;
var
 a: word;
begin
readln(a);
a := a * a;
writeln(a)
end.
 
 

 

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

Сиды: 320
Пиры: 188
Общий размер: 0.1 Kb
Общие сведения: 07.08.2016,20:56,Просмотров:1276,Категория-Программирование на языке Pascal
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Популярные игры
Скачать игру Земля мертвых
Скачать игру Земля мертвых Загрузок: 382 Просмотров: 3216 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Скачать игру TimeShift через торрент для пк
Скачать игру TimeShift через торрент для пк Загрузок: 414 Просмотров: 3119 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Gladiator 2016 через торрент
Gladiator 2016 через торрент Загрузок: 214 Просмотров: 2615 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Devil May Cry 3 через торрент
Скачать Devil May Cry 3 через торрент Загрузок: 271 Просмотров: 2502 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Batman: Arkham Knight (2015) скачать торрент
Скачать Batman: Arkham Knight (2015) скачать торрент Загрузок: 224 Просмотров: 2360 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Мини-чат

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

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

0

aarbuzov241

артём pley

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

0

gonater117

76 56

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

0

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

0

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

0

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

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

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

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

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

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

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

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

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

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

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