Как ввести число в паскале

Ввод данных с клавиатуры в паскаль

Переменные в Паскаль Ввод данных с клавиатуры в паскаль

В этом уроке мы разберём переменные в Паскаль, ввод данных с клавиатуры в программах на Паскаль, узнаем, как задавать переменные с клавиатуры.Переменные в программировании используются для хранения данных, которые впоследствии можно использовать в программе. У каждой переменной в Паскаль есть имя, по которой к ней обращаются и тип значений, которая она может приниматьВ Pascal существует пять основных типов данных переменных. В таблице приведены основные типы переменных в Паскаль

типы данных в паскаль

Чтобы использовать переменные в Паскаль их необходимо объявить в начале программы по формату
var название_переменной: тип_переменной;
Чтобы присвоить переменной в Паскаль значение необходимо использовать оператор присваивания двоеточие и равно :=
Чтобы вывести значение переменной в Паскаль используется оператор
write (переменная);
Пример программы на Паскаль в которой переменным присваивается значения и они выводятся на экран
var a: string;
var b: integer;
begin
a := 'Строковая переменная ';
b := 12;
write(a, b);
end.
Для ввода данных в Паскаль используется команда
read(переменная);
При выполнении этой команды программа в pascal запросит данные, их нужно ввести в графу «Ввод данных». После этого введённые данные будут записаны в переменную.
Как и в случае в write() , можно использовать команду readln() , тогда после того, как данные были введены, будет осуществлён переход на следующую строку.
Пример программы на Паскаль в которой вводятся две переменные с клавиатуры и выводится на экран их сумма
var a, b: integer;
begin
write('Введите первое число. ');
readln(a);
write('Введите второе число. ');
readln(b);
write(a + b);
end.
Пример программы на Паскаль, запрашивающей имя и фамилию, затем приветствующую по имени и фамилии.
var name, surname: string;
begin
writeln('Введите Ваше имя.');
readln(name);
writeln('Введите Вашу фамилию. ');
readln(surname);
write('Здравствуйте, ', name, ' ', surname, '.');
end.

Перейти к содержанию Следующая тема Условия в Паскаль

Базовые конструкции PascalABC.NET

В большинстве случаев переменные описываются в блоке begin-end и описание совмещается с инициализацией:

Это решает сразу несколько проблем:

можно не говорить о типах в первых программах или лишь упоминать их
невозможно забыть инициализировать переменную
переменные описываются по мере необходимости близко к месту их использования. Это улучшает читаемость. Проблема старого Паскаля, когда груда переменных описывалась до beginа, отсутствует

При таком способе возникает одна проблема: если надо накопить сумму вещественных, то такой код приведет к ошибке типов:

Для исправления этой ошибки всё равно придётся говорить о типах и инициализировать sum одним из двух способов:

Цикл for var

Переменная — счётчик цикла for всегда должна описываться в заголовке цикла:

Это делает невозможным использование счётчика цикла вне цикла

Цикл loop

Если количество повторений цикла заранее известно, но неважен номер повторения, то используется цикл loop:

Множественное описание переменных с инициализацией

Можно инициализировать сразу несколько переменных в момент описания:

Вывод

Для вывода вместо процедуры Write предпочтительно использовать процедуру Print. В отличие от Write она разделяет элементы вывода пробелами. Например:

Для вывода нескольких значений с пояснениями рекомендуется использовать интерполированные строки:

вместо режущего глаз

Ввод принято осуществлять, используя функции вида ReadInteger, ReadReal и т.д.:

Это позволяет совмещать описание переменной с инициализацией и автовыводом типа. В качестве дополнительных бонусов: можно делать приглашение к вводу как параметр функции ввода и вводить сразу несколько переменных одного типа:

Для ввода с контролем ошибок используется функция TryRead. Она возвращает False если ввод осуществлён неверно (введено не число или число выходит за границы диапазона). Типичный пример её использования:

