Как составить программу в паскале с текстом

Основные теоретические понятия программирования и среды разработки. Кроме теоретических понятий рассмотрим конкретно язык программирования Паскаль. Выполним три практических задачи. В этих задачах рассмотрены темы объявления переменных и примеры работы с тремя основными типами данных, а также примеры вывода и ввода данных.

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

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

Поэтому, на мой взгляд, изучать основы программирования лучше на не сложном языке, знание которого при этом могут пригодиться для написания более сложных программ на объектном языке программирования. Самым простым и при этом полезным в дальнейшем языком программирования, по моему скромному мнению, является Pascal.

Содержание

  • Кратко о языке программирования Pascal
  • Знакомство со средой PASCALABC.NET и написание первой программы

Язык Pascal – это относительно доступный и несложный язык программирования. Его изучают часто в школе в старших классах и на первых курсах высших и средних учебных заведениях. Этот язык программирования был разработан Никлаусом Виртом еще в 70-х годах прошлого века, а назван в честь французского математика Блеза Паскаля. Если вам интересно узнать подробнее об истории создания и развития данного языка программирования, вы можете найти эту информацию в Интернете, на той же самой Википедии. А мы не будем сильно на этом останавливаться.

Наша задача сегодня – написать первую собственную программу на языке Pascal. Писать мы будем для первого раза консольные приложения. А что же это такое – консольное приложение?

Мы привыкли, что, когда мы заходим в любую программу, перед нами появляется окно, в котором есть области для ввода информации, ее вывода, какие-то красиво оформленные таблички, кнопочки и многое другое. Тот же самый привычный нам MS Office Word. Консольное же приложение, если говорить простыми словами, представляет собой окно, в котором просто написаны буквы или цифры на одноцветном фоне, чаще всего на черном. Если вы видели хоть раз в своей жизни командную строку в Windows или операционную систему DOS, то вы представляете себе, что такое консоль. Но, как говориться, лучше один раз увидеть, чем сто раз услышать. В дальнейшем вы увидите, как это все выглядит.

Итак, что нам понадобится, чтобы написать свою первую программу? Естественно, компьютер, клавиатура, мышь (но можно на самом деле и без нее), немного желания и времени, ну и среда разработки. Последнее словосочетание, наверное, для большинства покажется незнакомым. Давайте же выяснять, что это за зверь такой – среда разработки. Это программный комплекс, используемый разработчиком для написания программ на конкретном языке программирования. Простым языком – это программа для написания программ. Она, чаще всего, включает в себя следующие компоненты:

  • текстовый редактор для написания кода программы (в рамках этой статьи это самая важная часть);
  • компилятор (выполняет обработку и перевод понятного нам кода на языке высокого уровня в более понятный для компьютера программный код низкого уровня) и/или интерпретатор (производит покомандный анализ кода и выполняет его, то есть запускает программу);
  • различные средства, облегающие и автоматизирующие процесс программирования;
  • отладчик (программа для поиска ошибок в коде программы).

Я думаю, что, посмотрев на эти определения, вы теперь понимаете, почему среда разработки – это не просто программа для написания программ, а именно программный комплекс.

Знакомство со средой PASCALABC.NET и написание первой программы

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

Для начала необходимо установить на свой компьютер среду разработки. На просторах Интернета можно найти различные вариации сред разработки, но я буду работать со средой разработки PASCAL ABC.NET. Эту среду вы можете найти в Интернете. Я бы рекомендовал вам использовать именно ее, так как по сравнению, например, с Turbo Pascal – в данной среде есть возможность копирования и вставки текста, а также поддерживается русский язык.

Кроме того, он более приятен и понятен в использовании, а также присутствует библиотека с задачником. Вы можете использовать и простой PASCAL ABC, но в версии .NET вы можете скомпилировать программу в файл с расширением .exe, то есть можете ей пользоваться полноценно, а в обычном PASCAL ABC вы можете запустить свою программу только непосредственно в самой среде разработки.

После того, как вы скачаете и установите среду разработки перед вами должно появиться примерно такое окно, которое изображено на рисунке 1. Место, в котором моргает курсор – это тот самый редактор кода, в который мы и будем вписывать команды для исполнения. В окне вывода, которое находится ниже, вы будете видеть результат выполнения программы, а также ошибки, которые могут возникать в процессе выполнения программы. Ну что-же, приступим к процессу программирования.

Рис.1. Среда разработки

Рис.1. Среда разработки

