(возникнет ошибка Structure too large) var a: array [-100..999] of longint var b: array [shortint] of real var c: array [100..10009] of double type diapason-200..-101 var d: array [diapason] of string


Контрольная работа по теме «Массивы» Вариант 1
Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из-за превышения допустимого объема для статических переменных (возникнет ошибка Structure too large)
var a: array [100..999] of longint;
var b: array [char] of string;
var c: array [-1000..1000] of double;
var d: array [false..true] of string;
var e: array [-100..100, 0..9] of integer.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_4_z1;
type vector = array [1..100] of real;
var i, k, m, n: word; a: vector;
begin
randomize;
write(сколько элементов в массиве?); readln(n);
write(введите заданное число k (меньше числа элементов в массиве) :);
readln(k);
for i:= 1 to n do
begin
a[i]:=-100 +random*200.1;
write(a[i]:12:6); end;
writeln;
m:=k; i:=2*k;
while i<= n do
begin
if a[i] < a[m] then m:=i;
i:=i+k; end;
writeln(искомый элемент: ,a[m]:12:6);
end.
Решить задачу: не используя дополнительных массивов, поменять порядок следования элементов линейного массива на обратный. Например, для заданного массива -1, 12, 0, 1, 14 получается ответ 14, 1, 0, 12, -1.
Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: элементы равны остатку от деления суммы индексов на заданное число K.
Решить задачу: найти максимальный из неповторяющихся (встречаются только один раз) элементов двумерного массива.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_4;
var s: string; i: byte;
begin
write(введите строку:); readln(s);
i:=1;
while i <= length(s) do
begin
insert(s[i], s, i);
i:=i+3;end;
writeln(s);
end.
Решить задачу: удалить из строки гласные русские буквы, подсчитав количество удалений.


Контрольная работа по теме «Массивы» Вариант 2
Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из-за превышения допустимого объема для статических переменных (возникнет ошибка Structure too large)
var a: array [-100..999] of longint;
var b: array [shortint] of real;
var c: array [100..10009] of double;
type diapason=-200..-101;
var d: array [diapason] of string[9];
var e: array [0..100, -10..9] of word.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_kr4;
type vector = array [0..100] of integer;
var i, j, n: word; a: vector;
begin
randomize;
write(сколько элементов в массиве?); readln(n);
n:=n-1;
for i:= 0 to n do
begin
a[i]:=-100 +random(200);
write(a[i]:6); end;
writeln;
i:=0;
while i<= n do
if not odd(a[i]) then
begin
for j:=i to n-1 do a[j]:=a[j+1];
a[n]:=0;end
else i:= i+1;
writeln(преобразованный массив: );
for i:=0 to n do write(a[i]:6);
end.
Решить задачу: в вещественном массиве найти максимальный элемент среди его отрицательных элементов.
Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: по периметру записывается число, совпадающее с порядком матрицы, а все другие элементы равны нулю.
Решить задачу: в данном прямоугольном массиве любым способом отсортировать в порядке возрастания каждую из строк.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program n_4;
var s: string; p:longint; i: byte;
begin
write(введите строку:); readln(s);
p:=0;
for i:= 1 to length(s) do p:=p + ord(s[i]);
writeln(ответ: , p);
end.
Решить задачу: поменять порядок следования символов данной строки на обратный. Например, для строки «Мама мыла раму.» получаем ответ «.умар алым амаМ».


Контрольная работа по теме «Массивы» Вариант 3
Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из-за превышения допустимого объема для статических переменных (возникнет ошибка Structure too large)
var a: array [1000..9999] of longint;
var b: array [longint] of integer;
var c: array [10000..10009] of double;
type d=200..1001;
var d1: array [d] of string[99];
var e: array [10..99, 0..9] of longint.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program ex_4;
type linmass = array [1..120] of integer;
var i, n: byte; k: integer; a: linmass;
begin
randomize;
write(сколько элементов в массиве?); readln(n);
write(введите заданное число k: ); readln(k);
for i:= 1 to n do
begin
a[i]:=-100 +random(201);
write(a[i]:6); end;
writeln;
for i := n downto 1 do
begin
a[2*i]:=k;
a[2*i-1]:= a[i];end;
writeln(ответ: );
for i:=1 to 2*n do write(a[i]:6);
end.
Решить задачу: в линейном массиве есть одинаковые элементы. Найти произведение индексов наибольшего элемента массива.
Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: на главной диагонали и выше ее – последовательные натуральные числа, начиная с единицы, остальные элементы равны нулю. Заполнение начинается с верхнего левого угла.
Решить задачу: в данном прямоугольном массиве любым способом отсортировать в порядке возрастания каждую из строк.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program nv_4;
var s: string; i, n: byte;
begin
write(введите строку:); readln(s);
n:= length(s);
for i:= 1 to n do insert(s[i], s, length(s)-i+2);
writeln(ответ: , p);
end.
Решить задачу: рассматривая символы строки тройками, поменять местами в каждой группе первый и третий символы.


Контрольная работа по теме «Массивы» Вариант 4
Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из-за превышения допустимого объема для статических переменных (возникнет ошибка Structure too large)
var a: array [-1000..9999] of byte;
var b: array [integer] of integer;
var c: array [1..10009] of double;
type dm=-202..501;
var d: array [dm] of string[49];
var e: array [1..9, 0..9] of string.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program ex_4_1;
type mas1 = array [1..120] of word;
var i, j, n: integer; a: mas1;
begin
randomize;
write(сколько элементов в массиве?); readln(n);
for i:= 1 to n do
begin
a[i]:=random(1001);
write(a[i]:6); end;
writeln;
while i <= n do
if odd(a[i]) then
begin
for j:= i to n-1 do a[j]:=a[j+1];
a[n]:= 0; n:= n-1; end
else
begin
for j:= n downto i do a[j+1]:=a[j];
n:= n+1; i:= i + 2; end
writeln(ответ: число элементов - , n ,. элементы: );
for i:=1 to n do write(a[i]:6);
end.
Решить задачу: найти суму величин, обратных к положительным элементам заданного массива.
Решить задачу: заполнить квадратную матрицу порядка N (порядок кратен 4), поделенную на 4 квадрата, таким образом 13 EMBED Equation.3 1415, целыми числами по следующему правилу: сумма индексов элемента делится на номер квадрата.
Решить задачу: в двумерном массиве просуммировать вместе элементы первой и последней строк, второй и предпоследней и т.д. указать номера строк, для которых сумма минимальна.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program stroka;
var s: string; i: byte;
begin
write(введите строку:); readln(s); i:= 1;
while i <= length(s) do
if (s[i]>= 0) and (s[i]<= 9)) then
begin insert(-, s, i); i:= i+2; end
else i:= i+1;
writeln(ответ: , s);
end.
Решить задачу: символы данной строки последовательно записать в квадратную матрицу порядка N. Примечание. Если символов в стоке недостает, занести символ «.»; лишние же символы отбрасываются.

