Учебно-методический комплекс дисциплины Практикум по структурированному программированию (стр. 4 )

Студент должен знать: алфавит, синтаксис языка, идентификаторы; типы данных и операции над ними; формы представления данных действительного типа; арифметические функции; правила записи арифметических выражений и порядок выполнения действий; структуру программы; предназначение и синтаксис оператора присваивания; процедуры ввода, вывода информации.

Студент должен уметь: правильно записывать арифметические и логические выражения; выполнять логические операции; программировать алгоритмы линейной структуры; работать в интегрированной среде Borland Pascal (Turbo Pascal, Free Pascal).

Теоретические вопросы.

1.  Синтаксис и алфавит языка программирования Turbo Pascal.

2.  Основные стандартные типы данных и операции над ними.

3.  Стандартные арифметические функции.

4.  Выражения. Правила записи арифметических выражений и порядок выполнения действий.

5.  Структура программы.

6.  Операторы. Оператор присваивания.

7.  Процедуры ввода, вывода данных и особенности их синтаксиса.

Вариант №1.

1. Записать на Turbo Pascal следующие арифметические выражения:

а) x4; б) arctag103; в) 3 sin(x+1).

2. Записать и общепринятой форме:

а) (-b+sqrt(sqr(b) - 4*a*c)) / (2*a); б)

3. Вычислить значения выражений:

а) round(0,5); б) trunc(6,9); в) 20 div 4; г) 20 mod 6.

4.  Что будет напечатано программой при b=3 и c=2?:

Program korni;

Var b, c,d: real;

Begin read(b, c);

D:=sqrt(sqr(b)-4*c);

Writeln('xl=',(-b+d)/2,' x2=',(-b-d)/2)

End.

5. Найти произведение цифр заданного четырехзначного числа.

6* Идет k секунда суток. Определить, сколько полных часов (h) и полных минут (m) прошло к этому моменту (например, h=3 и m=40, если r=13257=3*3600+40*60+57).

Вариант №2.

1. Записать на Turbo Pascal следующие выражения:

а) ; б) arcsin x ; в) .

2. Записать оператор присваивания, который переменной d присваивает расстояние между точками с координатами (x1, y1) и (x2, у2).

3. Вычислить значения выражений:

а) round(8,9); б) trunc(4,3); в) 2 div 5; г) 20 mod 4.

4. Найти ошибки в программе:

Program С;

Var a, b,c: integer;

Begin read (a, b);

writeln ((a+b+c)/3)

end.

5. Вычислить высоты треугольника, если известны длины его сторон.

6*. Пусть к — целое от 1 до 365. Присвоить целой переменной n значение 1, 2, ..., 7 в зависимости от того, на какой день недели (понедельник, вторник, ... , воскресенье) приходится k-й день не високосного года, в котором 1 января — понедельник

Вариант №3.

1. Записать на Turbo Pascal следующие выражения:

а) ; б) ; в) .

2. Записать оператор присваивания, который переменной d присваивает корень уравнения arctg(l+lnx)=.

3. Вычислить следующие выражения при a = true и b = false:

a) a or b and not a; b) not a and b.

3. Найти ошибки в программе.

Program D;

Var x:real;

Begin read(x); y:=sqrt(x)+l; writeln(y) end.

5.  Даны три числа. Написать программу, которая печатает true, если существует треугольник с такими длинами сторон, и false в противном случае.

6*. Поменять местами значения целых переменных х и у, не используя дополнительные переменные.

Вариант №4.

1. Записать на Turbo Pascal следующие выражения:

а) 2x; б) sin2x + cos2x; в) .

2. Записать на Turbo Pascal выражение:

.

3. Вычислить следующие выражения при a=true и b=false:

a) (a or b) and not a; б) not (a and b).

4. Определите, что будет напечатано при выполнении указанного фрагмента программы.

y:=3; x:=y+1; Writeln(x,’ ‘,y);

y:=y+1; x:=3; Writeln(x,’ ‘,y);

5. Написать программу, которая целой переменной s присвоить сумму цифр трехзначного целого числа k.

6*. Написать программу, которая вводит два вещественных числа, вычисляет и печатает коэффициенты приведенного квадратного уравнения, корнями которого являются эти числа.

Вариант №5.

1. Записать на Turbo Pascal:

а) x-1; б) cos2x3; в) .

2.  Записать на Turbo Pascal следующую формулу: .

3. Вычислить значения выражения: succ(round(5/2)-pred(3)).

4. Определить, что будет напечатано при выполнении указанного фрагмента программы:

number:=2;

cbnumber:=number*number*number;

writeln(number, ‘ ‘, cbnumber, ‘ ‘, number*number);

5. Написать программу, которая печатает true, если квадратное уравнения для заданных значений чисел a, b,c имеет решение, и false в противном случае.

6*. Написать программу, которая печатает true или false в зависимости от того, выполняется или нет указанное условие: даны координаты (как целые от 1 до 8) двух полей шахматной доски. Определить, может ли конь за один ход перейти с одного из этих полей на другое.

Вариант №6.

1. Записать на Turbo Pascal следующие выражения:

а) (1+x)2; б) arcos8; в) .

2. Записать на Turbo Pascal выражение: .

3. Записать на Turbo Pascal выражение, истинное при выполнении указанного условия и ложное в противном случае: а) х принадлежит отрезку [0,1]; b) только одно из чисел х, у и z положительно.

4. Определить, что будет напечатано при выполнении указанного фрагмента программы, если при вводе x=3.5, y=2.4.

read(x, y); x:=x+y; y:=x-y;x:=x-y; write(x, y);

5. Дано двузначное число. Определить: а) сумму и произведение цифр числа; б) число, образованное перестановкой цифр исходного числа.

6*. Написать программу, которая печатает true или false в зависимости от того, выполняется или нет указанное условие: для заданных чисел p, a, b (a<b) определить, имеет ли уравнение arctg(2x - ïpï)=Ö2 корень на отрезке [a, b].

Вариант №7.

1. Записать на Turbo Pascal следующие выражения:

а) ; б) ; в) .

2. Записать операторы присваивания, которые переменной d присваивают: a) среднее арифметическое чисел x, y, z; b) площадь треугольника со сторонами a, b,c.

3. Вычислить значения выражений:

а) 1 mod 5; б) 8 div 2; в) 2 mod 3; г) round(3.8).

4. Определить, что будет напечатано при выполнении программы.

Program print;

Var x, y: integer;

Begin x:=2; writeln(‘x+1’);

End.

5. Треугольник задан величинами своих углов и радиусом описанной окружности. Вычислить длины сторон треугольника.

6*. Выведите таблицы сложения и умножения чисел в двоичной системе счисления.

Вариант №8.

1. Записать на Turbo Pascal следующие выражения:

а) ; б) ; в) .

2. Перевести из линейной записи в обычную:

а) sqrt(sin(A+B)/cos(A+B))/sqrt(sin(A-B)/cos(A-B));

б) 1/2*a*b*sin(c):

в) sqrt(a*sqr(x)+b*x+c).

3. Записать на Паскале выражение, истинное при выполнении указанного условия и ложное в противном случае: а) точка (х, у) лежит вне круга радиуса г с центром в точке (1, 0); в) натуральное число n является полным квадратом.

4. Найти ошибки в программе

Program A;

Const d=5;

Begin d:=sqr(d);

Writeln(‘d**2=’,d)

End.

5. По заданным коэффициентам и правым частям уравнений системы

найти ее решение в предположении, что определитель системы не равен нулю.

6*. Вычислить значения y и p, используя расчетные формулы: ;

Вариант №9.

1. Записать на Turbo Pascal следующие выражения:

а) ; б) ; в) .

2. Перевести из линейной записи в обычную:

а) sqrt(sqr(b)+sqr(c)+2*a*b*cos(a))/2;

б) 1E-2+b/(sqr(x)-b).

3. Определить значения переменных a и b после выполнения действий:
  а) a:= 4 * 5 Div 3 Mod 2;
  б) b:= 4 * 5 Div ( 3 Mod 2 ).

4. Найти ошибки в программе

Program A;

Const d=true; var x:real;

Begin read(x); writeln(odd(x)=d) End.

5. Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса.

6*. Определить h – полное количество часов и m – полное количество минут, прошедших от начала суток до того момента (в первой половине дня), когда часовая стрелка повернулась на f градусов (0<360, f - вещественное число).

Вариант №10.

1. Записать на Turbo Pascal следующие выражения:

а) ; б) ; в) .