Для начала давайте придумаем название нашей программе. Я не буду долго думать и назову ее просто – «первая программа». Но называть программу можно только на английском языке, так как это не просто имя программы, а кусочек кода, а весь код пишется только на английском языке. Поэтому я ее буду называть «first_program». Обратите внимание, что вместо пробела я написал нижнее подчеркивание, так как Pascal понимает пробел как окончание команды. Теперь нам нужно объяснить языку что first_program – это именно название нашей программы, а не что-то другое (вы, кстати, можете придумать свое имя для вашей первой программы). Для этого нам нужно использовать команду (или по-научному оператор) Program. Эта команда говорит компьютеру, что через пробел будет указано название для программы. Итак, первая строчка кода у нас будет выглядеть так:

Program first_program;

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

Теперь давайте выведем текст: «Я написал первую программу! Ура!».

Переходим на следующую строку. Теперь нам нужно объявить переменную, которая будет хранить в себе наше предложение. Переменная в любом языке программирования – это как банка, в которой что-то хранится, а именно данные. Если говорить по-умному, то это выделенная область памяти для хранения однотипных данных, хотя есть переменные, которые могут хранить и не типизированные данные, но сейчас не о них.

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

  • строковый (хранит любые символы),
  • целые числа (Integer),
  • вещественные числа (real).

Целые числа – это числа для счета, без запятой. Вещественные числа, хотя это не совсем так, но все-же – это числа с плавающей точкой, например – 3.1, 5.2 и так далее. Строковый тип данных – это как раз то, что нам нужно. В строковой переменной хранятся любые символы: буквы, цифры, знаки… За объявление переменных отвечает ключевое слово var. Конструкция выглядит следующим образом:

var [название переменной на англ. языке] : тип данных;

В нашем случае это будет выглядеть следующим образом:

var s: string;

После объявления переменной начнем писать основной код программы. Он записывается в так называемых операторных скобках (begin и end). Это означает, что начинается основной код программы с ключевого слово begin, а заканчивается ключевым словом end. В конце программы после последнего ключевого слова end ставится точка (после слова begin точка с запятой не ставится).

Итак, после объявления переменных на следующей строчке пишем слово begin и переходим на следующую строчку. Начнем писать текст программы. Сперва в объявленную переменную s (можно было назвать и по-другому) нужно занести наше предложение «Я написал первую программу! Ура!», которое мы хотим вывести. Пока в нашей переменной (баночке) ничего нет. Чтобы ее заполнить – ей нужно присвоить какое-либо значение. Процесс, при котором мы помещаем в нашу банку (переменную) какого-либо значения (в нашем случае это предложение), называется присвоение и обозначается таким символом (:=) – двоеточие и равно. Выглядит это следующим образом:

s := 'Я написал первую программу! Ура!';

Текст, который мы вводим в строковую переменную записывается в одинарных кавычках. Теперь компьютер знает, что в баночке (переменной) под именем s хранится набор символов – наше предложение. Теперь нам необходимо вывести содержимое переменной на экран. Для этого в языке Паскаль предусмотрены операторы (команды) write и writeln. Первая команда выводит на экран содержимое переменной или текст, а вторая делает тоже самое, только с переходом на другую строку, то есть начинает выводить значение с новой строки. Запишем это:

write(s);

В конце ставим точку и проверяем, все ли верно у нас написано. В итоге должен получиться следующий код:

Program first_program;
var s: string;
begin
s := 'Я написал первую программу! Ура!';
write (s);
end.

Проверьте, правильно ли у вас все получилось. После этого нам необходимо запустить программу и проверить ее на работоспособность. Найдите на панели инструментов вверху кнопочку с зеленым треугольником или нажмите на кнопку в меню: Программа -> Выполнить. После этого, если все было правильно переписано, в Окне вывода должно появиться предложение «Я написал первую программу! Ура!». Как это должно выглядеть вы можете видеть на рисунке 2.

Рис. 2. Результат работы программы

Рис. 2. Результат работы программы

Ну что же, поздравляю! Вы написали первую настоящую программу на языке Паскаль. На первый взгляд может показаться, что это какая-то ерунда, а не программа, но на самом деле все эти знания вы будете использовать при написании прикладных программ более высокого уровня. Кстати, эту программу можно записать короче. Помните я говорил, что оператор вывода write выводит записанный в скобочках текст или значение переменной. Поэтому, мы можем не объявлять переменную, а сразу записать текст в скобочках. В итоге получится вот такой код:

Program first_program;
begin
write ('Я написал первую программу! Ура!');
end.

Одну программу можно записать нескольким способами, а если программа усложняется, то и способов написания становится все больше и больше, поэтому у каждого программиста формируется свой стиль написания кода, и порой учителя узнают, кто написал программу по стилю своего ученика.

Давайте теперь немного усложним задачу. Многие знают, что программирование тесно связано с математикой, так как большинство программ выполняют различные операции. Попробуем написать такую программу: «два числа вводятся с клавиатуры, они складываются, и программа выводит результат – сумму введенных с клавиатуры чисел».