Контрольная работа по теме «Массивы» Вариант 5
Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из-за превышения допустимого объема для статических переменных (возникнет ошибка Structure too large)
var a: array [-1000..9999] of longint;
var b: array [char] of integer;
var c: array [-10000..10009] of double;
type d=-202..1001;
var d1: array [d] of string[29];
var e: array [-10..99, 0..9] of real.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_4_5;
type linmass = array [1..120] of integer;
var i, n: byte; k: integer; a: linmass;
begin
randomize;
write(сколько элементов в массиве?); readln(n);
write(введите заданное число k (меньше числа элементов в массиве) :); readln(k);
for i:= 1 to n do
begin
a[i]:=-100 +random(200);
write(a[i]:6); end;
writeln;
i:=k;
while i<= n do
begin
a[i]:= a[i] +k; i:= i+k; end;
writeln(ответ: );
for i:= 1 to n do write(a[i]:6);
end.
Решить задачу: просуммировать элементы массива до первого нуля или сообщить об отсутствии нулей в массиве.
Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: элементом массива является степень, основание которой – первый индекс, показатель – второй индекс.
Решить задачу: в квадратной матрице получать произведение элементов, лежащих ниже побочной диагонали.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program n_4;
var s: string; c: string[5]; i, n, a: byte;
begin
write(введите строку:); readln(s);
i:=1;
while i <= length(s) do
begin
a:= ord (s[i]); str(a, c); c:= c+ ; n:=length(c);
delete (s, i, 1); insert (c, s, i); i:= i+n; end
writeln(s);
end.
Решить задачу: дана строка. Все латинские буквы в первой её половине заменить на заглавные, во второй – на строчные.


Контрольная работа по теме «Массивы» Вариант 6
Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из-за превышения допустимого объема для статических переменных (возникнет ошибка Structure too large)
var a: array [-1000..100] of shortint;
var b: array [shortint] of longint;
var c: array [1..109] of string;
type dm=-502..1;
var d: array [dm] of string[19];
var e: array [1..9, 10..99] of double.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program sort_nat;
const nmax=100; type natur=1..32767;
function summa (n: natur):byte;
var s: byte;
begin
s:=-0; while n<> 0 do
begin s:=s+n mod 10; n:= n div 10; end;
summa := s;
end;
var a: array [1..nmax] of nature; min, max: byte;
vsp: nature; i, j, n, k, z, no: 1..(nmax+1);
begin
write(сколько элементов в массиве?); readln(n);
for i:= 1 to n do
begin write(a[, i, ] =); readln(a[i]); end;
for i:= 1 to n-1 do
begin
min := summa(a[1]); no := 1;
for j:= 2 to n do
if min > summa (a[j]) then
begin min:= summa (a[j]); no:= j; end;
vsp:= a[no]; a[no]:= a[i]; a[i]:=vsp; end;
writeln(ответ: );
for i:= 1 to n do write(a[i]:6);
end.
Решить задачу: найти произведение тех элементов массива, содержащего натуральные числа, произведение цифр которых больше заданного K.
Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: «шахматная доска» - чередовать в каждой строке числа 0 и 1, причем одна строка начинается с 0, другая – с 1, и т.д.
Решить задачу: в прямоугольной матрице заменить элементы каждого столбца на сумму элементов этого столбца.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program n_4;
var s: string; p: real; i: byte;
begin
write(введите строку:); readln(s);
p:=1;
for i:= 1 to length (s) do
if ord(s[i]) > 128 then p:=p*ord(s[i]);
writeln(ответ: , p:10:0);
end.
Решить задачу: дана строка. Вычеркнуть из нее все русские заглавные буквы.