Тип BigInteger

Для работы с длинными целыми используется тип BigInteger. Например, чтобы вычислить 100!, достаточно написать следующий код:

Константу BigInteger можно также создать, используя суффикс bi — тогда предыдущий код изменится следующим образом:

Некоторые полезные стандартные процедуры, функции и операции

Для обмена значений двух переменных a и b используйте стандартную функцию Swap(a,b) :

Разумеется, первый раз необходимо показать, что обмен значений осуществляется через третью переменную:

Но далее следует использовать Swap.

Минимальное и максимальное среди множества значений можно вычислить, используя стандартные функции Min и Max:

Для возведения в степень используется операция ** :

Возведение в целую степень оптимизировано и работает быстрее стандартной функции Power(a,n) .

Для проверки принадлежности диапазону используется конструкция x in a..b :

Эта операция эффективна и переводится в

Диапазоны также можно использовать для вещественных значений и для символов:

Для проверки принадлежности множеству значений используется либо множество:

Мы рекомендуем второй способ — он существенно более эффективен по скорости и по памяти.

Условная операция

Если переменной необходимо присвоить значение в зависимости от условия, то вместо условного оператора иногда нагляднее использовать условную операцию:

Методы в стандартных типах

В PascalABC.NET внутри каждого типа имеется ряд полезных методов. В отличие от внешних процедур и функций, они “вшиты” в тип — переменная знает все свои методы и может вызывать их, используя точечную нотацию.

Например, чтобы вывести значение переменной базового типа, можно использовать метод Print:

Из других интересных методов для начинающих для целых типов отметим:

Например, в следующей программе вычисляется количество четных двузначных из 10 введённых:

Для вещественных значений полезными являются методы

В частности, удобно использовать цепочечную точечную нотацию:

Для всех числовых типов также определены константы MinValue и MaxValue. Чтобы обратиться к ним, следует использовать имя типа:

Кортежи

Кортежи представляют собой способ объединить несколько значений в одно целое. Значения типа Кортеж записываются в круглых скобках: (1,2,3) или (‘Иванов’,15) . с помощью кортежей можно выполнять одновременные присваивания нескольким переменным:

Урок 3. Первая программа в Pascal

HelloWorl

Виды величин

Обычно, изучение любого языка программирования начинается с программы Hello, world! Но мы с вами займемся этим чуть попозже, потому что сейчас я хочу рассказать вам о величинах и типах данных в Pascal. Что такое величина? Величина — это отдельный информационный объект, хранящийся в памяти компьютера. Существуют две классификации величин. Мы рассмотрим каждую в отдельности.

величины

Более подробно мы поговорим о них в последующих уроках.

В свою очередь числовой делится на два типа.

числовые

Привожу сразу обозначение этого типа в Паскаль

символьные

Символьные тоже делятся на два типа.

величины

Вторая классификация величин.Константа — значение неизменно. Переменная — значение может меняться в течение работы программы. Переменные обозначаются символическими именами, которые называются идентификаторами. Как присвоить значение какой либо переменной? С помощью команды присваивания! Команда присваивания в Паскаль: < переменная >:= < выражение >

Первая программа на Pascal

Структура программы в Паскаль

Заголовок

Program < имя переменной >;

Объявление переменных и констант

const <Символическое имя> = <выражение>;
var <Однотипные переменные> : <тип>;

Раздел операторов

Ввод и вывод в Паскаль

У вас, наверняка, возникает вопрос: «Как вводить значения переменных с клавиатуры?», а также: «Как вывести на экран полученный результат?». Для этого используются четыре специальных оператора:

Для ввода:

read(Переменную)
readln(Переменную)

И для вывода:

write(Текст в »)
writeln(Текст в »)

«В чем разница между read и readln, write и writeln?»: снова озадачитесь вы. Ответ прост. Если добавляете «ln» (что расшифровывается, как Line), то курсор переносится на следующую строку.