Сперва напишем программу для целых чисел – чисел, используемых при счете (число 2 – целое число в программировании, тип данных Integer, а 2.3 – число с плавающей точкой, тип данных real). При сложении двух целых чисел получается целое число, значит и входные числа, и результат будут типа данных Integer.

Для начала к нашей объявленной переменной добавим еще три, назовем их: celoe1 для первого числа, celoe2 для второго числа и celoe3 для хранения результата сложения двух чисел. Получим баночки (переменные), в которых будут хранится целые числа. Измененная часть программы будет выглядеть так:

var celoe1, celoe2, celoe3: integer;
s: string;

Теперь переходим к изменению тела программы (кода, находящегося между begin и end). Для начала нужно инициализировать ввод с клавиатуры двух чисел. Сначала выведем подсказку: введите первое число. Для вывода текста у нас, как вы помните, используется оператор (команда) write(), но нам нужно выводить каждую подсказку с новой строки, поэтому будем использовать оператор writeln(). Получим следующий код:

writeln ('Введите первое число');

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

После первой подсказки на новой строке пишем:

read (celoe1); 

Повторяем такую операцию для второго числа – пишем подсказку о вводе второго числа и организуем ввод второго числа. Теперь у нас есть две переменных или как мы их называем две баночки, в каждой из которых находится по целому числу. Чтобы получить их сумму мы должны их сложить и положить в третью баночку (переменную). Так и запишем:

celoe3 := celoe1 + celoe2;

Выведем результат. Для вывода текста или содержания переменной у нас используется оператор write() и writeln(). Для красоты выведем результат на новой строке. Для этого будем использовать writeln(). Получим:

writeln ('Сумма чисел = ', celoe3);

Обратите внимание, что мы выводим и текст, и значение переменной. Это сделано для того, чтобы не писать лишний раз оператор вывода. Если нужно вывести несколько операндов (значение оператора, например, переменная celoe3) сразу, то можно записывать их все в скобки в нужном порядке, разделяя между собой запятой. В итоге должен получиться следующий код:

Program first_program;
var celoe1, celoe2, celoe3: integer;
s: string;
begin
writeln ('Введите первое число');
read (celoe1);
writeln ('Введите второе число');
read (celoe2); 
celoe3 := celoe1 + celoe2;
writeln ('Сумма чисел = ', celoe3);
s := 'Я написал первую программу! Ура!';
write (s);
end.

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

Рис. 3. Сложение двух чисел

Рис. 3. Сложение двух чисел

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

На первый взгляд нужно поменять лишь формулу для расчета, но нужно вспомнить, что не все числа будут делиться нацело, может оставаться остаток и число будет уже не целое, а с десятичной дробью, а это значит, что тип данных Integer нам уже не подойдет. Нужно использовать тип данных Real. При этом представим, что нам неизвестно, какое число будет введено с клавиатуры – целое или же дробное, поэтому и для введенных с клавиатуры чисел мы будем использовать тип данных Real. Перепишем строку, где мы объявляли целые числа. Назовем наши вещественные переменные v1, v2 и rez. Тогда получим:

var v1, v2, rez: real;
s: string;

Переходим в тело программы. Подсказки о вводе первого и второго числа мы оставляем как есть, а вот в операторе ввода read изменяем название переменных на v1 и v2. Теперь вместо формулы сложения напишем другую формулу:

rez := (v1 / v2) * 3; 

Обращаю ваше внимание, что мы умножаем на три результат деления первого числа на второго, поэтому мы записали деление в скобках (вспоминаем правила очередности операций с числами в математике). Давайте изменим еще и вывод получившейся информации на экран, выведем все в красивом виде. Для этого будем использовать вывод нескольких операндов в удобном для нас порядке через запятую, о котором мы говорили выше. Вначале выведем знак открытой скобочки, затем выведем значение первой переменной, затем выведем символ знака деления, после этого значение второй переменной, затем символы «) * 3 = » и, наконец, значение переменной с результатом. Звучит сложно, но попробуйте вникнуть в это:

writeln ('(', v1, ' / ', v2, ') * 3 = ', rez);

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

Program first_program;
var v1, v2, rez: real;
s: string;
begin
writeln ('Введите первое число');
read (v1);
writeln ('Введите второе число');
read (v2); 
rez:= (v1 / v2) * 3;
writeln ('(', v1, ' / ', v2, ') * 3 = ', rez);
s := 'Я написал первую программу! Ура!';
write (s);
end.

Ну что же, запускаем программу и получаем результат (я ввел первое число = 8.2, второе число = 2), изображенный на рисунке 4.

