Вариант 11
Задание №1. Чему будет равно значение переменной b при а=16 после выполнения следующего участка программы:
if (a div 3) mod 2=0 then b:=sqrt(a*4)+5
else b:=sqr(a-10)-6;
Задание №2. Что будет выведено на экран в результате выполнения следующей программы. (Известно, что код символа с равен 99):
Var x:char;
Begin
X:=’c’;
Writeln(char(ord(x)),’ ‘,char(99),’ ‘,succ(x));
End.
Задание №3. Какие значения примут переменные с и d после выполнения следующего фрагмента программы:
c:=0; d:=10; while d>=0 do
begin
c:=c+1;
d:=d-3
end;
Задание №4. Какое значение примет переменная А после выполнения следующего фрагмента программы:
А:=0; x:=1; repeat А:=А+x*x; x:=х+1 until x>=4;
Задание №5. Какое значение примет переменная А после выполнения следующего фрагмента программы:
А:=0; b:=true; while b do
begin А:=А+5; if A>20 then b:=false;
end;
Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Сжать массив, удалив из него все элементы, величина которых находится в интервале [а,b]. Освободившиеся в конце массива элементы заполнить нулями.
Задание №7. Составьте программу, которая по трем введенным вами числам определит, могут ли эти числа быть длинами сторон треугольника, и если да, то какой получится треугольник с данными длинами сторон (прямоугольный, остроугольный, тупоугольный).
Задание №8. Замените в строке все символы «круглые скобки» на символы «квадратные».
Задание №9. Дан текст из цифр и строчных латинских букв, за которыми следует точка. Определить, каких букв – заглавных (A, E, F, H, L) или строчных - больше в этом тексте.
Задание №10. Выполняется по инструкции, которая прилагается.
Создать нетекстовый файл Video.dat, в котором хранятся данные о фильмах (название фильма, киностудия, режиссер, год выпуска). Переписать в текстовый файл информацию о фильмах, упорядоченную по году выпуска. Переписать в отдельный файл режиссеров и названия фильмов, снимавшихся на одной киностудии. Вывести на экран информацию о фильмах, снятых до 1999 г.
Вариант 12
Задание №1. Вычислите значение выражения chr(ord(‘5’)+1)?
1) 54 2) ‘54’ 3) ‘6’ d) 6
Задание №2. Что будет выведено на экран в результате выполнения следующей программы. (Известно, что код символа с равен 99):
Var c:char;
Begin
c:=’A’;
writeln(‘c’);
writeln(c);
Writeln(char(ord(‘c’)),’ ‘,succ(c));
End.
Задание №3. Какие значения примут переменные с и d после выполнения следующего фрагмента программы:
c:=1; d:=10; while d<100 do
begin
c:=c*2;
d:=d+10;
end;
Задание №4. Какое значение примет переменная А после выполнения следующего фрагмента программы:
А:=0; x:=1; repeat А:=А+x; x:=х*2 until x>=30;
Задание №5. Какое значение примет переменная А после выполнения следующего фрагмента программы:
А:=0; b:=false; while not b do
begin А:=А+5; if A>20 then b:=true;
end;
Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Преобразовать массив таким образом, чтобы сначала располагались все элементы, целая часть которых лежит в интервале [а,b], а потом – все остальные.
Задание №7. Составьте программу, реализующую эпизод применения компьютера в книжном магазине. Компьютер запрашивает стоимость книг и сумму денег, внесенную покупателем. Если сдачи не требуется, печатает на экране «Спасибо». Если денег внесено больше, то печатает «Возьмите сдачу» и указывает сумму сдачи. Если денег недостаточно, то печатает об этом сообщение и указывает размер недостающей суммы.
Задание №8. Удалите из строки все круглые скобки.
Задание №9. Дан текст, заканчивающийся точкой. В алфавитном порядке напечатать все строчные русские гласные буквы (а, е, и, о, у, ы, э, ю, я), входящие в этот текст.
Задание №10. Выполняется по инструкции, которая прилагается.
Создать нетекстовый файл Book.dat, в котором хранятся данные о книгах (название книги, автор, число страниц, год издания). Переписать в текстовый файл информацию о книгах, упорядоченную в алфавитном порядке по авторам. Переписать в отдельный файл авторов и названия книг, изданных после 2000 г. Вывести на экран название самой толстой книги.