Задача № 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 , скачали: 3

Сиды: 386
Пиры: 168
Общий размер: 0.1Kb
Общие сведения: 07.08.2016,20:56,Просмотров:57,Категория-Программирование на языке Pascal
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Популярные игры
Скачать игру Земля мертвых
Скачать игру Земля мертвых Загрузок: 30 Просмотров: 250 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Скачать игру TimeShift через торрент для пк
Скачать игру TimeShift через торрент для пк Загрузок: 28 Просмотров: 192 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Gladiator 2016 через торрент
Gladiator 2016 через торрент Загрузок: 13 Просмотров: 274 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Devil May Cry 3 через торрент
Скачать Devil May Cry 3 через торрент Загрузок: 25 Просмотров: 193 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Batman: Arkham Knight (2015) скачать торрент
Скачать Batman: Arkham Knight (2015) скачать торрент Загрузок: 10 Просмотров: 183 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Мини-чат

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

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

0

Савич1999

Олег Савич

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

0

lipin2103

stib lipin2103

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

0

VitaAseeva

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

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

0

xmen

артем гоша

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

0

alaska

Денис Ли

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

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

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

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

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

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

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

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

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

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

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