Рис. 4. Числа с дробью

Рис. 4. Числа с дробью

Давайте подведем итог. Сегодня вы познакомились с языком программирования Паскаль, узнали что такое среда программирования и познакомились со средой PascalABC.NET, получили некоторые теоретические знания о небольшой части состава языка программирования Паскаль, а также написали свою первую программу и познакомились с тремя типами данных.

Прилагайте усилия, заполняйте свое время правильно, изучая новое и, возможно, вы станете хорошим программистом с очень достойной зарплатой. Двигайтесь вперед к успеху и занимайтесь тем, что приносит не только деньги, но и удовольствие. Один философ сказал, что если ты будешь заниматься тем, что нравится, то работать в жизни тебе не придется!

16 января 2019 в 00:48
| Обновлено 7 ноября 2020 в 01:20 (редакция)
Опубликовано:

Статьи

Просмотров 11.9к. Обновлено 23 ноября 2020

Урок из серии: «Язык программирования Паскаль»

Для начала написания непосредственно кода программы надо знать ее структуру: как правильно записываются команды, в каком порядке.

На первом занятии вы узнаете:

  1. Какова структура программы на языке Паскаль.
  2. Как написать простейшую программу.

Для создания программ можно использовать среду программирования Pascal ABC.

Если Паскаль на компьютере не установлен:   Скачать PABCDistr.rar .

Содержание

  1. Структура программы
  2. Как написать простейшую программу
  3. Коротко о главном
  4. Проверь себя!

Структура программы

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

program <имя программы>;

За ним идет раздел описаний, в котором должны быть описаны все идентификаторы (константы, переменные, типы, процедуры, функции, метки), которые будут использованы в программе.

После раздела описаний идет раздел операторов, который начинается со служебного слова begin (начало) и заканчивается служебным словом end (конец).

В этом разделе задаются действия над объектами программы, описанными в предыдущем разделе.  Операторы в этом разделе отделяются друг от друга точкой с запятой. После последнего слова end ставится точка.

Общий вид программы:

program <имя>; {заголовок программы}
uses      ...;       {раздел описания модулей}
var       ...;       {раздел объявления переменных}
label     ...;       {раздел объявления меток}
const     ...;       {раздел объявления констант}
type      ...;       {раздел объявления типов}
function  ...;       {раздел объявления функций}
procedure ...;       {раздел объявления процедур}

begin
   {последовательность  операторов}
end. {конец программы}

В разделе описаний не обязательно должны быть все разделы.

В наших первых программах будет только один раздел — раздел Var (variable — переменная), в котором мы будем объявлять те переменные, которые будем использовать в разделе операторов.

Как написать простейшую программу

Рассмотрим простейшую задачу с линейным алгоритмом.

Для записи программы с линейным алгоритмом нам нужно описать входные и выходные данные, нужны процедуры для вводы и вывода данных и оператор присваивания.

Урок 1. Первая программа на языке ПаскальЗадача. Ввести с клавиатуры два числа. Вывести на экран их произведение.

Программа на Паскаль

Пояснения к программе

Имя этой программы example_1.

Из разделов описаний имеется лишь один — раздел переменных. Он начинается со служебного слова var, после которого идет последовательность объявления переменных, разделенных точкой с запятой.

В каждом объявлении перечисляются через запятую имена переменных одного типа, после чего ставится двоеточие и указывается тип переменных.

В нашем примере описаны три переменные: все они (a, b и rez) имеют целый тип (integer).

После описательной части идет раздел операторов, начинающийся со служебного слова begin.

Первый встречающийся оператор — это writeln(‘текст’); — записать (вывести) на экран текст, заключенный между апострофами, ln добавляется в конце этого оператора для того, чтобы курсор автоматически переходил на следующую строку при выводе на экран текстов или результатов выполнения программы.

Следующий оператор — это readln(a,b); — читать данные с клавиатуры.

В данном случае во время выполнения программы необходимо ввести два целых числа через пробел, тогда переменной a присваивается значение, равное первому введенному числу, а переменной b присваивается значение, равное второму введенному числу.

Например, вы ввели числа 12 и 45, тогда a = 12, а b = 45. В конце этого оператора также можно ставить ln.

После этих двух операторов стоит оператор присваивания: rez := a * b; (:= — это знак присваивания в языке Паскаль). Переменная rez получит значение, равное произведению числа a на число b .

Следующий оператор — это снова оператор writeln(‘текст’,rez) — он выведет на экран текст, заключенный между апострофами, а за ним значение переменной rez.

Затем следующий оператор writeln выведет на экран сообщение: »Нажмите <Enter>», а оператор readln будет ожидать этого нажатия в окне выполнения.

