 |
|
Примеры составления программ на языке Паскаль.
Программы с линейной структурой
Пример1. Написать программу вычисления площади прямоугольника. Ниже представлен рекомендуемый вид экрана:
Введите исходные данные:
длина (см) -> 9
ширина (см) -> 7.5
Площадь прямоугольника 67.50 кв.см.
program ploshad;
var
l, w: real; {длина и ширина прямоугольника
S: real; {площадь прямоугольника }
begin
writeln (‘Введите исходные данные:’);
write (‘длина (см) -> ’); readln(l); {ввод длины}
write (‘ширина (см) ->’); readln (w); {ввод ширины}
S:=l*w; {вычисление площади}
writeln (‘Площадь прямоугольника:’, S:6:2,’кв.см’); {вывод результата}
end.
Выбор IF
Условный оператор используется в тех случаях, когда вычисления могут пойти по различным путям. В языке Паскаль для таких вычислений предусмотрен условный оператор, который имеет две формы – полную и краткую.
Полная форма имеет вид:if <логическое выражение> then <оператор 1> else <оператор 2>
Неполная форма: if <логическое выражение> then <оператор 1>
Пример 2. Написать программу решения квадратного уравнения ax2+bx+c=0.
Program kwur;
var a,b,c: real; {коэффициенты уравнения}
x1,x2: real; {корни уравнения} d: real; {дискриминант}
begin write (‘введите коэффициенты уравнения’); readln(a,b,c);
d:=b*b-4*a*c;
if d>=0 {проверка условия}
then begin
x1:=(-b-sqrt(d))/(2*a); {вычисления первого корня}
x2:= (-b+sqrt(d))/(2*a); {вычисление второго корня}
writeln(‘x1=’, x1:9:3); writeln(‘x2=’, x2:9:3);{вывод результата}
end else writeln(‘корней нет’); {случай, когда d<0}
readln;
end.
CASE
Оператор варианта CASE имеет следующую форму:
case <выражение> of
<список констант 1>: <оператор 1>;
<список констант 2>:<оператор2>;
<список констант N>; <оператор N>
end.
Пример 3. В зависимости от номера месяца выдать сообщение о времени года.
program wibor;
var k: integer; {номер месяца}
begin writeln (‘введите номер месяца’); readln (k);
case k of
1,2,12: writeln(‘зима’); {выбор времени года по номеру месяца}
3,4,5: writeln (‘весна’);
6,7,8: writeln (‘лето’);
9,10,11: writeln (‘осень’)
end; readln; end.
Практическое занятие №3. MS Word. Ввод и форматирование текста
Задание. Проведите форматирование текста, отображенного на рис. 1 так, чтобы получился образец, приведенный на рис. 2
1. Выполните команду Пуск, Программы, Microsoft Word
2.Установите режим постраничного отображения выполнив команду Вид, Разметка страницы
3. На панели инструментов Форматирование :
· щелкните по кнопке выравнивания текста <По левому краю>;
· установите размер шрифта –14;
· установите тип шрифта – Times New Roman.
4.Задайте параметры страниц:
Верхнее: 2 см
Нижнее: 2 см
Левое: 2 см
Правое: 2 см
5. Наберите текст указанный на рис. 1, не нажимая клавишу Enter
Уважаемые господа! Приглашаем Вас на юбилейную презентацию компьютерной фирмы «ИфраКом». Мы работаем на рынке много лет. Нашей продукцией пользуются многие страны. Наши компьютеры работают без рекламаций! Мы будем рады видеть Вас. Наш адрес- проспект Жамбыла, д. 45. Справки по телефону 45-25-68.
Рисунок –1
УВАЖАЕМЫЕ ГОСПОДА!
Приглашаем Вас на юбилейную презентацию
компьютерной фирмы «ИфраКом».
Мы работаем на рынке много лет. Нашей продукцией пользуются многие страны.
Наши компьютеры работают без рекламаций!
Мы будем рады видеть Вас.
Наш адрес - проспект Жамбыла, д. 45.
Справки по телефону 45-25-68.
Рисунок – 2
6. Сохраните документ в папку Мои документы:
· Выполните команду Файл, Сохранить как;
· В появившемся окне <Сохранение документа> в строке Папка выберите Мои документы;
· В строке <<Имя файла>> введите Текст1;
· Нажмите кнопку <Сохранить>.
7. Закройте документ командой Файл, Закрыть
8. Откройте документ Текст1:
· выполните команду Файл, Открыть;
· установите в диалоговом окне <<Открытие документа>> курсор на имени вашего файла;
· нажмите кнопку <Открыть>.
9. Разбиение текста «Уважаемые господа» на абзацы производится с помощью клавиши <Enter>
10. Оформите в тексте обращение “Уважаемые господа”:
· выделите обращение “Уважаемые господа”;
· выполните команду Формат, Шрифт;
· в диалоговом окне <Шрифт> установите параметры:
Шрифт: Times New Roman
Начертание: полужирный
Размер: 16 пт
По остальным параметрам флажков и указаний нет
· в диалоговом окне <Интервал> установите параметры:
Масштаб:100%
Интервал: разреженный
На: 6 пт
Смещение: нет
Кернинг: флажка нет
11. Отцентрируйте фрагмент «Уважаемые господа». Для этого воспользуйтесь командным режимом:
· установите курсор в абзаце, щелкнув в нем мышью;
· выполните команду Формат, Абзац;
· в диалоговом окне <Отступы и интервалы> установите параметры:
Выравнивание: по центру
Отступы: слева и справа –0
Интервал: перед-6пт; после-12 пт
Уровень: основной текст
Первая строка: нет
Межстрочный интервал: полуторный
12. Изменим строчные буквы на прописные:
· выделите фрагмент текста «Уважаемые господа»;
· выполните команду Формат, Регистр;
· включите кнопку <Все прописные> и нажмите кнопку <ОК>.
13.Остальной текст оформите самостоятельно с образцом на рис.2
14. Скопируйте первый абзац в конец текста приглашения, используя мышь:
· выделите абзац;
· установите курсор мыши на выделение, добившись появления стрелки 
;
· щелкните правой кнопкой мыши и в появившемся меню выберите команду Копировать;
· установите курсор мыши в конец документа, щелкните правой клавишей и в появившемся меню выберите команду Вставить;
15. Скопируйте второй абзац в конец текста приглашения, воспользовавшись командами меню:
· выделите абзац;
· введите команду Правка, Копировать;
· установите курсор мыши в конец документа;
· введите команду Правка, Вставить;
16. Удалите копию первого абзаца, проделав действия мышью:
· выделите абзац;
· установите курсор мыши на выделение, добившись появления стрелки ;
· щелкните правой кнопкой мыши и в появившемся меню выберите команду Вырезать.
17. Удалите копию второго абзаца, воспользовавшись командами меню:
· выделите абзац;
· введите команду Правка, Вырезать.
18. Заключите весь текст в рамку. Для этого:
· выделите весь текст одним из возможных способов;
· выполните команду Формат, Границы и заливка;
· в диалоговом окне <Граница> установите параметры:
Тип (рамки): тень
Тип (линии):двойная волнистая
Ширина: 0,75 пт
Цвет: красный
Применить к: абзацу
· в диалоговом окне <Заливка> установите параметры:
Тип: светлая сетка
Цвет фона: бирюзовый
Применить к: абзацу
· нажмите кнопку <ОК>
19. Сохраните файл:
· выполните команду Файл, Сохранить;
20. Сохраните файл на Дискету:
· выполните команду Файл - Сохранить как;
· в появившимся окне выберите папку Диск 3,5 А и введите в строку <Имя файла> Текст 2;
· нажмите кнопку Сохранить.
21. Закройте документ командой Файл - Закрыть.
Практическое занятие №4. Таблица в среде текстового процессора WORD.
Задание.Подготовьте таблицу “Телефонно-адресная книга”
| Телефонно-адресная книга | ||||||
| Фамилия | Имя | Отчество | Телефон | Страна | Город | Индекс |
| Алексеев | Сергей | Иванович | Россия | Новосибирск | ||
| Ткаченко | Марина | Михайловна | Россия | Екатеринбрг | 894752 . | |
| Бондаренко | Юрий | Олегович | Россия | Иркутск | ||
| Горбунков | Семен | Семенович | Россия | Красноярск | ||
| Суслов | Виктор | Викторович | Россия | Москва | ||
| Бикеев | Амир | Манасович | Казахстан | Атырау | ||
| Тамыров | Данияр | Айдарович | Казахстан | Актобе | ||
| Бастемиров | Болат | Аскарович | Казахстан | Кентау | ||
| Гварцители | Тамара | Закировна | Грузия | |||
| Каримова | Рафиля | Ренатовна | Татарстан | Уфа | ||
| Димитриади | Костантин | Олегович | Греция | Афины |
Рисунок 3 - “Телефонно-адресная книга”
1. Создайте новый документ командой Файл, Создать
2. Создайте таблицу из 12 строк и 7 столбцов. Для этого:
§ выполните командуТаблица, Добавить таблицу;
§ в появившемся диалоговом окне <<Вставка таблицы>> укажите необходимое число столбцов (7) и строк (12).
3. Выполните объединение ячеек первой строки. Для этого:
§ установите мышь в первой ячейке первой строки, нажмите левую клавишу мыши и, не отпуская, перемещайте курсор до тех пор, пока вся строка не будет выделена (все дальнейшие выделения ячеек, столбцов и строк производятся таким же образом);
§ нажмите правую клавишу мыши и в появившемся меню выберите команду Объединить ячейки.
4. Выделите 1 столбец для строк 2-12 и установите ширину столбца 0,7 см. Для этого выполните команду Таблица, Высота и ширина ячейки.
5. Выделите 2 столбец для строк 2-12 и установите ширину столбца 2,75 см – команда Таблица, Высота и ширина ячейки.
6. Выделите 3 столбец для строк 2-12 и установите ширину столбца 1,5 – команда Таблица, Высота и ширина ячейки
7. Выделите оставшиеся столбцы для строк 2-12 и установите ширину столбца 1,75 – команда Таблица, Высота и ширина ячейки.
8. Введите текст в ячейки таблицы, соблюдая форматирование. Шрифт: Times New Roman. Размер: 10 пт
9. Добавить строку перед второй строкой. Для этого:
§ установите курсор на начало второй строки, выполните командуТаблица -Добавить строки или с помощью контекстного меню Добавить строки.
10. Удалите добавленную строку. Для этого:
§ установите курсор на начало удаляемой строки или выделите удаляемую строку;
выполните команду Таблица -Удалить строки или с помощью контекстного меню Удалить строки.
11. Разбейте на 2 столбца столбец «Телефон». Для этого:
выделите весь столбец и выполните команду Таблица - Разбить ячейки;
в диалоговом окне <Разбиение ячеек>, укажите число столбцов (1), строк (11). Нажмите кнопку <ОК>
12. Отмените последнее действие. Для этого:
§ 
нажмите на Стандартной панели инструментов на кнопку
13.Затените строки и столбцы таблицы:
§ введите команду Формат, Границы и заливка;
§ в диалоговом окне <<Заливка>> выберите оттенки, соответствующие исходным нам рис.3
14. Сохраните файл, выполнив командуФайл, Сохранить как, под именем Таблица.doc
15. Закройте файл (документ), выполнив команду Файл, Закрыть.