Алгоритмы и их свойства (стр. 6 )

а) если переменной ничего не присваивалось, то ее значение равно 0;

б) значение, присвоенное переменной, сохраняется в ней до нового присваивания;

в) новое значение, присвоенное переменной, заменяет ее предыдущее значение.

В примере демонстрируется использование оператора присваивания для задания начального значения аргумента и вычисления значения функции.

Пример 1. Вычислить значение функции при a = 27; y= 2.35.

Program func1;

const a=27;

var y, z: real;

Begin

y:=2.35;

z:=exp(sin(y))+sqrt(a);

End.

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

Форматы записи: READ (<список переменных>); или

READLN (<список переменных>); - дополнительно переводит курсор на новую строку.

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

Использовать этот оператор удобно, когда требуется выполнить одни и те же действия (например, вычисления) при разных начальных значениях переменных или эти значения не заданы конкретно при формулировке задачи.

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

Пример 2. Вычислить значение функции при a = 27; y=23; y=3.56; y=-12.

Т. к. значение функции требуется вычислить при нескольких значениях аргумента Y, то целесообразно значение Y вводить с клавиатуры.

Program func2;

const a=27;

var y, z: real;

Begin

readln(у);

z:=exp(sin(y))+sqrt(a);

End.

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

3. Оператор вывода данных

В примерах 1 и 2 вычислялись значения функции, но невозможно было узнать результат вычислений. Для этого необходимо выполнять вывод полученных результатов на экран.

Форматы записи: WRITE (<список вывода>); или

WRITELN (<список вывода>); - дополнительно переводит курсор на новую строку.

Назначение: вывод на экран данных списка вывода.

Элементы списка вывода разделяются запятой.

Список вывода может содержать:

константы а) write (15); write (16); На экране: 15 16 б) writeln (-27, 3.5); write (15); На экране: -27 3.5 15

переменные a:=3; b:=5; c:=-2; а) write (a) На экране: 3 б) writeln (a, b, c); На экране: 3 5 -2

выражения a:=3; b:=5; c:=-2; а) writeln (a + b); На экране: 8 б) write (a + b, b + 2*c); На экране: 8 1

текст (заключается в апострофы ‘ ’) а) write (‘Ответ:’); На экране: Ответ: б) write (‘a + b’); На экране: a + b

Оператор вывода данных может осуществлять вывод данных по определенным форматам, которые задаются в следующем виде:

<имя переменной> : m для переменных целого типа;

<имя переменной> : m : n для переменных вещественного типа,

m и n - параметры ширины поля вывода:

m – общее количество позиций в поле (например, цифр в числе);

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

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

Примеры:

a:=234; b:=34.563834534;

write(a:3); На экране: 234

write(a:10); На экране: 234

write(b:6:3); На экране: 34.564

write(b:5:2); На экране: 34.56

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

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

Пример 3. Вычислить значение функции при a = 27; y=23; y=3.56; y=-12.

Program func3;

const a=27;

var y, z: real;

begin

write(‘введите значение аргумента y’); readln(у);

z:=exp(sin(y))+sqrt(a);

writeln(‘Значение функции при а=’,a,‘и у=’,у:5:2,‘равно‘,z:6:3);

end.

4. Очистка экрана

Формат записи: CLRSCR;

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

Для использования этой процедуры необходимо подключить специальный модуль, для этого в программе после заголовка нужно вставить строку USES CRT;

Рассмотрим порядок решения и оформления с помощью компьютера задачи:

«Даны длины сторон a и b и величина угла С косоугольного треугольника. Вычислить длину стороны с, величины углов А и В, площадь треугольника, радиусы вписанной и описанной окружностей».

1) Математическая модель ; - радиус вписанной окружности - радиус описанной окружности 2) Словесный алгоритм а) задать величины сторон a и b и угол C; б) вычислить сторону с; в) вычислить угол А; г) вычислить угол В; д) вычислить площадь треугольника; е) вычислить радиус вписанной окружности; ж) вычислить радиус описанной окружности; з) вывести результаты. 3) Таблица величин a, b стороны треугольника исходные c результат uc углы треугольника исходная ua, ub результат s площадь треугольника результат r1 радиус вписанной окружности результат r2 радиус описанной окружности результат

4) Блок-схема

5) Программа

Program treug;

uses crt;

var a, b,c, ua, ub, uc, s,r1,r2: real;

Begin

clrscr;

{решение косоугольного треугольника}

write(‘введите длины сторон a и b’);readln(a, b);

write(‘введите величину угла с в градусах’);readln(uc);

uc:=uc*pi/180; {перевод в радианы}

с:=sqrt(sqr(a)+sqr(b)-2*a*b*cos(uc));

ua:=a*sin(uc)/c; {вычисление угла а}

