Задача № 3. Вывести на экран квадрат введенного числа - Программирование на языке Pascal - Программирование компьютерных систем - Каталог файлов - Добро пожаловать
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 , скачали: 5

Сиды: 215
Пиры: 134
Общий размер: 0.1Kb
Общие сведения: 07.08.2016,20:56,Просмотров:147,Категория-Программирование на языке Pascal
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Популярные игры
Скачать игру Земля мертвых
Скачать игру Земля мертвых Загрузок: 59 Просмотров: 501 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Скачать игру TimeShift через торрент для пк
Скачать игру TimeShift через торрент для пк Загрузок: 75 Просмотров: 441 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Gladiator 2016 через торрент
Gladiator 2016 через торрент Загрузок: 23 Просмотров: 462 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Devil May Cry 3 через торрент
Скачать Devil May Cry 3 через торрент Загрузок: 51 Просмотров: 350 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Batman: Arkham Knight (2015) скачать торрент
Скачать Batman: Arkham Knight (2015) скачать торрент Загрузок: 20 Просмотров: 289 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Мини-чат

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

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

0

aleksey_0206

Вова Волишин

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

0

anto82nir

Константин Вересович

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

0

Савич1999

Олег Савич

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

0

lipin2103

stib lipin2103

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

0

VitaAseeva

Виктория Асеева

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

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

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

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

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

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

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

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

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

Скачать фильм Похитители прошлого 1999 год Загрузок: 9 Просмотров: 92 Добавил: sesin Дата: 07.10.2016

Скачать Детсадовский полицейский 2 через торрент Загрузок: 6 Просмотров: 125 Добавил: sesin Дата: 03.09.2016
Вход на сайт
,