Лабораторная работа № 1. Программирование последовательных вычислений

end

где case – в случае, of – из, else – иначе, end – конец, S – селектор, Z1 – значение 1-е, ZN – значение N-е, Op1 – оператор 1-й, OpN – оператор N-й, Op0 – оператор 0-й.

7. Что такое метка, условие и селектор? К каким типам данных относятся эти понятия?

Метка – обозначение строки в программе, отделяемое от программного кода двоеточием.

Селектор – выражение порядкового типа, которое может принимать одно из многих значений.

8. Напишите, что означает каждая строка в вышеприведённых программах.

9. Напишите программу к одной из задач дополнительного задания.

10. Вычислить

Program L2;

Var

L,x,b,a:real;

Begin

Read(b,x,a);

If b>2 then y:=sin(0.57)/cos(0.57)*ln(b-2)/ln(10)

Else y:=sqr(sin(x))+abs(exp(a));

Writeln(y)

End.

где with – с, do – делать, Zap – имя записи, Op – оператор.

Это означает, что с полями записи Zap выполнять оператор Op.

11. Напишите, что означает каждая строка в вышеприведённых программах.

12. Напишите программу к одной из задач дополнительного задания.

С использованием ввода исходных данных из файла и вывода результатов в файл найти сумму всех элементов в двумерном массиве и заменить на нули элементы на главной диагонали.

Program Lab7b;

Var

A:array[1..3,1..3] of real;

i,j:integer;

f1,f2:text;

Begin

assign(f1,'Lab7a.txt');

assign(f2,'Lab7c.txt');

reset(f1); rewrite(f2);

for i:=1 to 3 do

for j:=1 to 3 do

read(f1,A[i,j]);

s:=0;

for i:=1 to 3 do

for j:=1 to 3 do

begin

S:=s+a[I,j];

if i=j then A[i,j]:=0;

end;

writeln(f2,’s=’,s);

writeln(f2,'Массив A');

for i:=1 to 3 do

begin

for j:=1 to 3 do

write(f2,A[i,j]:10:3);

writeln(f2,'');

end;

close(f1); close(f2);

readln;

End.

Лабораторная работа № 1. Программирование последовательных вычислений

1. Какие разделы включает программа на языке Pascal? Как они обозначаются?

Программа на языке Pascal включает: заголовок программы (Program), раздел описания используемых модулей (Uses), раздел описания меток (Label), раздел описания констант (Const), раздел описания типов данных (Type), раздел описания переменных (Var), раздел описания процедур (Procedure), раздел описания функций (Function), раздел операторов (Begin…End.).

2. Какие типы данных в языке Pascal являются стандартными? Как они обозначаются?

К стандартным типам данных в языке Pascal относятся: целочисленный тип integer (целые числа), вещественный тип real (действительные числа), логический тип boolean (логические выражения), символьный тип char (отдельные символы), строковый тип string (строки символов).

3. Какие операторы используются в языке Pascal? Какой вид они имеют и что означают?

В языке Pascal используются следующие операторы (управляющие инструкции): составной оператор begin…end (начало … конец), оператор присваивания …:=… (… присвоить …), операторы ввода read(…) (с читывать) и readln(…) (с читывать до новой строки), операторы вывода write(…) (за писывать) и writeln(…) (за писывать до новой строки), оператор безусловного перехода goto… (перейти к …), оператор условного перехода (условный оператор) if…then…else… (если … то … иначе …), оператор варианта (выбора) case…of…else…end (в случае … из … иначе … конец), оператор цикла с предусловием while…do… (пока … делать …), оператор цикла с постусловием repeat…until… (повторять … пока …), операторы цикла с параметром for…:=…to…do… (для … от … до … делать …) и for…:=…downto…do… (для … от … вниз до … делать …), оператор присоединения with…do… (с … делать …).

4. Какие операции имеются в языке Pascal? Какой приоритет они имеют? Приведите примеры.

В языке программирования Pascal используются следующие операции: арифметические операции + (сложение);
- (вычитание); *(умножение); /(деление); div(целочисленное деление); mod(остаток от деления); операции сравнения =(равно); <>(не равно); >(больше); <(меньше); >=(больше или равно); <=(меньше или равно); логические операции and(логическое «и»); or(логическое «или»); not(логическое «не»).

5. Какой синтаксис имеют стандартные математические функции и константа p? Приведите примеры.

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

Математическая запись	Запись на Паскале	Математическая запись	Запись на Паскале
	sin(x)		ln(b)/ln(a)
	cos(x)		ln(x)/ln(10)
	arctan(x)		sin(x)/cos(x)
	abs(x)		cos(x)/sin(x)
	ln(x)		sin(sqr(x))
	exp(x)		sqr(sin(x))
	sqr(x)	Константа	pi
	sqrt(x)
	exp(b*ln(a))
	exp(1/b*ln(a))

6. Как зайти в Borland Pascal и выйти оттуда? Как создать новый файл и закрыть окно?

Пуск ►(Мой) Компьютер, ÚÚ Apps (G:), ÚÚ BP, ÚÚ BIN, ÚÚ BP

7. Как проверить программу на ошибки и запустить её на выполнение? Как просмотреть ответ и сохранить программу?

Проверить программу на ошибки (т.е. сделать компиляцию программы).

Compile ►Compile (Компиляция ►Компилировать) (или [Alt]+[F9]), ¿

Запустить программу на выполнение

Run ►Run (Выполнение ►Выполнить) (или [Ctrl]+[F9]),

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

Debug ►User Screen (Отладка ►Экран пользователя) (или [Alt]+[F5]), записать информацию, ¿.

8. Напишите программу к одной из задач дополнительного задания.

Program L1;

Var

X,y,z,alpha:real;

Begin

Read(x);

Alpha:=cos(8/9);

Y:=exp((abs(x)+ln(20)/ln(10))*ln(5))-exp(pi)/(4*exp(1)+abs(exp(ln(alpha) /3)));

Z:=exp(sqr(y)*ln(x))*sqrt(abs(alpha-3.5))+(1-2*sin(sqr(x)))/(3.14+sqr(arctan(y)));

Writeln(Z);

End.