Лабораторная работа (линейные алгоритмы).

Повторение (команда присваивания):

1. Определите значение переменной b после выполнения следующего фрагмента программы:

a := -5;

b := 5 + 7 * a;

b := b / 2 * a;

2.Определите значение переменных a и b после выполнения фрагмента программы:

a := 3 + 8*4;

a := 1819;

b := (a div 10) + 14;

b := (a div 100)*10+9;

a := (b mod 10) + 2;

a := (10*b–a) mod 100;

3. Определите значение целочисленных переменных x, y и t после выполнения программы:

x := 5;

x := 336;

y := 7;

У := 8;

t := x;

x := x div y;

x := y mod x;

y := х mod у;

y := t;

t := x + y;
Составьте программу вычисления выражения: Протестируйте программу для различных входных данных.

Ввод (дано)

Вывод (найти)

5

8

19

23

49

51

72,12

81,4

16,93

Блок-схема Программа на псевдокоде Программа на языке Pascal

дано var

найти

начало begin

ввод( ); read( );

y:=(sqr(x)+z+k)/(x+1)+abs(sqr(x)*x-12);

выод( ); write( );

конец end.

Составьте программу нахождения 10 степени числа, введённого с клавиатуры.

Протестируйте программу для различных входных данных.

Ввод (дано)

Вывод (найти)

2

3

1,5

Блок-схема Программа на псевдокоде Программа на языке Pascal

дано var

найти

начало begin

ввод( ); read( );

a:=a*a;

b:=a;

a:=a*a;

a:=a*a;

a:=a*b;

вывод( ); write( );

конец end.

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

Формула Герона:

НЕ нашли? Не то? Что вы ищете?

Ввод (дано)

Вывод (найти)

2

4

3

3,5

6,8

4,15

10

25

17

Блок-схема Программа на псевдокоде Программа на языке Pascal

дано var

найти

начало begin

ввод( ); read( );

p:=(a+b+c)/2;

S:=sqrt(P*(P-a)*(P-b)*(P-c));

выод( ); write( );

конец end.

Найдите вторую сначала цифру четырёхзначного числа. Протестируйте программу для различных входных данных.

Ввод (дано)

Вывод (найти)

2387

1975

9163

Блок-схема Программа на псевдокоде Программа на языке Pascal

дано var

найти

начало begin

ввод( ); read( );

x:=ch mod 1000 div 100;

выод( ); write( );

конец end.

Практическая работа (линейные алгоритмы)

При выполнении практической работы сохраняйте структуру выполнения, предложенной в лабораторной работе.

Определить значения переменных:

1) a:= 7;

a:= a - 4;

b:= - a;

c:= - a + 2*b;

2)a:= 5;

a:= 12 – a*a;

b:= - a;

c:= 10*a - b;

3) x:= 2.5E+02 3) x:= 8 + 2*5;

x:= x + 0.5E+02; { 0.5E+02 = 0.5·10+02 = 50} y:= (x mod 10) + 14;

y:= -x; x:= (y div 10) + 3;

c:= -2*y - x; c:= x - y;

2. Как обменять значения между двумя ячейками памяти?

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

4. Как перевести курсор на новую строку после ввода данных?

5. Как вывести результат работы программы на экран?

Задачи:

1. Вычислить

2. Найти 3-ю с конца цифру пятизначного числа

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

4. Вычислить 4-ю степень числа за 2-е операции

5. Вычислить 7-ю степень числа за 4-е операции.