Итоговые задания по теме Линейные программы. Подпрограммы

Вариант № 1

1. Написать заголовок программы (раздел описания переменных) языком Паскаль, в котором используются переменные типа Integer: a, b, c.

2. Определить, какие из переменных (см. фрагмент программы) могут принимать значение 5.

Var a, b, w: integer;

Sum: real;

x: char;

n, z: string;

3. Чему равно значение переменной х после выполнения операций присваивания х:=5; х:=х+1;?

4. Выполните программу для предложенных исходных данных: a=1, b=2, c=3.

program z1;

uses crt;

var a,b,c: integer; s: real;

begin

write ('a='); readln (a);

write ('b='); readln (b);

write ('c='); readln (c);

s:= (a+b+c)/3;

writeln ('s=', s:1:0);

readkey

end.

5. Составить программу. В одном аквариуме а рыбок, а в другом - на с рыбок больше. Сколько рыбок в двух аквариумах?

6. Составить программу. Найти значение выражения: u=f(a,b)-2f(1,2a-b), где .

Вариант № 2

1. Написать заголовок программы (раздел описания переменных) языком Паскаль, в котором используются переменные типа Real: k, l, m.

2. Определить, какие из переменных (см. фрагмент программы) могут принимать значение 2.5.

Var a, b, w: integer;

Sum: real;

x: char;

n, z: string;

3. Чему равно значение переменной х после выполнения операций присваивания х:=6; х:=х-1;?

4. Выполните программу для предложенных исходных данных: a=2, b=3, c=6.

program z1;

uses crt;

var a,b,c: real; s: real;

begin

write ('a='); readln (a);

write ('b='); readln (b);

write ('c='); readln (c);

s:= (a+b-c)/3;

writeln ('s=', s:1:0);

readkey

end.

5. Составить программу. В одном доме d квартир, а в другом - в n раз меньше. Сколько квартир в двух домах вместе?

6. Составить программу. Найти значение выражения: u=f(-a,b)-1.6f(b,a+b), где .

Вариант № 3

1. Написать заголовок программы (раздел описания переменных) языком Паскаль, в котором используются переменные типа String: n, p, q.

2. Определить, какие из переменных (см. фрагмент программы) могут принимать значение -13.5.

Var a, b, w: integer;

Sum: real;

x: char;

n, z: string;

3. Чему равно значение переменной х после выполнения операций присваивания х:=5; х:=2*х-1;?

4. Выполните программу для предложенных исходных данных: a=-5, b=6, c=3.

program z1;

uses crt;

var a,b,c: integer; s: real;

begin

write ('a='); readln (a);

write ('b='); readln (b);

write ('c='); readln (c);

s:= (a+b-c)/3;

writeln ('s=', s:1:0);

readkey

end.

5. Составить программу. На одной полке m книг, а на другой - на t книг больше. Сколько книг на двух полках вместе?

6. Составить программу. Найти значение выражения: u=15f(5,2b)+f(a,a-b), где .

Вариант № 4

1. Написать заголовок программы (раздел описания переменных) языком Паскаль, в котором используются переменные типа boolean: s, t, r.

2. Определить, какие из переменных (см. фрагмент программы) могут принимать значение 254.5.

Var a, b, w: integer;

Sum: real;

x: char;

n, z: string;

3. Чему равно значение переменной х после выполнения операций присваивания х:=-2; х:=2/х+1;?

4. Выполните программу для предложенных исходных данных: a=5, b=6, c=-5.

program z1;

uses crt;

var a,b,c: integer; s: real;

begin

write ('a='); readln (a);

write ('b='); readln (b);

write ('c='); readln (c);

s:= (a+b+c)/3;

writeln ('s=', s:1:0);

readkey

end.

5. Составить программу. В магазин привезли x ящиков с ананасами, а ящиков с бананами - на y штук меньше. Сколько ящиков экзотических фруктов привезли в магазин?

6. Составить программу. Найти значение выражения: u=2/f(-a,5)*f(a,a+6b), где .

Вариант № 5

1. Написать заголовок программы (раздел описания переменных) языком Паскаль, в котором используются переменные типа char: d, f, g.

2. Определить, какие из переменных (см. фрагмент программы) могут принимать значение 11.

Var a, b, w: integer;

Sum: real;

x: char;

n, z: string;

3. Чему равно значение переменной х после выполнения операций присваивания х:=2; х:=х/4;?

4. Выполните программу для предложенных исходных данных: a=-5, b=-2, c=3.

program z1;

uses crt;

var a,b,c: integer; s: real;

begin

write ('a='); readln (a);

write ('b='); readln (b);

write ('c='); readln (c);

s:= (a-b+c)/3;

writeln ('s=', s:1:0);

readkey

end.

5. Составить программу. На автобусной остановке ждали автобус d взрослых пассажиров, а детей - на f меньше. Сколько людей ждали автобус?

6. Составить программу. Найти значение выражения: u=5*f(a,-2b)*f(a,b), где .

