Ваша первая программа на Паскале

Вид материалаПрограмма

Содержание


Вопросы - ответы
Правый ctrl+shift
Паскаль все время при запуске выходит в ДОС. Можно ли что-нибудь сделать, чтобы он работал в Windows, получить возможность перек
Подобный материал:
1   ...   7   8   9   10   11   12   13   14   ...   23

Практика


Задачи, которые я вам сейчас задам, мне присылать не нужно! Это работа не будет проверяться, так как является рядовым заданием для самостоятельного выполнения. Практикуйтесь сами, вам сейчас нужно больше работать с Паскалем. Итак, задачи:







1

Напишите программу, которая будет запрашивать у пользователя данные - ФИО, дату рождения. После чего будет выводить их на экран каким-нибудь форматным образом. К примеру, так:

Имя: Василий

Фамилия: Петров

Отчество: Иванович

Родился: 22.11.1961 г.

Сделайте возможность изменять данные, то есть возвращаться назад.

2

Ввести несколько символов, составляя из них строку. Далее - ввести целую строку и проверить, равны ли получившиеся строки.

3

Запросите текущее время (в часах). В зависимости от времени суток, выведете приветсвие на экран, вроде:

"Доброе утро!"

"Добрый день!"

"Доброй ночи!"

4

Напишите простейший калькулятор. Вводите два числа, знак действия (+,-,*. Без деления!) и выполняйте это самое действие. Ответ на экран, спросите, начать ли заново, то есть сделайте его интерактивным.

5

Придумайте сами себе несколько заданий, полезно будет!!!

Изучите все, что мы сегодня проходили. Нужно понять до конца, что такое goto, волженность и метки. Это нам дальше понадобиться, а пока все. Разбирайтесь!


Вопросы - ответы


У меня Паскаль не отображает русские буквы, что делать?




Видимо, у Вас не загружены драйверы русских букв, точнее их поддержки с клавиатуры. Загружать их надо так:
  1. Найдите в корневом каталоге файл autoexeс.bat и откройте его. Далее надо вписать такие строки (разверните письмо на весь эран, так как они почтовой программой они переносятся посередине, а писать их в файл autoexec.bat так нельзя. Но я на всякий случай их пронумеровал).
    1. Mode con codepage prepare=((866) C:\WINDOWS\COMMAND\ega3.cpi)
    2. Mode con codepage select=866
    3. Keyb ru,,C:\WINDOWS\COMMAND\keybrd3.sys

Написали? Сохраните файл autoexec.bat. Да, еще - если 1-е две строчки (или другие там есть, не меняйте их), если же путь к папке Windows\command у Вас другой (не c:\windows\command) измените его.
  1. Откройте файл config.sys (он тоже в корневом) Напишите: (без цифр в начале)
    1. Device=C:\WINDOWS\COMMAND\display.sys con=(ega,,1)
    2. Country=007,866,C:\WINDOWS\COMMAND\country.sys
  2. Сохраните это и перезагрузите компьютер. Теперь запустите Turbo Pascal и нажмите ПРАВЫЙ CTRL+SHIFT. Компьютер должен пикнуть. Печатайте. Русский? Отлично. Переключайтесь на Английский нажатием ЛЕВЫЙ CTRL+SHIFT и обратно. В общем, здесь комбаниция левый - англ. правый - русский.

Теперь должно работать.......

Паскаль все время при запуске выходит в ДОС. Можно ли что-нибудь сделать, чтобы он работал в Windows, получить возможность переключаться между приложениями?




Это обойти можно, причем очень просто.

Сделайте следующее:
  1. Щелкните на файле turbo.exe правой кнопкой ымши и выберите "свойства".
  2. Выберите вкладку "Программа".
  3. Выберите "Дополнительно".
  4. Уберите флажок "Режим MS DOS".

Нажимайте далее ОК и все.

В прошлом выпуске мы освоили расширения конструкции if...then...else, а именно процедуру goto. Я показал, как с ее помощью можно строить интерактивные программы, управлять работой и ходом выполнения программы. Эта возможность дала вам некоторые новые перспективы написания более усовершенстованных программ. Но этого мало, нормальную программу не написать, пользуясь только элементами сравнения. В Паскале есть и другие конктрукции, позволяющие совершенствовать и усложнять тексты программ, а слудовательно, расширять возможности программирования.

Мы по порядку и своевременно будем их все изучать. Сегодня продолжаем изучение конструкций, а именно новой конструкции - циклов. Циклы - это неотъемлемая чать программы. На самом деле эта конструкция проста, но многие иногда не понимают самого ее принципа - зачем это и как используется? Имено поэтому я сначала хочу рассказать о том, что такое циклы и когда они могут потребоваться.

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

Итак, решение программы очевидно:
  1. Мы читаем в переменную строку.
  2. Десять раз выводим ее на экран.
  3. Завершаем программу.

Все вроде ясно. Читать строку мы будем процедурой Readln, как завершить программу тоже не вопрос. А вот как вывести строку 10 раз? Можно десять раз написать процедуру Writeln. Но это ОЧЕНЬ громоздко и нерационально. Здесь желательно как-нибудь застопорить программу - тот ее кусок, который выводит 10 раз строку, чтобы он повторялся сам. Для этого и используюся циклы! Они позволяют "зацикливать программу", то есть заставляют ее повторяться несколько раз - столько, сколько нужно пользователю.

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

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