Hello, World на Pascal

Теперь вы готовы написать первую программу.

Ну, тут все понятно. Чтобы разнообразить решение предлагаю решить несколько задачек этого типа.

Задача 1. Требуется запросить имя пользователя, а затем вывести «Привет, <имя>!» Для решения этой задачи нам потребуется строковой тип данных — string.

Задача 2. Требуется узнать сколько лет пользователю, а затем вывести «Вам <возраст> лет». Очевидно, что для решения этой задачи нам потребуется целочисленный тип данных — Integer.

Ну, вот и все! Все, что я хотел рассказать вам в сегодняшнем уроке. Вы узнали, что такое величина в Pascal, и выучили основные типы. А также научились создавать простейшие линейные программы. Более подробно про типы в PascalABC.Net мы поговорим в следующих уроках. Кстати, про PascalABC.Net. Понятно, что писать программы на листочках бесполезно, и вы должны тренироваться на компьютере. По этой ссылке скачайте последнюю версию PascalABC.Net для Windows.
Вот, как выглядит интерфейс программы при запуске.

PascalABC.Net

P.S. Давайте выделим две особенности Pascal:

Паскаль НЕ чувствителен к регистру, то есть и program, и Program, и PrOgRaM для него ничем не отличаются. А потому с самого начала привыкайте писать в нижнем регистре, чтобы при переходе на другой язык программирования не испытывать никаких проблем с этим;
Имя программы в Pascal не играет никакого значения, оно не несет в себе никаких полезных функций. Если хотите вы можете просто не писать ЕГО!

P.P.S. В мире наиболее популярны три операционные системы: Linux, Mac OS и Windows. А если у вас не Windows? Какой компилятор выбрать тогда? Об этом мы с вами поговорим в уроке номер N.

После компилирования программа закрывается как только выполнит задачу. Нужно чтобы она дождалась нажатия кнопки. Пробовал пару вариантов, но не работает. Подскажите, пожалуйста.

Если вы используете Turbo Pascal, то поставьте после program uses crt; и перед end. readkey;

program aaa;
uses crt;
var a: integer;
read(a);
writeln(a);
readkey;
end.

После begin двоеточие не ставиться.

В объявлении константы есть ошибка: значение не надо присваивать, у константы оно просто равно

Так что же делать обладателям отличных от Windows ОС?

Вообще у вас есть три более-менее простых варианта:

1) Использовать веб среду http://pascalabc.net/WDE/ (не используйте Сафари, попробуйте Хром)
2) Установить FreePascal для Mac OS. У меня, если честно, так и не получилось.
3) Установить виртуальную машину( Windows 7, Windows XP) и на нее установить PascalABC.NET или Turbo Pascal.

Есть ещё Lazarus

есть wine, virtualbox, online pascalabc. чего надо еще?

Как открывать нужные скобки? Если я пишу Hello, world в скобках » » , то у меня вылезает ошибка.

WriteLn(‘Текст’) или Write(‘Текст’)
Внутри обычных скобок когда обозначаем текст (НЕ переменную) то ставим ‘ перед и после текста

Спасибо, я создал программу которая общается с пользователем, объединив эти две задачи.
Получилось вот так:

begin
var name: string;
write(‘Напиши своё имя: ‘);
read(name);
write(‘Молодец, ‘, name, ‘!’);
var years: integer;
writeln(‘Сколько тебе лет?’);
read(years);
write(», years, ‘, значит. А мне ещё и года нету(((‘);
writeln(‘Мне пора на компьютер твоего друга… Пока’);
end.

Что делать если установил ABC Pascal, а после запуска не хочет открываться и нормально работать?

А мне не понравилось, что программа не чувствительна к числам, которые заканчиваются на 1,2,3,4. Получилось немного громоздко, но как сократить пока не придумала)

program Your_age;
var a: integer;
begin
writeln(‘А сколько Вам лет?’);
readln(a);
if (a > 4) and (a 21) and (a mod 10 > 4) then
write(‘Значит, Вам ‘,a,’ лет!’);
if (a 1) and (a mod 10 20) and (a mod 10 > 1) and (a mod 10 < 5) then
write('Значит, Вам ',a,' года!');
if (a mod 10 = 1) and (a 11) then
write(‘Значит, Вам ‘,a,’ год!’)
end.

Подскажите, пожалуйста, возможно ли с помощью линейного алгоритма сделать так, что работала команда ввода read(surname)?
Использую PascalABCNET.
После написания такого кода программа не делает того, с чем прошу мне подсказать:

var
name,surname:string;
begin
writeln(‘Введите, пожалуйста, ваше имя: ‘);
readln(name);
writeln(‘Введите, пожалуйста, вашу фамилию: ‘);
readln(surname);
end.

А вы уверены в том, что она не делает?) У вас ведь нигде и вывода нет.

Вы правы, работает. Вчера ночью почему-то не работало. После перезагрузки компьютера заработало. Наверно, что-то не так пошло, потому что тот же самый код запускал. Хорошо, что работает. Думал, что я не понимаю чего-то.

Вспомнил. Дело не только в этом было. Суть в том, что не работал общий код, который был изначально. Именно это там не работало. Эти 2 ввода игнорировались. После вопроса, где нужно ввести 1 или 2 программа переходила на вопрос о возрасте.

var
name, surname: string;
a, age: integer;

writeln (‘Connection…’);
writeln(‘Доброго времени суток, пользователь программы!’);
writeln(‘Вы находитесь в программной среде высшего интеллектуального творчества человечества.’);
writeln(‘Просьба вести себя осторожно, дышать ровно, следовать инструкциям и быть готовым нести ответственность за принятие своих решений.’);
writeln(‘Вы готовы? 1 — Yes/2 — No’);
writeln(‘Введите число:’);
read(a);

case a of
1:writeln(‘Решение о вашем действии записано в информационное пространство Вселенной. Отмена действий невозможна.’);
0:write(‘Большие решения требуют серьёзной ответственности. Когда будете к этому готовы, можете в любой момент обратиться к программной среде.’);
else writeln(‘У вас только одно право на ошибку. Попробуйте ещё раз ввести 1 или 0.’);
end;

writeln(‘Введите, пожалуйста, ваше имя, чтобы программа вам рассказала о его значении: ‘);
read(name);
writeln(‘Введите, пожалуйста, вашу фамилию, чтобы программа вам рассказала о её значении: ‘);
readln(surname);
writeln(‘Сколько вам лет, ‘,name,’?’);
readln(age);

case age of
2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94,102..104,122..124:writeln(‘Вам ‘,age,’ года.’);
1,21,31,41,51,61,71,81,91,101,121:writeln(‘Вам ‘,age,’ год.’);
5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..100,105..120,125,126:writeln(‘Вам ‘,age,’ лет.’);
else write(‘В настоящее время человечеством не доказано, что человек может столько лет жить на планете Земля.’);
end;
END.

Очень здорово, что программа запустилась. Но на будущее: когда вы просите помощи, лучше прикреплять полный код программы/подпрограммы. Иначе такая помощь выполняется почти вслепую.

Тот, что выше написал, полный код программы. В нём не работает то, что я описал в предыдущем сообщении.
readln(name) и readln(surname) не предлагают ввести данные. Сразу переходит программа на writeln(‘Сколько вам лет, ‘,name,’?’).

writeln(‘Введите, пожалуйста, ваше имя, чтобы программа вам рассказала о его значении: ‘);
readln(name);
нужно писать не read, а readln

9. Ввод и вывод данных в Турбо Паскале

Любая программа производит обмен информацией между оперативной памятью и внешними устройствами, на которых расположены файлы с данными. В Паскале для ввода и вывода данных используются два текстовых файла с закрепленными именами Input и Output.

Файл ввода имеет имя Input. Он связан с физическим устройством – клавиатурой, то есть в него попадает информация, вводимая с клавиатуры. При этом происходит эхо-повтор, то есть вводимая информация повторяется на экране.

Файл вывода имеет имя Output и связан с физическим устройством — монитором. В этот файл выводится информация, указанная в программе, и сразу попадает на экран.

Ввод данных — это передача информации от внешних устройств в оперативную память. Вводятся, как правило, исходные данные решаемой задачи. Вывод — обратный процесс, когда данные передаются из оперативной памяти на внешние носители (принтер, дисплей, дисковые накопители и т.д.). Результаты решения всякой задачи должны быть выведены на один из этих носителей. Основными устройствами ввода-вывода у персонального компьютера являются клавиатура и дисплей (экран монитора). Именно через эти устройства главным образом осуществляется диалог между человеком и ПК.

Стандартные файлы ввода-вывода могут быть переназначены, то есть могут быть связаны с другими физическими устройствами.

Для ввода-вывода данных в Паскале используются специальные стандартные процедуры (операторы).

1. Операторы ввода

Ввод исходных данных с клавиатуры производится с помощью двух процедур (операторов): Read (переводится как «читать») и ReadLn (read line — читать строку). Они имеют следующий формат:

где <список ввода> — это последовательность имен переменных, разделенных запятыми. Например, Read(a,b,c,d).

Переменные в списке ввода могут быть типов integer, real, char, string.

Дойдя до этих операторов в программе, ЭВМ останавливается. Появляется окно вывода результатов, и система ждет ввода данных. На клавиатуре набирают числа, отделяемые друг от друга пробелами, которые отражаются строкой на экране дисплея. После набора чисел нажимают на клавишу ввода Enter (лавишу Enter можно нажимать после каждого вводимого значения). Каждая переменная из списка получает свое значение в порядке следования. Данных с клавиатуры можно вводить больше, чем в списке. Невостребованные данные будут храниться в файле Input.

Между операторами существует различие:

оператор read заканчивает свое действие, когда все переменные списка получают свое значение. Те данные, которые были введены через пробел до нажатия клавиши Enter, могут быть использованы следующим оператором read или readln;

оператор readln, присвоив значения своим переменным, остальные (лишние введенные)значения пропускает, то есть следующим оператором read или readln они не используются.

В операторе readln список переменных может отсутствовать. В этом случае происходит задержка окна вывода результатов.

2. Операторы вывода

Вывод результатов на экран дисплея производится с помощью процедур Write («писать») и WriteLn (write line — писать в строку). Они имеют следующий формат:

Здесь элементами списка вывода могут быть выражения различных типов (константы и переменные): integer, real, char, boolean, string. Объекты в списке вывода разделяются запятыми.

При выводе на экран нескольких чисел в строку они не отделяются друг от друга пробелами. Программист сам должен позаботиться о таком разделении. Пусть, например, I=1; J=2; К=3. Тогда, написав в программе

получим на экране строку: 1 2 3 (через пробелы).

Оператор write выводит значения объектов на экран и оставляет курсор на строке, в которой выведено последнее значение. Следующие операторы write или writeln выводят свои значения в этой же строке.

Оператор writeln после вывода последнего в списке значения переводит курсор к началу следующей строки.

Оператор WriteLn, записанный без параметров (то есть без списка вывода), вызывает переход на новую строку.

Форматы вывода. В списке вывода могут присутствовать указатели форматов вывода (форматы). Формат определяет представление выводимого значения на экране. Он отделяется от соответствующего ему элемента двоеточием. Формат имеет вид:

где E – объект, значение которого нужно вывести на экран,

m – число, указывающее ширину выводимого поля (сколько позиций отвести под это значение),

n – количество дробных цифр (количество цифр в дробной части).

Конструкция E:m:n используется только для данных типа real, для остальных – конструкция E:m.