Завершает раздел операторов  end с точкой.

Выполнение программы

После запуска программы на экране появляется сообщение:

Введите два целых числа через пробел

Курсор мигает в следующей строке, вводим два целых числа через пробел и нажимаем <Enter>, после этого появляется сообщение:

произведение равно...

Нажмите <Enter>.

Коротко о главном

Урок 1. Первая программа на языке ПаскальПрограмма на языке Pascal состоит из заголовка, раздела описаний и раздела операторов.

Урок 1. Первая программа на языке ПаскальЕсли программа содержит несколько операторов, то они разделяются знаком точки с запятой.

Урок 1. Первая программа на языке ПаскальНачало и конец раздела операторов обозначаются ключевыми словами begin и end. После слова end в конце текста программы всегда ставиться точка. Она означает, что программа закончена.

Урок 1. Первая программа на языке ПаскальКоманда вывода на экран — write(‘текст’) и writeln(‘текст’) отличаются положением курсора после выполнения команды. Команда write(‘текст’) оставляет курсор на той же строке, что и текст, а writeln переводит курсор на новую строку.

Урок 1. Первая программа на языке ПаскальКомпиляция выполняется клавишей F9. Для выполнения программы надо нажать Ctrl+9.

ТестПроверь себя!

Если Паскаль на компьютере не установлен:   Скачать PABCDistr.rar .
До встречи в следующем уроке.
В уважением, Вера Господарец.

HelloWorl

Обычно, изучение любого языка программирования начинается с программы Hello, world! Но мы с вами займемся этим чуть попозже, потому что сейчас я хочу рассказать вам о величинах и типах данных в Pascal.

Виды величин

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

величины

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

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

числовые

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

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

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

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

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

Заголовок

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

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

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

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

Begin
<оператор 1>;
<оператор 2>;

end.

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

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

Для ввода:

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

И для вывода:

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

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

Hello, World на Pascal

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

Program Hello_World; {фигурные кавычки позволяют вставить комментарий к коду}
Begin
Write('Hello, World!');
End.

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

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

Program Hello_boy_girl; {фигурные кавычки позволяют вставить комментарий к коду}
var name: string; {объявляем name -- это новая переменная}
Begin
Write('Введите свое имя: '); {так как мы используем write, курсор будет мигать после двоеточия}
Read(name); {Считываем все, что ввел пользователь}
Write('Привет,', name,'!'); {Обратите внимание! Переменная отделяется от кавычек ЗАПЯТЫМИ!}
End.

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

Program How_old_are_you;
var years: integer; {объявляем years -- это новая переменная}
Begin
Writeln('Сколько вам лет?'); {так как мы используем writeln, каретка будет мигать под надписью}
Read(years); {Считываем все, что ввел пользователь}
Write('Вам ', years,' лет.'); 
End.

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

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

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

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

На занятии будет рассмотрена работа с текстовыми файлами в Паскале и разобраны конкретные решенные примеры задач

Содержание:

  • Работа с файлами в паскале
  • Текстовые файлы в паскале: процедуры работы
    • Открытие файла (классический Pascal)
    • Чтение из файла (классический Pascal)
    • Запись в текстовый файл (классический Pascal)
    • Процедуры работы с файлом и закрытие файла
    • Работа с данными из файла как с массивом

Работа с файлами в паскале

Виды файлов в зависимости от их описания и режимом работы

  1. текстовые (тип text) файлы со строками неопределенной длины;
  2. файлы с типом записей (двоичные или типизированные (file of) );
  3. файлы без типа для передачи данных блоками записей нетипизированные (file).

Описание файловых переменных:

var
   f1: file of char; {типизированный файл}
   f2: file of integer; {типизированный файл}
   f3: file; {нетипизированный файл}
   f: text; {текстовый файл}

Для связи файла в коде программы и действительного файла на внешнем носителе используется процедура ASSIGN:

assign(myfile,'c:text.txt');

где myfile — имя переменной (объявленной ранее в области var), ассоциированной с файлом
c:text.txt — путь к реальному файлу
Первый аргумент процедуры assign в паскаль — переменная, второй – путь к файлу на диске.

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

Считывание строки Считывание массива из N целых
begin
 Assign(input,'24.txt');
 var s := ReadString;
 ...
end.
begin
 Assign(input,'26.txt');
 var N := ReadInteger;
 var a := ReadArrInteger(N);
 ...
end.

Текстовые файлы в паскале: процедуры работы

Текстовый файл в Паскале — это совокупность строк произвольной длины, которые разделены между собой метками конца строки, а весь файл заканчивается меткой конца файла.