Вариант № 6

1. Написать заголовок программы (раздел описания переменных) языком Паскаль, в котором используются переменные типа Integer: x, y, z.

2. Определить, какие из переменных (см. фрагмент программы) могут принимать значение 'семь'.

Var a, b, w: integer;

Sum: real;

x: boolean;

n, z: string;

3. Чему равно значение переменной х после выполнения операций присваивания х:=5; х:=3х/15;?

4. Выполните программу для предложенных исходных данных: a=1, b=2, c=-3.

program z1;

uses crt;

var a,b,c: integer; s: real;

begin

write ('a='); readln (a);

write ('b='); readln (b);

write ('c='); readln (c);

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

writeln ('s=', s:1:0);

readkey

end.

5. Составить программу. В зоопарке g клеток с медведями. Это на h штук меньше, чем клеток с остальными хищниками. Сколько в зоопарке всего клеток с хищниками?

6. Составить программу. Найти значение выражения: u=8/f(a,b)-f(-2а,a-b), где .

Вариант № 7

1. Написать заголовок программы (раздел описания переменных) языком Паскаль, в котором используются переменные типа real: k, d, f.

2. Определить, какие из переменных (см. фрагмент программы) могут принимать значение 'минус двадцать пять'.

Var a, b, w: integer;

Sum: real;

x: boolean;

n, z: string;

3. Чему равно значение переменной х после выполнения операций присваивания х:=5; х:=х-4;?

4. Выполните программу для предложенных исходных данных: a=5, b=2, c=3.

program z1;

uses crt;

var a,b,c: integer; s: real;

begin

write ('a='); readln (a);

write ('b='); readln (b);

write ('c='); readln (c);

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

writeln ('s=', s:1:0);

readkey

end.

5. Составить программу. В трамвае ехало 7 пассажиров. На остановке k пассажиров вышло, а l зашли в трамвай. Сколько пассажиров ехало в трамвае дальше?

6. Составить программу. Найти значение выражения: u=f(a,b)+f(в,a), где .

Вариант № 8

1. Написать заголовок программы (раздел описания переменных) языком Паскаль, в котором используются переменные типа string: s, m, t.

2. Определить, какие из переменных (см. фрагмент программы) могут принимать значение 2.5.

Var a, b, w: integer;

Sum: real;

x: boolean;

n, z: string;

3. Чему равно значение переменной х после выполнения операций присваивания х:=5-2; х:=х+1;?

4. Выполните программу для предложенных исходных данных: a=1, b=2, c=5.5.

program z1;

uses crt;

var a,b,c,s: real;

begin

write ('a='); readln (a);

write ('b='); readln (b);

write ('c='); readln (c);

s:= (a/b+c)/3;

writeln ('s=', s:1:0);

readkey

end.

5. Составить программу. В таксопарке m автомашин находится в нерабочем состоянии, что в n раз меньше, чем автомашин, которые могут выйти на линию. Сколько всего автомашин в автопарке?

6. Составить программу. Найти значение выражения: u=f(b,a)+0.5f(a,b), где .

Вариант № 9

1. Написать заголовок программы (раздел описания переменных) языком Паскаль, в котором используются переменные типа char: i, j, k.

2. Определить, какие из переменных (см. фрагмент программы) могут принимать значение '234'.

Var a, b, w: integer;

Sum: real;

x: boolean;

n, z: string;

3. Чему равно значение переменной х после выполнения операций присваивания х:=5; х:=2*х;?

4. Выполните программу для предложенных исходных данных: a=1, b=2, c=3.

program z1;

uses crt;

var a,b,c: integer; s: real;

begin

write ('a='); readln (a);

write ('b='); readln (b);

write ('c='); readln (c);

s:= (a*b*c)/3;

writeln ('s=', s:1:0);

readkey

end.

5. Составить программу. В одной роте p солдат, а в двух вместе - q солдат. На сколько солдат во второй роте больше, чем в первой?

6. Составить программу. Найти значение выражения: u=f(a,b)-f(-a,-b), где .

Вариант № 10

1. Написать заголовок программы (раздел описания переменных) языком Паскаль, в котором используются переменные типа boolean: a, x, n.

2. Определить, какие из переменных (см. фрагмент программы) могут принимать значение '23.9'.

Var a, b, w: integer;

Sum: real;

x: boolean;

n, z: string;

3. Чему равно значение переменной х после выполнения операций присваивания х:=15; х:=х/5;?

4. Выполните программу для предложенных исходных данных: a=-1, b=-2, c=4.

program z1;

uses crt;

var a,b,c: integer; s: real;

begin

write ('a='); readln (a);

write ('b='); readln (b);

write ('c='); readln (c);

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

writeln ('s=', s:1:0);

readkey

end.

5. Составить программу. В магазин привезли r кг яблок, а груш - в s раз больше. Сколько всего фруктов привезли в магазин?

6. Составить программу. Найти значение выражения: u=f(25,a)+f(b,15), где .