ua:=arctan(ua/sqrt(1-sqr(ua));

ub:=pi-(ua+uc); {вычисление угла в}

s:=a*b*sin(uc)/2; {площадь треугольника}

r1:=2*s/(a+b+c);

r2:=(a*b*c)/(4*s);

write(‘исходные данные:’);

writeln(‘a=’,a:4:2,’b=’,b:4:2,’угол с=’,trunc(uc*180/pi):3,’градусов’);

writeln(‘результаты вычислений:’);

writeln(‘сторона с=’,c:4:2);

writeln(‘величина угла а=’,trunc(ua*180/pi):3,’градусов’);

writeln(‘величина угла в=’,trunc(ub*180/pi):3,’градусов’);

writeln(‘площадь треугольника =’,s:5:2,’кв. ед.’);

writeln(‘радиус вписанной окружности =’,r1:4:2);

writeln(‘радиус описанной окружности =’,r2:4:2);

End.

6) Результат

Исходные данные: а=3, b=4, угол С=60 градусов

Результаты вычислений:

Сторона с = 3.61

Величина угла А= 46 градусов

Величина угла В= 73 градусов

Площадь треугольника = 5.20 кв. ед.

Радиус вписанной окружности = 0.98

Радиус описанной окружности = 2.08

Вопросы

Дайте понятие линейного алгоритма. Как графически реализуется линейный алгоритм, пример? Что представляет собой программа линейного вычислительного процесса? Формат, назначение и выполнение оператора присваивания. Что такое трассировка, трассировочная таблица? Формат, назначение и выполнение оператора ввода. В каких случаях используется оператор ввода? Формат, назначение и выполнение оператора вывода. Что может содержать список вывода? Перечислите дополнительные возможности оператора вывода. Для чего используется очистка экрана? Почему в Паскале аргумент функции всегда записывается в круглых скобках? Могут ли параметрами оператора ввода данных быть: а) числа; б) выражение х+1? Когда оператор writeln(x1,x2 , ...,xn) осуществляет перевод строки: а) до печати первого параметра x1; б) после печати каждого х; в) после печати последнего параметра xn? Надо ли в программе описывать все используемые в ней переменные? Когда в программе можно менять значения констант? Каким способом можно поменять местами значения переменных х и у. Указать порядок выполнения операций в выражении: - a mod b + a div b*c Определить тип (целый или вещественный)
а) 60/15; б) trunc(-3.14); с) sin(0); Что будет напечатано в результате выполнения операторов:
а) write('начало'); writeln(5*3.2);
б) writeln(6,5,6,8);write('конец');
в) writeln(5*3.2,' РЕЗУЛЬТАТ');

Задания

Запишите на языке программирования следующие команды:
а) задать стороны a, b, c;
б) вычислить сумму a, b, c;
в) уменьшить a на 10;
г) увеличить b в два раза;
д) вывод a, b, c;
е) вывод суммы a, b, c;

Найдите ошибки в записи операторов и запишите их правильно
а) L + 5 := K;
б) read(x y z);
в) R := R + 2*R := 3*R;
г) writeln(Сумма равна S);
д) P = S : T;
е) write (“Стороны равны”; a b c);

Найдите ошибки в программах и запишите правильные варианты

а)	б)
Program oshibka1; var m, n: read; x, y: integer; Begin read(‘введите два числа’) readln(m, n); x:=sqrt(m)/2; z:=sqr(n)/3; writeln(‘x= x:5:3,‘y=’,y); End	Program oshibka2; f: real; a, b: integer; const t=23; Begin write(‘введите число’); readln(a); t:=t+a; b=t/a f:=sqr(a)*3+b/2–s/12; writeln(‘k равно‘,k:6:3); End;

Для приведенных ниже групп операторов составить трассировочные таблицы и определить значение переменной х:
а) a:=32; b:=a–4; x:=(a–b)*2–10;
б) x:=7; y:=12; x:=x*y+x;
в) x:=5; y:=6; x:=x*y; y:=x–y; x:=x+y;
г) x:=-3; y:=4; z:=x+y; x:=sqrt(z)+2*y; y:=x–z; z:=x div 3;

По блок-схемам составить программы

а)

б)

в)

По программам построить блок-схемы:

Program lin_alg1; const g = 6.67E-11; var m1,m2,r, f: real; Begin write(‘Введите массы и расстояние’); readln(m1, m2, r); f := m1*m2*g / sqr(r); writeln(‘сила притяжения равна’, f); End.

Program lin_alg2; var s, p: real; a, b: integer; Begin write(‘введите два числа’); readln(a, b); s := sqrt(a + b)/a – sqrt(a + b)/b; p := sqr(a – b )/a – sqr(b + a)/b; writeln(‘p=’,p:5:3, ‘s=’,s:5:3); End.

Program lin_alg2; const t=23; var k: real; m, n: integer; Begin write(‘введите два числа’); readln(m, n); k := sqrt(m) + 2*n/3 – t / 14; writeln(‘k равно ‘, k:6:3); End.

8. Составить план решения задач (записать все этапы решения, см. стр.4) с помощью компьютера. В ответах предусмотреть вывод исходных данных и результата.