Примеры составления программ на языке Паскаль.

Программы с линейной структурой

Пример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. Написать программу решения квадратного уравнения ax²+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 пт