Вариант 13
Задание №1. Всегда ли справедливо следующее утверждение: chr(ord(c))=c для любого символа c?
1) да 2) нет
Задание №2. Указать порядок выполнения операций при вычислении выражения:
(x>=0) or true and (x=3) or (y*y<>4).
Задание №3. Какие значения примут переменные с и d после выполнения следующего фрагмента программы:
c:=1; d:=2; while с+d<10 do
begin
c:=c+1;
d:=d+1;
end;
Задание №4. Какое значение примет переменная А после выполнения следующего фрагмента программы:
А:=1; x:=2; repeat А:=А*x; x:=х+2; until A>=30;
Задание №5. Какое значение примет переменная А после выполнения следующего фрагмента программы:
А:=0; b:=false; while (A<15) and not b do
begin А:=А+5; if A>20 then b:=true;
end;
end;
Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Преобразовать массив таким образом, чтобы сначала располагались все отрицательные элементы, а потом – все положительные (элементы, равные 0, считать положительными).
Задание №7. В ЭВМ поступают результаты соревнований по плаванию для 3-х спортсменов. Составьте программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это результат победителя заплыва.
Задание №8. В строке вставьте один символ пробела после каждой запятой.
Задание №9. Дан текст из цифр и строчных латинских букв, за которыми следует точка. Определить, каких букв — гласных (а, е, i, о, u) или согласных — больше в этом тексте.
Задание №10. Выполняется по инструкции, которая прилагается.
Создать нетекстовый файл fruit.dat, содержащий информацию о поставках фруктов в магазин (наименование, цена, объем поставки – количество килограммов). Переписать в текстовый файл информацию о поставках, упорядоченную в порядке возрастания объемов. Вывести на экран название самых дешевых фруктов. Вывести на экран среднюю стоимость килограмма любых фруктов.
Вариант 14
Задание №1. Найдите все ошибки в программе и исправьте их:
Var x,y:char;
I:integer;
Begin
Writeln(введите x);
Read('x');
Y:=0;
If x= 5 then y=10; else y=100;
Writeln(‘y равен , y’);
End.
Задание №2. Напишите фрагмент программы вычисляющей значение переменной y:
при x кратных 3
п
ри
х
кратных 5
у=0 в остальных случаях.
Задание №3. Какие значения примут переменные с и d после выполнения следующего фрагмента программы:
c:=100; d:=0; while с-d>0 do
begin
c:=c-10;
d:=d+10;
end;
Задание №4. Какое значение примет переменная А после выполнения следующего фрагмента программы:
А:=2;
repeat А:=А*A; until A>=50;
Задание №5. Какое значение примет переменная А после выполнения следующего фрагмента программы:
for i:=1 to 10 do А:=3*i;
Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Преобразовать массив таким образом, чтобы сначала располагались все элементы, целая часть которых не превышает 1, а потом – все остальные.
Задание №7. Составьте программу, которая по введенному вами K – числу грибов печатает фразу «Мы нашли в лесу K грибов», причем согласовывает окончание слова «гриб» с числом K. Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т.д. Окончание фразы определяется значением последней цифры.
Задание №8. Составьте программу, заменяющую в предложении союз «И» на союз «ИЛИ».
Задание №9. Написать функцию, подсчитывающую общее количество цифр и знаков «+», «-», «*», входящих в строку s.
Задание №10. Выполняется по инструкции, которая прилагается.
Создать нетекстовый файл news.dat, содержащий информацию о выпускаемых газетах (название, тираж, дата выпуска: число, месяц). Переписать в текстовый файл информацию о газетах, упорядоченную в алфавитном порядке, тираж которых превышает 10000. Вывести на экран название газеты, имеющей наибольший тираж. Ввести текущую дату, вывести на экран название самой свежей газеты.