Контрольная работа по теме «Массивы» Вариант 7
Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из-за превышения допустимого объема для статических переменных (возникнет ошибка Structure too large)
var a: array [0..255] of real;
var b: array [integer] of word;
var c: array [-90..90] of longint;
var d: array [byte] of char;
var e: array [0..19, 1..40] of longint.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_n_4;
const n=10;
type mass = arrae [1..n+1] of integer;
var a: mass; x: integer; i, k: 1..n+1;
begin
write(введите номер от 1 до , n, : ); readln(k);
write(введите значение: ); readln(x);
randomize;
for i:= 1 to n do
begin a[i]:= -15 + random(30);
write(a[i], ); end;
for i:= n downto k do a[i+1];= a[i];
a[k]:= x;
for i:= 1 to n +1 do write(a[i], );
end.
Решить задачу: составить программу, отыскивающую среди всех возможных пар элементов одномерного массива те, разность которых есть величина наибольшая для данного массива.
Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: элементы четных строк совпадают с удвоенным произведением своих индексов, а элементы нечестных строк – с модулем разности своих индексов.
Решить задачу: вычислить сумму положительных элементов матрицы A (N(N), находящихся над главной диагональю, на главной диагонали и ниже главной диагонали. Сравнить суммы и найти среди них наибольшую и наименьшую.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_4_z2;
var st: string; k: byte;
begin
write(введите строку:); readln(st);
while pos(del,st)<> 0 do
begin
k:=pos(del,st);
delete (st, k, length(del));
insert (insert,st,k);end;
writeln(ответ: , st);
end.
Решить задачу: дана строка, содержащая латинские и русские буквы и цифры. Подсчитать количество русских букв и цифр в данной строке.


Контрольная работа по теме «Массивы» Вариант 8
Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из-за превышения допустимого объема для статических переменных (возникнет ошибка Structure too large)
var a: array [word] of real;
var b: array [byte] of byte;
var c: array [а..я] of real;
var d: array [-1000..1000] of integer;
var e: array [0..89, 0..99] of double.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_n_4;
const nmax=50; type mass = array [1..nmax,0..nmax-1] of real;
var a: mass; c: real; i, j, n:0..nmax;
begin
write(введите размерность массива:); readln(n);
for i:= 1 to n do
fo
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
Решить задачу: дан массив целых чисел. Подсчитать количество соседних пар взаимно-обратных чисел. Вывести на экран те из них, которые по модулю больше заданного положительного K.
Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: элементы, стоящие выше побочной диагонали, равны нулю; элементы на побочной диагонали - единице; элементы ниже побочной диагонали равны сумме своих индексов.
Решить задачу: сформировать двумерный массив размером N(M, заполнив его случайными числами. Определить, есть ли в полученном массиве столбец, в котором равное количество положительных и отрицательных элементов.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_4_z2;
var s, st: string; n: byte;
begin
write(введите строку:); readln(st);
write(n=); readln(n); s:=;
for i:= 1 to n do s:= s+ *;
st:= concat (s,st,s)
writeln(ответ: , st);
end.
Решить задачу: в данной строке каждый символ с номером, кратным К, заменить на пробел.


Контрольная работа по теме «Массивы» Вариант 9
Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из-за превышения допустимого объема для статических переменных (возникнет ошибка Structure too large)
var a: array [integer] of longint;
type mass = array [1..10] of shortint;
var b: array [0..99] of mass;
var c: array [a..z ] of string;
var d: array [-99..101] of real;
var e: array [0..99, 0..99] of integer.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_n_4;
const nmax=50; type mass = array [1..nmax, 1..nmax] of real;
var a: mass; c: real; i, j, n: 1..nmax;
begin
write(введите размерность матрицы:); readln(n,m);
randomize;
for i:= 1 to n do
begin for j:= 1 to m do
begin a[i,j]:=-50 + random*100.1;
write(a[i,j]:6:2, ); end;
writeln; end;
for i:= 1 to n div 2 do
for j:= 1 to n do
begin
c:=a[i,j]; a[i,j]:= a[n-i+1,j]; a[n-i+1,j]:=c; end;
writeln(ответ: );
for i:= 1 to n do
begin for j:= 1 to m do write(a[i,j]:6:2, );
writeln; end;
end.
Решить задачу: в городе П. имеется N гостиниц известной вместимости. Известны расстояния от каждой гостиницы до вокзала. указать номера двух гостиниц, находящихся как можно ближе к вокзалу, в которых может разместиться R гостей.
Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: элементы четных столбцов совпадают с суммой своих индексов, а элементы нечестных столбцов – со среднеарифметическим своих индексов.
Решить задачу: в двумерном массиве A (N(M) поменять местами два элемента, равные заданным числам X и Y. Если в массиве нет таких чисел, вывести сообщение об этом.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_4_z2;
var st: string; k,r: byte;
begin
write(введите строку:); readln(st);
r:=0;
while pos( ,st)<> 0 do
begin
k:=pos( ,st); delete (st, k, 1);
r:=r+1; end;
writeln(ответ: , st, ,r);
end.
Решить задачу: даны две строки – S1 и S2. Сколько символов этих строк, стоящих на местах с одинаковыми номерами совпадают?

Контрольная работа по теме «Массивы» Вариант 10
Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из-за превышения допустимого объема для статических переменных (возникнет ошибка Structure too large)
const m = 100;
var a: array [1..2*m] of real;
var b: array [byte] of integer;
var c: array [byte,byte] of word;
var d: array [shortint] of extended;
var e: array [0..49, 1..10] of longint.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_n_4;
const m=100; type mass = array [1..m] of integer;
var a: mass; s: integer; i, j, n, k: 1..m;
begin
write(ведите размерность вектора?); readln(n);
randomize;
for i:= 1 to n do
begin
a[i]:= -15 +random(31);
writeln(a[i], ); end;
s:=0;
for i:= 1 to n-1 do
begin
k:=1;
for j:= i+1 to n do
if a[i]= a[j] then k:=k+1;
if k=1 then s:= s+ a[i]; end;
writeln(ответ: , s);
end.
Решить задачу: на N рынках продают землянику. Расстояние от дома до каждого из рынков известна. Найти номер такого рынка, расстояние до которого не больше R и где цена земляники минимальна..
Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: первый столбец и первая строка заполнены единицами, а каждый из остальных элементов равен сумме двух своих соседей: сверху и слева.
Решить задачу: дан двумерный массив размерности N(M, заполненный случайными числами. Определить, есть ли в данном массиве строка, в которой сумма элементов больше заданного числа P.
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program kr_4_z2;
var st: string; i, s, d, k: integer;
begin
write(введите строку:); readln(st);
s:=0;
for i:= 1 to length (st) do
if (s[i]>= 0) and (s[i]<= 9)then
begin
val (st[i],d,k);
s:= s+d; end;
writeln(ответ: , s);
end.
Решить задачу: в данной строке первое вхождение слова «кот» заменить на слово «пес».

Контрольная работа по темам «Записи» и «Процедуры и функции» Вариант 1

Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных.
type book = record
avtor: string[15]; nazv : string[30];
year: word; end;
var bibl: array [1..5, 1..10] of book;
type det = record
fam: string[10]; rost, ves: real;
end;
spis : array [-1..10] of det;
var a: spis;
var car: record
marka: string[10]; stoim: real;
year: word; end;
var m: set of -1..10;
Описать рекурсивную функцию, вычисляющую сумму четных цифр данного числа.
Вычислить значения выражений.
[2, 3, 4, 5] <> [2, 2, 4, 3, 5, 3]
[(c(, (b(]= [(c(..(b(]
(a( in [(A( .. (z(]
[3..7, 12] + [1..7, 9, 12] – [1..5, 9]*[3, 7]
([1..3, 5, 7, 11] – [3..8, 10, 12, 15..20]) * [1, 2, 9] + [4..7]
[(б(,(о(,(б(] * [(л(,(о(,(ж(,(к(,(а(] + [(к(,(о(,(т(] - [(л(,(о(,(м(]
Решить задачу с использованием множества: имеется строка, содержащая русский текст. Вывести те гласные буквы четных слов, которых нет в нечетных.
type ball = record
b1, b2, b3, b4: 2..5;
sb: real; end;
kurs = record
n: 1..6; gr: word; end;
var p: kurs; k, n: ball; b1: word;
Определить, какие значения будут иметь переменные p.n, p.gr, k.b1, k.b2, k.sb, n.b1, n.b2, n.sb, b1 после выполнения следующих операторов:
with k do
begin b1:=3; b2:=b1; sb:= (b1 + b2)/2; end;
n:= k; b1:= 5;
with n do
sb:= -sb;
with p do
begin n:=b1; gr:= 121; end;
Дана запись, содержащая информацию о сегодняшнем дне: год, месяц и число.
type year = 1500..2002;
month = 1..12;
day = 1..31;
data = record
y: year; m: month; d: day;
end;
Написать программу, которая вводит эту информацию и определяет дату завтрашнего дня.



Контрольная работа по темам «Записи» и «Процедуры и функции» Вариант 2

Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных.
var shop = record
tovar: string[15];
zena: real;
kol: word; end;
type lek = record
nazv: string[10]; kol: real; firma: string[20];
end;
var apteka: array [1..100] of lek;
var m: set of (a(..(z(;
type drob = record
x, y: byte; end;
var p: array [-2..12, 0..11] of drob;
Описать рекурсивную функцию, вычисляющую количество нечетных цифр данного числа.
Вычислить значения выражений.
[1, 2, 4] <> [4, 2, 1]
[false, true]>= []
ord(chr(15)) in [-1..19]
[3..9, 16, 17] * [2..5, 10] – [1..3] – [6..9, 17]
([1, 2, 11] + [1..3, 5, 7, 11]) * ([2..15] - [1, 16])
[(a(..(z(] - [(а(] + [(b(..(d(] * [(c(..(f(]
Решить задачу с использованием множества: имеются два предложения, состоящие из русских букв, цифр и знаков препинания. Вывести те согласные буквы, которые входят в первое предложение и не входят во второе.
type okr = record
r: real;
centr: record x,y: real; end;
end;
var k: okr; x: real;
Определить, какие значения будут иметь переменные k.r, k.centr.x, k.centr.y после выполнения следующих операторов:
k.r:= 2.5;
with k do
with centr do y:= 1.8;
x:= 0.5;
with k do centr.x := r-x;
with k, centr do
begin r:= x; x:= -x; end;
Массив содержит информацию о погоде в июле: температура ночью и днем, скорость ветра, влажность воздуха.
type data = record
noch, dnev: real;
scor, vlag: integer;
end;
var month: array [1..31] of data;
Написать программу, которая вводит эту информацию и выводит числа июля в порядке увеличения дневной температуры.


Контрольная работа по темам «Записи» и «Процедуры и функции» Вариант 3

Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных.
type sport = record
number: integer; ball1, ball2, ball3: byte;
end;
var komanda: array [1..15] of sport;
var ind: record
fam, name: string[20]; year: word;
semya, dety: boolean;
end;
var m: set of char;
type comp = record re, im: real; end;
var p: array[-1..100,50..60] of comp;
Описать рекурсивную функцию, которая выводит символы данной строки в обратном порядке.
Вычислить значения выражений.
[4, 5, 6] = [4..5]
[true] >= [false]
odd(4) in []
[3,4] - [1..5] + [1..6, 10]*[3..8, 20] + [5]
[2..12] * [8..15] – ([11, 12] + [2..8])
[(A(..(E(] * [(B(..(Z(] + [(a(,(b(] - [(E(]
Решить задачу с использованием множества: имеется строка, содержащая русский текст. Вывести те буквы, которые есть только в одном из первых трех предложений.
type r = record
ch: integer; zn: 1..maxint; end;
dat = record
ch:1..31; mes: 1..12; end;
var x: r; y: dat; ch: integer;
Определить, какие значения будут иметь переменные x.ch, x.zn, y.ch, y.mes, ch после выполнения следующих операторов:
with x do
begin ch:= 2; zn:= 3; end;
y.ch:= x.ch + x.zn; ch:= 4;
with x,y do
begin ch:= 7; mes:= 10; end;
with y do ch:= 10 - ch;
Сведения о результатах сессии студентов второго курса (фамилия, номер группы и оценки по трем экзаменам) хранятся в массиве:
type data = record
fam: string[12]; num: 121..126;
otm1, otm2, otm3: 2..5;
end;
var kurs: array [1..100] of stud;
Написать программу, которая вводит эту информацию и выводит номер предмета, средняя оценка по которому наиболее высокая.


Контрольная работа по темам «Записи» и «Процедуры и функции» Вариант 4

Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных.
type vector = record
x, x1, y, y1: real; end;
var pr: array [0..150] of vector;
var chislo: record
velich: word; znak: char;
prost: boolean; end;
var m: set of boolean;
type zadacha = record
number: byte; tema: string[20];
ves: byte; end;
var test: array [0..40, -2..2] of zadacha;
Описать рекурсивную функцию, которая в заданной строке подсчитывает количество цифр.
Вычислить значения выражений.
[] <= [0..9]
[true, false] >= [false, true]
(a( in [(a( .. (d(]
([1, 3, 5] + [2,4]) * ([1,3,5] –[2,4]) – [3,4,7..9]
([1..5, 8, 12, 13, 15, 17] – [3..8, 12, 16..19]) * [10..19] + [11..16]
[(0(..(7(] + [(3(..(9(] - [(5(,(6(] * [(6(..(9(]
Решить задачу с использованием множества: даны три стоки. Определить, можно ли из символов первых двух строк получить третью строку.
type data = record
ch: 1..31; mes: 1..12; end;
bilet = record
r: 1..15; mes: 1..30; end;
var b: billet; s, z: data; r: 1..10;
Определить, какие значения будут иметь переменные b.r, b.mes, s.ch, s.mes, z.ch, z.mes, r после выполнения следующих операторов:
with s do
begin ch:= 2; mes:= 10; end;
r:=1; z:=s;
with z do mes:= 9;
with b do
begin r:=3; mes:= 11; end;
with s do ch:= r;
В массиве хранится список телефонов сотрудников.
type sot = record
tel: integer; fam: string[20]; end;
var spis: array [1..50] of sot;
Написать программу, которая вводит эту информацию, упорядочивает записи в списке по алфавиту и выводит на экран.


Контрольная работа по темам «Записи» и «Процедуры и функции» Вариант 5

Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных.
var chislo: record
x, y: integer; rad: real; end;
type disk = record
number: word; zan, svob: real;
firm: string[10]; end;
var box: array [-10..10, 1..5] of disk;
var m: set of byte;
type zver = record
vid: string[15]; vozr: byte; pol: char; end;
var zoo: array [1..90] of zver;
Описать рекурсивную функцию, определяющую, является ли данное натуральное число простым.
Вычислить значения выражений.
[(a(..(z(] >= [(b(..(f(]
[true]<> [false, true]
( 9 in [3..12]) or ((q( in [(a( .. (z(]
[1..5, 10, 15, 16] - [4..9, 16] + [2..9, 11, 12] * [9, 10, 13]
[2..8, 11, 19..30] – ([3..10, 11] - [2..5, 7,19] + [2..7] * [8, 9]
([(a(..(z(] + [(b(..(d(]) * [(a(..(c(,(b(..(d(] - [(c(]
Решить задачу с использованием множества: вычислить сумму мест, на которых в слове Х стоят гласные буквы.
type pog = record
data: 1..31; t: real; end;
dat = record
day: 1..31; month: 1..12; end;
var x, y: pog; z: dat; t: integer;
Определить, какие значения будут иметь переменные x.data, x
·.t, y.data, y.t, z.day, z.month, t после выполнения следующих операторов:
with y do begin data:= 21; t:= 10.5; end;
with x do data:= 23;
t:= 11; z.day:= 1;
with x do t:= y.t;
z.month:= t;
with z do day:= y.data;
В массиве хранится список пассажиров, содержащий следующие сведения: фамилия, номер вагона и масса багажа.
type pas = record
fam: string[15]; vag: byte;
kg: real; end;
var poezd: array [1..100] of pas;
Написать программу, которая вводит эту информацию и выводит номера вагонов в порядке возрастания средней массы багажа их пассажиров (в поезде n вагонов).


Контрольная работа по темам «Записи» и «Процедуры и функции» Вариант 6

Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных.
var zvezda : record
klass: string[20];
massa, radius: real; planet: word; end;
type book = record
tirazh: word; godizd: 1900..2001;
avtor, nazv: string[30]; end;
var polka: array [1..10, 1..50] of book;
var m: set of (0(..(9(;
type gosudarstvo = record
ustr: string[24]; plosh, naselen: real;
god: word; end;
var ma: array [0..99] of gosudarstvo;
Описать рекурсивную подпрограмму, определяющую количество арабских цифр в данной строке.
Вычислить значения выражений.
round (sin(0.2)) in [0..100]
100 in [ord((т()..ord((я()]
([3..17] + [3, 17]) * ([3..17] – [3,17])
(6( in ([(0(..(7(, (a(, (a(] * [(2(..(4(, (!(, (,(])
([2 <3, (a( = (a(, -3 <-100]* [false]) = ([] + [abs (-1)> 1, (мама(=(мама(])
[ord (5 in ([0..7] * [3..12] – [7])), 2..100] * [0..255] - [50..70]
Решить задачу с использованием множества: в данной строке те символы, которые встречаются ровно k раз.
type muz_center = record
mosh: word; k_sd, k_dek: 1..10;
massa: real; g_vip: 1995..2001; end;
cd = record
nazv, ispolnitel: string[30];
g_vip: 1995..2001; kol_comp: 7.25; end;
var a, b: muz_center; r: cd; massa: word;
Определить, какие значения будут иметь переменные a.g_vip, a.massa, b.g_vip, b.massa, r.g_vip, r.kol_comp, massa после выполнения следующих операторов:
with a do g_vip:= 2000;
massa:= 12;
with b do
begin g_vip:= a.g_vip; massa:= 10.7; end;
r.g_vip:= 2001;
with r do
begin kol_comp:= 22; g_vip:= g_vip – 2; end;
Спроектировать базу данных, содержащую сведения о машинах: марка, цвет, где выпущена, когда выпущена, наличие в продаже, стоимость.
Получить ответы на следующие запросы:
а) выбрать все машины, которые есть в продаже;
б) вывести марки всех машин, которые выпущены в Германии и выпущенные не позднее 1994.



Контрольная работа по темам «Записи» и «Процедуры и функции» Вариант 7

Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных.
var c: record
a: array [0..5] of double; b: string[34];
point; record a, b: real; end; end;
type natur = 1..1000000000;
zapis = record
pole: array [0..9, -9..10] of byte;
sum: longint; z: nature; end;
var a: array [0..9] of zapis;
var mn: set of boolean;
type z = record
a: set of (a(..(z(; p: string; m,n: boolean; end;
var a, b: array [10..19] of z;
Описать рекурсивную подпрограмму, заменяющую строчные латинские буквы соответствующими заглавными в заданной строке.
Вычислить значения выражений.
1 in [round (abs(cos(pi))), 5,12, 22-16]
[12, 15, 17..20, 33..50] – ([10..12] + [1, 20..40])
[(z(, (a(..(n(, (p(..(z(] – [(a(] – [] – [(k(..(m(]- [(1(]
[[1..10]=[1,2,3,4,5..10], (1( < (a(,5 in [22-17,(13+22) div 7, -7+12]]*
[false and true]
[0..220] * [23, 13, 0, 44, round(17.3), trunc(1.9)] * [0..20, 40..50]
[12..15, 30..99] – ([0..100] * [100.122] + [31])
Решить задачу с использованием множества: указать одинаковые цифры, входящие в запись двух заданных натуральных чисел.
type okr = record
x, y, z: real; end;
tochka = record x, y: real; end;
treugolnik = record
a, b, c: tochka; end;
var a, b: okr; c: treugolnik; x, y, r: real;
Определить, какие значения будут иметь переменные a.x, a.y, a.r, b.x, b.y, b.r, c.a.x, c.b.x, c.c.y, x, y, r после выполнения следующих операторов:
with a do x:= 2.2; y:= -3.4; r:=7;
with b do begin x:= a.x; y:= -2; r:= 2; end;
with c do begin a.x:= 1; b.x:= r; c.y:= -7; end;
x:= c.c.y *2;
Дана база данных, содержащая сведения о планетах Солнечной системы.
Планета
Расстояние
Отн. объем
Отн. масса
Отн. размер

Меркурий
57.9
0.06
0.05
Малая

Венера
108.2
0.92
0.81
Малая

Земля
149.6
1.00
1.00
Эталон

Марс
227.9
0.15
0.11
Малая

Юпитер
978.3
1345.00
318.40
Большая

Сатурн
1429.3
767.00
95.20
Большая

Получить ответы на следующие запросы:
а) выбрать все малые планеты, относительный объем которых больше 0.08, но меньше 0.09;
б) указать все планеты, имеющие относительную массу меньше 1;
в) вывести названия больших планет.


Контрольная работа по темам «Записи» и «Процедуры и функции» Вариант 8

Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных.
var c: record
x, y, z: array [0..9] of real;
naz, k: string[19]; n:boolean; end;
type computer = record
proc: string[24]; memory: byte;
vint: word; display: string[14];end;
var k: array [0..99] of computer;
type mn = set of char;
var k: array [-5..4] of mn;
type kipyatilnik =record
proizv: string[39]; mosh: word; resurs: byte; end;
var z: array [0..9, 1.10] of kipyatilnik;
Описать рекурсивную подпрограмму, формирующую массив из нечетных элементов заданного массива, содержащего натуральные числа.
Вычислить значения выражений.
3 in [12, ord((6()-ord((3(), trunk(8.2), ord(true), 14..17]
[18..33, 38, 1..5, 0,14] * [20..30, 0..10] –[1]
[(!(, (:(, (,(, (.(, (*(] + [(n(..(z(] * [(a(..(r(, (*(]
[(т(=(т(, (а(>(а(, (1( in [(0(..(9(], 10div3>2] * [true, false] –[7>12div2]
[100..120, 45..63] * [112..122, 30..50] + [23..77] * [30..40,75..100]
[1, 4, 23, 13, 45..77] – [10..20] - [0] - [44,100]
Решить задачу с использованием множества: в данной строке удалить все повторные вхождения символов.
type semya = record
nazv: string[20]; vshozh, x, y, r: real; end;
parallelepiped = record
x, y, z: real; end;
var r, q: parallelepiped; s: semya; y, z: integer;
Определить, какие значения будут иметь переменные r.x, r.y, r.z, q.x, q.y, q.z, s.x, s.y, s.r, y ,r после выполнения следующих операторов:
with r do
begin x:= -1; y:= x; z:= y-7; end;
y:= 13;
with q do y:=0; z:= 9;
with s do
begin nazv:= (подсолнечник(; x:=12; y:= 10; r:= 1; end;
Спроектировать базу данных, содержащую сведения о ваших однокурсниках. База должна быть построена так, чтобы из нее можно получить ответы на следующие запросы:
а) выбрать всех, у кого есть домашние животные;
б) выбрать всех юношей, увлекающихся шахматами;
в) выбрать всех девушек, увлекающихся пением;
г) выбрать всех, у кого нет домашних животных, но есть велосипед.



Контрольная работа по темам «Записи» и «Процедуры и функции» Вариант 9

Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных.
var mmm: record
n: string[34]; k, l: array[0..4] of string[9];
r: real; end;
type k = record
a, b: string[14]; c: word; d: set of char;
e: record a, b: integer; end;
end;
var m: array [-9..10] of k;
type r = set of (a(..(z(; var m: r;
type ex = record
alpha, beta, gamma: real; s: boolean; g:char;
case a: char of (a(:(n:integer, m:char); (b(:(r:real, q:word);
end;
var l: ex;
Описать рекурсивную подпрограмму, исключающую из заданной строки заданный символ.
Вычислить значения выражений.
(1( in [(r(..(z(, (1(, (5(..(9(, (!(, (d(..(p(]
(5 in [12..100,22-17,3]) in [(z( > (z(, 0=12, false]
12 in ([3*3, 22..40, 13..44,100 div 8] *[0..200] – [99..199])
[(r(..(z(, (2(, (r(] * [(a(..(z(,] – [(z(]
([16, 23, 48] > [16..48]) or ((h( in [chr(100), (5(..(z(])
[12..34] + [40..78] – [100..220] – [1, 3, 5, 7, 9]
Решить задачу с использованием множества: каких символов в заданной строе больше: русских или латинских?
type a = record x, y, z: char; n, m: real; end;
b = record l, r: integer; x: boolean; n, m: byte; end;
var n: a; m: integer; k: b;
Определить, какие значения будут иметь переменные n.x, n.z, n.n, n.m, k.n, k.m, k.x после выполнения следующих операторов:
with n do
begin n.x := (z(; n.z:= chr (ord ((5());
n.n:= 1.0; n.m:= cos(pi); end;
with k do
begin l:= 22- ord(false); n:= round(-1.0);
m:= -round(sin(-pi/2)); x:=5 in [10..20]; end;
m:= trunc(7.2);
Построить базу данных Apteka.
Название
Форма
Применение
Срок хранения
Стоимость
Наличие противопоказаний

Панадол
Таблетки
Головная боль
12
50
T

KIM
Бальзам
Головная боль
20
23
T

Анальгин
Ампулы
Головная боль
4
120
F

Валидол
Таблетки
Сердечное
9
35.6
T

Сибазон
Таблетки
Снотворное
10
99
F

Получить ответы на следующие запросы:
а) вывести названия лекарств, представленных в виде таблеток;
б) найти лекарства, которые применяют при головной боли и их стоимость не превышает 50;
в) вывести все записи, отвечающие условию: 9 < .Срок хранения ( 12;
г) найти названия таблеток, применяемых не при головной боли.

Контрольная работа по темам «Записи» и «Процедуры и функции» Вариант 10

Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных.
type dvh = record
ts: longint; dr: word; end;
var k: array [0..9, false..true] of dvh;
type korova = record
poroda: string[29];
massa, nadoj: real; end;
var mu: array [-20..19] of korova;
var z: record
a: (a(..(z(; b: byte;
c: string[4]; d: double;end;
var q: set of char.
Описать рекурсивную подпрограмму, формирующую изданного натурального числа другое число, которое содержит только четные цифры (порядок следования сохраняется).
Вычислить значения выражений.
[(a(..(q(, (0(..(5(] >= [(1(..(4(, (b(, (p(]
[(m(, (a(, (t(, (h(, (e(, (r(] = [(r(, (e(, (h(, (t(, (a(, (m(]
(ord ((9() – ord ((0()) in [10..20]
[10..200] * [1..100] – ([20..30] – [5, 10, 13]) + [100]
[1] + [11..22] – [1, 12] – [22..44] * [12..24]
[(a(..(z(, (a(..(z(, (0(..(9(, (,(] * [(a(..(z(] + [(1(, (1(, (1(]
Решить задачу с использованием множества: указать общие символы первого и последнего слова в заданной строке.
type drod = record
a, b: word; end;
tochka = record
a, b: real; end;
var b: drod; c, d: tochka; a: real;
Определить, какие значения будут иметь переменные c.a, c.b, b.a, b.b, a после выполнения следующих операторов:
with b do
begin a:= -1; b:= 0; end;
with d do
begin a:= -4.2; b:= 0.3; end;
c:= d; d.a:= -b.a; a;= b.a;
Сведения о компьютерах хранятся в массиве. Компьютер характеризуется процессором, его тактовой частотой, объемом оперативной памяти, объемом видеопамяти, объемом винчестера, наличие или отсутствием SCSI-контроллера, датой выпуска. Среди всех компьютеров, имеющих заданный объем оперативной памяти и заданный объем винчестера, найти такой, который был выпущен позднее других, и вывести все его характеристики.


Контрольная работа по теме «Файлы» Вариант 1

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_file_1;
var f,g: file of char;
c, ideal: char; s: string;
begin
write((имя файла? (); readln(s);
assign(f, s); reset (f);
write((имя файла? (); readln(s);
assign(g, s); rewrite (g);
if not eof(f) then read(f,c);
write((введите символ: (); readln(ideal);
while not eof(f) and not (c=ideal) do
begin
write(g, c);
read (f, c);
end;
close(f);
close(g);
end.
Решить задачу: заполнить файл целыми числами из отрезка [-1000; 1000] с помощью датчика случайных чисел. Переписать в другой файл неотрицательные числа.
Решить задачу: дан файл записей, содержащий даты: год, месяц и число.
type year = 1500..2002;
month = 1..12;
day = 1.31;
data = record y: year; m: month; d: day; end;
Написать программу, которая вводит эту информацию и определяет дату дня, следующего за тем, информация о котором помещена в файл в качестве последнего компонента.
Решить задачу: дан файл действительных чисел. Между каждой парой рядом стоящих элементов поместить среднее арифметическое этих элементов. Например, для файла 1, 2, 3, 4, 5 получаем результат 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5. Дополнительных файлов и массивов не использовать.
Решить задачу: разработать модуль для работы с натуральными числами: количество цифр в записи числа, сумма цифр числа, НОД и НОК двух чисел. Используя модуль и любой способ сортировки упорядочить данный массив натуральных чисел в порядке возрастания количества цифр в их записи, а в каждой группе чисел, имеющих в своей записи одинаковое количество цифр - в порядке убывания сумм их цифр. Например, дл исходно массива 177, 27, 33, 1, 17, 3241, 288 получаем ответ 1, 27, 17, 33, 288, 177, 3241.



Контрольная работа по теме «Файлы» Вариант 2

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_file_2;
var f,g: file of integer;
c: integer; s: string;
begin
write((имя файла? (); readln(s);
assign(f, s); reset (f);
write((имя файла? (); readln(s);
assign(g, s); rewrite (g);
while not eof(f) do
begin
read (f, c);
if c div 2 mod 2 = 0 then write (g, c);
end;
reset(g);
while not eof(g) do
begin
read (g, c); write (c:6);
end;
writeln;
close(f);
close(g);
end.
Решить задачу: заполнить файл целыми числами из отрезка [-100; 100] с помощью датчика случайных чисел. Переписать в другой файл нечетные положительные числа больше заданного числа k.
Решить задачу: дан файл записей, содержащий информацию о погоде в июле: температура ночью и днем, скорость ветра, влажность воздуха.
type data = record
noch, dnev: real;
scor, vlag: integer;
end;
var month: file of data;
Написать программу, которая вводит эту информацию и выводит числа июля в порядке увеличения дневной температуры.
Решить задачу: дан файл, содержащий символы. После каждого символа, являющегося прописной латинской буквой, поместить соответствующую ему строчную букву.
Решить задачу: разработать модуль для работы с натуральными числами: количество цифр в записи числа, сумма цифр числа, НОД и НОК двух чисел. Используя модуль вычислить НОД элементов заданного массива, содержащего натуральные числа.



Контрольная работа по теме «Файлы» Вариант 3

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_file_3;
var f,g: file of integer;
r: integer; s: string;
begin
write((имя файла? (); readln(s);
assign(f, s); reset (f);
write((имя файла? (); readln(s);
assign(g, s); reset (g);
seek(f,filesize(f));
while not eof(g)do
begin
read (g, r);
write (f,r)
end;
reset(f);
while not eof(f) do
begin
read (f, r); write (r:6);
end;
writeln;
close(f);
close(g);
end.
Решить задачу: заполнить случайными символами (их коды генерируются с помощью датчика случайных чисел) файл последовательного доступа. Переписать в другой файл все символы, являющиеся буквами (русскими и латинскими, прописными и строчными).
Решить задачу: дан файл записей, содержащий сведения о результатах сессии студентов второго курса (фамилия, номер группы и оценки по трем экзаменам).
type data = record
fam: string[12]; num: 121..126;
otm1, otm2, otm3: 2..5;
end;
var kurs: array [1..100] of stud;
Написать программу, которая вводит эту информацию и выводит номер предмета, средняя оценка по которому наиболее высокая.
Решить задачу: дан файл натуральных чисел. Дописать в файл после каждого нечетного числа сумму его цифр .
Решить задачу: разработать модуль для работы с окружностями (окружность на плоскости задается радиусом и координатами центра - представить её в виде записи). Действия: вычисление площади круга, расстояние от центра до начало координат. Используя модуль, данный массив окружностей отсортировать в порядке увеличения расстояния от центра окружности до начало координат.



Контрольная работа по теме «Файлы» Вариант 4

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_file_4;
var f,g: file of string;
r: integer; ch: char; s: string;
begin
write((имя файла? (); readln(s);
assign(f, s); reset (f);
write((имя файла? (); readln(s);
assign(g, s); rewrite (g);
write((введите символ: (); readln(ch);
while not eof(f) do
begin
read (f, s);
if pos(ch, s) <>0 then write(g, s);
end;
reset(g);
while not eof(g) do
begin
read (g, s); writeln (s);
end;
writeln;
close(f);
close(g);
end.
Решить задачу: сгенерировать с помощью датчика случайных чисел несколько действительных чисел и записать их в файл последовательного доступа. Переписать в другой файл те из них, целая часть которых является четным числом.
Решить задачу: дан файл записей, содержащий список телефонов сотрудников.
type sot = record
tel: integer; fam: string[20]; end;
var spis: array [1..50] of sot;
Написать программу, которая вводит эту информацию, упорядочивает записи в списке по алфавиту (используя любой способ сортировки) и выводит на экран.
Решить задачу: дан файл действительных чисел. После каждого компонента, номер которого кратен k, вставить m заданных чисел. Примечание. Программа должна учитывать, что номера компонентов при вставке изменяются. Номера, кратные k, соответствуют исходному расположению компонент в файле.
Решить задачу: разработать модуль для работы с векторами вида a (a1, a2). Реализовать операции сложения, вычитания, нахождения длины вектора. Используя модуль и любой способ сортировки, упорядочить заданный массив векторов в порядке убывания длин векторов.



Контрольная работа по теме «Файлы» Вариант 5

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_file_5;
var f: file of real; g: file of longint;
r: real; q: longint; s: string;
begin
write((имя файла? (); readln(s);
assign(f, s); reset (f);
write((имя файла? (); readln(s);
assign(g, s); rewrite (g);
while not eof(f)do
begin
read (f, r);
q:=ord(r<0)* abs(round(r));
if q <>0 then write(g, q);
end;
reset(g);
while not eof(g) do
begin
read (g, q); write (q:10);
end;
writeln;
close(f);
close(g);
end.
Решить задачу: с помощью датчика случайных чисел сгенерировать файл, содержащий целые числа. Переписать в другой файл те егоm, n компоненты, модули которых являются простыми числами и принадлежат отрезку [m, n].
Решить задачу: дан файл записей со списком пассажиров, содержащий следующие сведения: фамилия, номер вагона и масса багажа.
type pas = record
fam: string[15]; vag: byte;
kg: real; end;
var poezd: array [1..100] of pas;
Написать программу, которая вводит эту информацию и выводит номера вагонов в порядке возрастания средней массы багажа их пассажиров.
Решить задачу: дан файл натуральных чисел. Вслед за каждым числом дописать все его делители, исключая само число.
Решить задачу: разработать модуль для работы с массивом определенной структуры. операции поиск минимального и максимального элементов массива, суммирование элементов, замена всех элементов их модулями. Используя модуль, отсортировать данный массив массивов в порядке возрастания их максимальных элементов.



Контрольная работа по теме «Файлы» Вариант 6

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_file_6;
var f: file of longint; g: file of byte;
r: byte; q: longint; s: string;
begin
write((имя файла? (); readln(s);
assign(f, s); reset (f);
write((имя файла? (); readln(s);
assign(g, s); rewrite (g);
while not eof(f) do
begin
read (f, q);
q:= abs(q);
while q<>0 do
begin
r:= q mod 100;
write(g,r);
q:= q div 100;
end;
end;
reset(g);
while not eof(g) do
begin
read (g, r); write (r:4);
end;
writeln;
close(f);
close(g);
end.
Решить задачу: с помощью датчика случайных чисел записать в файл последовательного доступа некоторое количество чисел из отрезка [32, 255]. Получить в другом файле символы, коды которых соответствуют элементам исходного файла.
Решить задачу: дан файл записей, хранящий базу данных, содержащую сведения о машинах - марка, цвет, где выпущена, когда выпущена, наличие в продаже, стоимость.
Получить ответы на следующие запросы:
а) выбрать все машины, которые есть в продаже;
б) вывести марки всех машин, которые выпущены в Германии и выпущенные не позднее 1994.
Решить задачу: в заданном файле натуральных чисел после каждого числа записать количество цифр в нем.
Решить задачу: разработать модуль для работы с треугольниками (каждый треугольник задается координатами своих вершин). Предусмотреть следующие действия: вычисление длин сторон, периметра, площади, проверки двух треугольников на равновеликость. Используя модуль, отсортировать любым способом заданный массив треугольников в порядке возрастания их площадей. Указать равновеликие треугольники.



Контрольная работа по теме «Файлы» Вариант 7

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_file_7;
var f1, f2: file of integer;
s, n; integer; st: string;
begin
write((имя файла? (); readln(st);
assign(f1, st);
write((имя файла? (); readln(st);
assign(f2, st);
reset (f1);rewrite (f2);
s:= 0;
while not eof(f1) do
begin
read (f1, n);
write(f2, n);
s:= s+n;
end;
write(f2, s);
close(f1); close(f2);
end.
Решить задачу: заполнить файл целыми числами из отрезка [-100; 100] с помощью датчика случайных чисел. Переписать в один из новых файлов четные положительные компоненты исходного файла с указанием их количества, а в другой – нечетные отрицательные компоненты исходного файла с указанием их количества.
Решить задачу: дан файл записей, содержащий сведения о результатах сессии студентов второго курса (фамилия, номер группы и оценки по трем экзаменам).
type data = record
fam: string[12]; num: 121..126;
otm1, otm2, otm3: 2..5;
end;
var kurs: array [1..100] of stud;
Написать программу, которая вводит эту информацию и печатает номера групп в порядке увеличения средней успеваемости их студентов.
Решить задачу: удалить из файла, содержащего целыt числа, те компоненты, которые располагаются между k-ым и s-ым компонентами (kРешить задачу: разработать модуль для работы с натуральными числами. Реализовать операции вычисления количества цифр, произведения четных цифр числа, нахождения количества делителей числа. Используя модуль, переписать из данного файла в другой те числа, количество делителей которых больше заданного числа k.



Контрольная работа по теме «Файлы» Вариант 8

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_file_8;
var f1: file of integer; f2: file of real;
a, d: integer; b: real; s: string;
begin
write((имя файла? (); readln(s);
assign(f1, s); reset (f1);
write((имя файла? (); readln(s);
assign(f2, s); rewrite (f2);
while not eof(f1) do
begin
read (f1, a); read (f1, d);
b:= (a+d)/2;
write(f2, b);
end;
close(f1); close(f2);
end.
Решить задачу: заполнить файл целыми числами из отрезка [-7000; 7000] с помощью датчика случайных чисел. Переписать в один из новых файлов все четырехзначные положительные числа исходного файла, а в другой – все двузначные отрицательные.
Решить задачу: дан файл записей со списком пассажиров, содержащий следующие сведения: фамилия, номер вагона и масса багажа.
type pas = record
fam: string[15]; vag: byte;
kg: real; end;
var poezd: array [1..100] of pas;
Написать программу, которая вводит эту информацию и выводит номера вагонов в порядке убывания средней массы багажа их пассажиров (в поезде n вагонов).
Решить задачу: удалить из файла, содержащего целые числа, положительные компоненты, кратные k. Дополнительных файлов и массивов не использовать.
Решить задачу: разработать модуль для работы с натуральными числами. Реализовать нахождение НОД двух чисел, логические функции для проверки, является ли число простым, являются ли два числа взаимно простыми. Используя модуль, переписать из данного файла в другой пары взаимно простых чисел.



Контрольная работа по теме «Файлы» Вариант 9

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_file_9;
var f,g: file of integer;
a, b, k, p: integer; s: string;
begin
write((имя файла? (); readln(s);
assign(f, s); reset (f);
write((имя файла? (); readln(s);
assign(g, s); reset (g);
k:=filesize(f); p:=filesize(g);
if k=p then
while not eof(f) do
begin
k:= filepos(f); read(f,a);
p:= filepos(g); read(g,b);
seek(f, k); write(f, b);
seek(g, p); write(g, a);
end;
close(f); close (g);
end.
Решить задачу: заполнить файл целыми числами из отрезка [-1000; 1000] с помощью датчика случайных чисел. Переписать в один из новых файлов те из компонент исходного файла, которые встречаются ровно один раз, а в другой - все остальные.
Решить задачу: дан файл записей, содержащий список телефонов сотрудников.
type sot = record
tel: integer; fam: string[20]; end;
var spis: array [1..50] of sot;
Написать программу, которая вводит эту информацию, упорядочивает записи в списке по алфавиту и выводит на экран.
Решить задачу: удалить из файла, содержащего целые числа, те компоненты, которые стоят на четных местах. Дополнительных файлов и массивов не использовать.
Решить задачу: разработать модуль для работы с квадратными матрицами. Реализовать вычисление максимального элемента главной диагонали, минимального элемента побочной диагонали сумму и произведение элементов i-ой строки. Используя модуль, переписать из данного файла в другой те матрицы, максимальный элемент главной диагонали которых равен сумме или произведения k-ой строки.



Контрольная работа по теме «Файлы» Вариант 10

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program example_file_10;
var f: file of integer;
a, b, i, j, min: integer; s: string;
begin
write((имя файла? (); readln(s); assign(f, s);
rewrite (f); randomize;
repeat
a:= -300 + random (601);
write(f,a); write(a:5);
until a=0;
close(f); reset(f); writeln;
for i:= 0 to filesize(f)-1 do
begin
read (f, a); min:= i;
for j:= i+1 to filesize(f)-1 do
begin
read (f, b);
if b < a then begin a:=b; min:=j; end;
seek(f, i); read(f,b); seek(f, min); write(f,b);
seek(f, i); write(f,a);
end;
close(f); reset(f);
while not eof(f) do
begin
read(f,a); write(a:5);
end;
end;
close(f);
end.
Решить задачу: заполнить файл случайными действительными числами. Переписать в другой файл те из них, целая часть которых является простым числом.
Решить задачу: в файле хранится база данных Apteka.
Название
Форма
Применение
Срок хранения
Стоимость
Наличие противопоказаний

Панадол
Таблетки
Головная боль
12
50
T

KIM
Бальзам
Головная боль
20
23
T

Анальгин
Ампулы
Головная боль
4
120
F

Валидол
Таблетки
Сердечное
9
35.6
T

Сибазон
Таблетки
Снотворное
10
99
F

Написать программу, которая вводит эту информацию и выводит ответы на следующие запросы:
а) вывести названия лекарств, представленных в виде таблеток;
б) найти лекарства, которые применяют при головной боли и их стоимость не превышает 50;
в) вывести все записи, отвечающие условию: 9 < .Срок хранения ( 12;
г) найти названия таблеток, применяемых не при головной боли.
Решить задачу: элементами типизированного файла являются строки. Разработать программу, которая после каждого компонента исходного файла вставляет строку, обозначающую количество символов в указанном компоненте.
Решить задачу: разработать модуль для работы со строками с действиями: удаление лишних пробелов из строки; подсчет количества слов в строке; подсчёт количества символов, отличных от пробела, в строке; удаление цифр из записи строки. Используя модуль, упорядочить заданный массив строк в порядке возрастания количества слов в этих строках.

Root Entry

Приложенные файлы

  • doc 7821102
    Размер файла: 395 kB Загрузок: 0

Добавить комментарий