Важно: Если быть точными, то каждая строка текстового файла завершается специальной комбинацией, называемой «конец строки».
Комбинация «конец строки» состоит из двух символов: перевод каретки (ASCII-код #13) и перевод строки (#10). Завершается текстовый файл символом конец файла (#26).

Возможные расширения файлов:
*.txt, *.log,
*.htm, *.html

Метод работы с текстовым файлом в Паскале предусматривает лишь последовательный доступ к каждой строке файла. Это означает, что начинать всегда возможно только с первой строки, затем проходя по каждой строке, дойти постепенно до необходимой. Т.е. можно сказать, что чтение (или запись) из файла (в файл) ведутся байт за байтом от начала к концу.

Предусмотрены два режима работы: режим для записи в файл информации и для чтения ее из файла. Одновременная запись и чтение запрещены.

Открытие файла (классический Pascal)

Допустим, мы в программе описали переменную для работы с текстовым файлом:

Рассмотрим дальнейшую последовательность работы с ним, и рассмотрим процедуры, необходимые для работы с текстовым файлом в Паскале:

процедура открытия существующего файла для чтения при последовательном доступе:

процедура открытия создаваемого файла для записи в него информации; если файл с таким именем уже существует, то информация в нем стирается:

процедура добавления в конец:

  • При открытии курсор устанавливается в начало файла.

открытие файла

Чтение из файла (классический Pascal)

Read (f, список переменных);
ReadLn (f, список переменных);

Отличие ReadLn от Read в том, что при использовании readln после прочтения данных пропускаются все оставшиеся символы в данной строке, включая метку конца строки.

  • чтение осуществляется с той позиции, где в данный момент стоит курсор;
  • после чтения курсор сдвигается к первому непрочитанному символу.

чтение из файла

  • Чтение до конца файла: оператор EOF (end of file).
  • Чтение до конца строки: оператор EOL (end of line).
  • Чтение до конца строки

  • Для возврата в начало файла:
  • close ( f ); 
    reset ( f ); { начинаем с начала }

    Запись в текстовый файл (классический Pascal)

    Write (f, список переменных);
    WriteLn (f, список переменных);

    где f — файловая переменная, а второй параметр – выводимые из программы и вводимые в файл данные (в виде значений переменных или просто данные)

    Процедуры работы с файлом и закрытие файла

    Нахождение конца файла:

    Логическая функция, возвращающая True, если достигнут конец файла.

    Нахождение конца строки:

    Логическая функция, возвращающая True, если достигнут конец строки.

    Удалить файл в Паскале

    Переименование файла в Паскале

    rename(переменная_файла,'новое имя файла');

    Закрытие:

    Close (f);  {закрытие файла}

    Важно: Таким образом, работа с файлом осуществляется через три основных шага:

    1. Процедура assign.
    2. Процедура reset или rewrite.
    3. Процедура close.

    Рассмотрим пример работы с файлами в паскале:

    Пример 1: В файле text.txt записаны строки. Вывести первую и третью из них на экран.
    (предварительно создать text.txt с тремя строками)

    Решение:

    Паскаль PascalAbc.NET
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    
    var
       filetext: text;
       a,b,c:string;
    begin
    assign(filetext,'c:text.txt');
    reset(filetext);
    readln(filetext,a);
    readln(filetext,b);
    readln(filetext,c);
    close(filetext);
    writeln(a);
    writeln(c);
    end.
    1
    2
    3
    4
    5
    6
    7
    
    begin
      Assign(input, '1.txt');
      var a := ReadString;
      var b := ReadString;
      var c := ReadString;
      print(a, c)
    end.

    Пример 2: Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).

    Показать решение:

    Паскаль PascalAbc.NET
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    
    var
      F: Text;
      N,K:integer;
      Name:String;
      C:Char;
    begin
     Assign(F,'c:text.txt');
     Reset(F);
     N:=0;
     K:=0;
     While not eof(F) do
      begin
       inc(N);
       While not eoln(f) do
        begin
         inc(K);
         Read(F,C);
        end;
       Readln(F);
      end;
     Close(F);
     Writeln(N,' ',K);
    end.
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    
    begin
      Assign(input, '1.txt');
      var n, k: integer;
      while not eof(input) do
      begin
        inc(n);
        while not eoln(input) do
        begin
          inc(k);
          var a := ReadChar;
        end;
        var b := ReadString;
      end;
      print($'строк {n}, символов {k}')
    end.

    Пример 3:
    Считать из файла input.txt числа (числа записаны в столбик). Затем записать их произведение в файл output.txt

    Решение:

    Паскаль PascalAbc.NET
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    
    var p, x: integer;
        f: text; 
    begin
    assign(f, 'input.txt');
    reset(f);
    p := 1;
    while not eof(f) do begin
      readln(f, x); 
      p := p * x;
    end;
    close(f);   
    assign(f, 'output.txt');
    rewrite(f);
    writeln(f, 'Произведение чисел ', p);   
    close(f);
    end.
    begin
      Assign(input, 'input.txt');
      Assign(output, 'output.txt');
      var p := 1;
      while not eof(input) do
      begin
        var x := readInteger; 
        p := p * x;
      end;
      print($'произведение {p}');
    end.

    pascal file text1. В цикле записать в файл числа от 1 до 10 (каждое — в своей строке), а затем их считать и отобразить на экране.
    Дополните код:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    
    var
       filetext: text;
       a:string;
       i:integer;
    begin
    assign(filetext,'c:text.txt');
    rewrite(filetext);
    for i:=1 to 10 do
        ...
    reset(filetext);
    for i:=1 to 10 do begin
        ...
        ...
    end;
    close(filetext);
    end.

    pascal file text2. Даны целые положительные числа N и K. Создать текстовый файл и записать в него N строк, каждая из которых состоит из K символов «*» (звездочка).

    pascal file text3. Дана строка S и текстовый файл. Добавить строку S в конец файла.

    Показать решение:

    Паскаль PascalAbc.NET
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    
    var
      F_in,F_out: Text;
      Name,S: String;
     
    begin
     
     Write('S: ');
     Readln(S);
     Assign(F_in,'c:text.txt');
     Reset(F_in);
     Assign(F_out,'c:text1.txt');
     Rewrite(F_out);
     
     Writeln(F_out,S);
     While not eof(F_in) do
      begin
       Readln(F_in,S);
       Writeln(F_out,S);
      end;
     
     Close(F_in);
     Close(F_out);
     Erase(F_in);
     Rename(F_out,'c:text.txt');
    end.
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    
    begin
      var s := readstring('s: ');
      Assign(input, 'input.txt');
      Assign(output, 'output.txt');
      println(S);
      while not eof(input) do
      begin
        s := ReadString;
        println(s);
      end;
      close(input); // обязательно!
      close(output); // обязательно!
      Erase(input);
      Rename(output, 'input.txt');
    end.

    pascal file text4. Дано целое число K и текстовый файл. В данном файле вставить пустую строку перед строкой с номером K. Если строки с таким номером нет, то оставить файл без изменений.
    Для решения задачи можно использовать дополнительный временный файл.

    Пример 5: Дано целое число K и текстовый файл. Удалить из файла строку с номером K. Если строки с таким номером нет, то оставить файл без изменений.

    Примерный результат:
    до:

    >> 2
    0line 
    1line 
    2line 
    3line 

    после:

    0line 
    2line 
    3line 

    Показать решение:

    Паскаль PascalAbc.NET
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    
    var
      F_in,F_out: Text;
      Name,line: string;
      K,i:integer;
     
    begin
     Write('K: ');
     Readln(K);
     Assign(F_in,'c:text.txt');
     Assign(F_out,'c:text1.txt');
     Reset(F_in);
     Rewrite(F_out);
     
     i:=0;
     While not eof(F_in) do
      begin
       Readln(F_in,line);
       inc(i);
       if i<>K then Writeln(F_out,line);
      end;
     
     Close(F_in);
     Close(F_out);
     Erase(F_in);
     Rename(F_out,'c:text.txt');
    end.
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    
    begin
      var k := readinteger('k: ');
      Assign(input, 'input.txt');
      Assign(output, 'output.txt');
      var i:=0;
      while not eof(input) do
      begin
        var s := ReadString;
        inc(i);
        if i<>k then 
          println(s);
      end;
      close(input); // обязательно!
      close(output); // обязательно!
      Erase(input);
      Rename(output, 'input.txt');
    end.

    Пример 6: Дан текстовый файл F1 с набором нулей и единиц. Необходимо заменить все вхождения сочетаний 101 на 000. Скорректированные записи поместить в файл F2.

    * Использовать функции для работы со строками:
    — Pos()
    — Delete()
    — Insert()

    Показать решение:

    Паскаль PascalAbc.NET
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    
    var 	f1,f2: text;
    pole:string;
    pz:integer;
    begin
    assign(f1,'1.txt');
    assign(f2,'2.txt');
    reset(f1); rewrite(f2);
    while not eof(f1) do
    begin
         readln(f1, pole);
         while pos('101',pole)<>0 do
         begin
              pz:=pos('101',pole);
              delete(pole,pz,3);
              insert('000',pole,pz);
         end;
         writeln(f2,pole)
    end;
    close(f1);
    close(f2);
    end.
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    
    begin
      Assign(input, 'input.txt');
      Assign(output, 'output.txt');
      var s:=readString;
      var s1:='';
      var ind := s.IndexOf('101');
      while ind<>-1 do
      begin
        s1+=s[:ind+1];
        s1+='000';
        delete(s,1,ind+3); // удаляем всё вместе с 101
        ind := s.IndexOf('101');
      end;
      s1+=s;
      Println(s1);
    end.

    Работа с данными из файла как с массивом

    Пример 7: В файле input.txt записаны числа (каждое — с новой строки), их количество не превышает 100. Необходимо отсортировать их по возрастанию и записать в файл output.txt.

    Трудности:

    • для сортировки необходим массив, для того чтобы одновременно работать со всеми числами;
    • неизвестно общее количество чисел.

    Алгоритм решения:

    • объявляем массив для 100 элементов;
    • открываем файл на чтение, просчитываем количество чисел, заполняя массив, сохраняем количество в N;
    • сортируем N элементов массива;
    • записываем результат в файл.

    Фрагмент решения:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    
    { Определяем глобальные переменные: }
    var A: array[1..100] of integer;
        f: text;
        N, i: integer;
    { Определяем функцию, считывающую числа из файла, и
    записывающую их в массив. Функция возвращает кол-во элементов массива: }
    function ReadFromFile: integer;
    var i: integer;
    begin
     assign(f, 'input.txt');
     ...;{ открытие файла в режиме чтения }
     i := 0;
     while (...) and (...) do begin
        i := i + 1;
        readln(...,...);  
        end; 
     close(f);    
     ReadFromFile := i;
    end;
    { Основная программа }
    Begin
       N := ReadFromFile ;
    { сортировка N элементов по возрастанию }
    { ... }
    { запись отсортированного массива в файл: }
    assign(..., ...);
    ...;{ открытие файла в режиме записи }
    for i:=1 to N do 
      writeln(..., ...);     
    close(f);
    end.

    pascal file text5. В файле input.txt записаны числа (каждое — с новой строки), их количество не превышает 100. Необходимо найти максимальное и минимальное число и записать их в файл output.txt.

    pascal file text6. Дан текстовый файл. Удалить из него все пустые строки.

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

    Пример 8: Шифр Цезаря заключается в том, что каждая буква исходной строки заменяется третьей после нее буквой в алфавите, который считается написанным по кругу (все символы текста латинские и прописные).
    Решить ту же задачу, в которой сдвиг будет не на 3 позиции, а на k, причем отрицательное значение является признаком сдвига влево, положительное — вправо.
    Формат входных данных (файл p.in): В первой строке записано число k, не превышающее по модулю 20. Во второй строке — текст, который необходимо зашифровать. Все символы текста латинские и прописные.
    Формат выходных данных (файл p.out): Выведите зашифрованный текст.
    Пример:

    p.in p.out
    3
    hello earth
    khoor hduwk

    * желательно создать файлы и записать данные в исходный файл «вручную»
    * программа решена для k=3, выполните программу для любых k (не превышающих 20 по модулю)

    Фрагменты кода:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    
    var a:char;
        i,n,k:byte;
        s,s1:string;
        f_in,f_out:text;
    begin
    Assign(F_in,'z:p.in');
    Assign(F_out,'z:p.out');
    Reset(F_in);
    Rewrite(F_out);
    s1:='';
    readln(f_in,k);
    readln(f_in,s);
    for i:=1 to length(s) do
        begin
         n:=ord(s[i]);
         if n<>32 then  {32 - пробел}
            n:=n+3;
         if ... then ...; 
         if ... then ...; 
         if ... then ...; 
         a:=chr(...);
         s1:=...;
         end;
         writeln(s1);
         writeln(f_out,s1);
         close(f_in);
         close(f_out)
    end.

    pascal file text7. Пять делителей.
    Имя входного файла: z3.in
    Имя выходного файла: z3.out

    Найти сумму всех чисел от 1 до n, имеющих ровно 5 делителей.
    Единица и само число входят в число его делителей.
    Входные данные
    В единственной строке входного файла z3.in записано одно натуральное число n(1 <= n <= 1012).
    Выходные данные
    В единственную строку выходного файла z3.out нужно вывести одно натуральное число — найденную сумму.

    Примеры:

    z3.in z3.out
    50 16
    200 97
    2015 722

    * Олимпиадное задание (11 класс, 2016)

    to continue to Google Sites

    Not your computer? Use Guest mode to sign in privately. Learn more

    Понравилась статья? Поделить с друзьями:
  • Как найти файлы в винрар
  • Как найти средний срок кредита
  • Как найти сморчков в лесу
  • Вот составила как смогла
  • Как исправить смс в ватсапе ошибку