
- •Кафедра прикладной математике
- •Тема: «структура программы на pascal. Линейные программы»
- •1. Ввод-вывод данных.
- •1.1. Процедура чтения read.
- •1.2. Процедура записи write.
- •Стандартная форма вывода
- •Управление формой вывода данных
- •2. Операторы.
- •2.1. Оператор присваивания.
- •Ошибочные фрагменты программ
- •2.2. Состаной оператор.
- •2.3. Пустой оператор.
- •3. Структура программы на языке turbo pascal 7.0
- •3.1. Раздел uses.
- •3.2. Раздел описания меток.
- •3.3. Раздел описания констант.
- •3.4. Раздел описания типов данных.
- •3.5. Раздел описания переменных.
- •3.6. Раздел описания процедур и функций.
- •3.7. Раздел операторов.
- •3.8. Комментарии.
- •4. Рекомендации по стилю программирования.
- •Контрольные задания
- •Контрольные вопросы
- •Лекция № 14 по курсу «информатика»
Контрольные задания
Какая структура программы правильна:
а) program MyProgram; б) program MyFirst;
begin begin
writeln(‘Привет’) x:=y+100
end. end.
Какой из перечисленных разделов обязателен в программе:
1) раздел var; 2) раздел const; 3) раздел type; 4) раздел begin .. end; 5) раздел label.
Для чего используется слово uses?
а) такого слова нет в языке Pascal;
б) это какой-то пользовательский идентификатор;
в) с его помощью подключают стандартные библиотеки;
г) это стандартная константа, равная 3.14;
д) это логическая операция.
В разделе процедур и функций описываются только стандартные процедуры?
а) да, только стандартные; б) нет, только пользовательские;
в) и стандартные, и пользовательские; г) такого раздела вообще быть не может.
Найдите ошибки в следующих программах:
а) program rp1; б) program rp2;
begin begin
summa:=6+8 var x:integer;
end. x:=5*3;
write(x)
end.
в) program rp3; г) program rp4;
begin var X,Y,Сумма:integer;
writeln(‘Ввести значение X’); begin
writeln(‘X в квадрате =’, X*X) writeln(‘Ввести X’);
end. readln(X);
var X:integer; writeln(‘Ввести Y’);
readln(Y);
Сумма:=X+Y;
writeln( Сумма)
end.
д) program rp5; е) program rp6;
const d=5; const k=true;
begin var x:real;
d:=sqr(d); begin
writeln(‘d**2=’, d) read(x);
end. writeln(ord(x)=k)
end.
ж) program rp7; з) program rp8;
var a,b,c:integer; var x:real;
begin begin
read(a,b); read(x);
writeln((a+b+c)/2) y:=sqrt(x)+1;
end. writeln(y)
end.
и) program rp9; к) program rp10;
const b=2.5;
const
=3.14159;
var a,b,c:integer; var a,b:integer;
begin begin
read(a,c); read(a);
writeln(a*c>b) d:=odd( *0) and b>0;
end. writeln(d)
end.
Какие из приведенных ниже операторов присваивания являются правильными:
а) X:=Y+SIN(SIN(Z)); б) A:=(X<Y) OR B AND (I<>K);
в) X:=I+J-B; г) I:=I+K/J,
если I,J,K: INTEGER; X,Y,Z: REAL; A,B: BOOLEAN?
Что получится в результате выполнения операторов:
а) WRITE(‘A’:3,2:1); WRITELN(5*3.2);
б) WRITELN(5<6,5<=6:8); WRITELN(‘КОНЕЦ’);
в) WRITELN(5*3.2:1,’ РЕЗУЛЬТАТ’)?
Какими будут значения переменных m и n после выполнения последовательностей операторов:
а) m:=25; б) m:=5;
n:=m+1; n:=6;
m:=m-25 m:=m*m;
n:=n*m
Какими будут значения переменных x, y, z после выполнения операторов:
x:= 8+6 mod 4*2;
y:=x div 5*5;
z:=x*5 div 5
Какие значения будут выведены в результате выполнения последовательности операторов?
x:=(sin(sqr(1)-1)+2*abs(-2)/cos(2-2);
y:=x*(sqr(2));
write(x,y)