Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Задание № 2





вариант № 1 (№№:1, 5, 9, 13, 17, 21, 25, 29)

1. Укажите ошибочные записи подпрограммы:

а) Procedure S (a:array[1..10] of real; var c:real);

b) Function Max(a,b:real):real;

c) Procedure SuM(a,b:real;VAr c:real);

d) procedure Poriz(a,b:byte):byte;

 

1) a,b 2) b 3) b,c 4) a,d

 

2. Определить результат работы программы при х=3, а=3.

program Ex_12;

var a:real; x:byte;

function St(a:real;x:byte):extended;

begin

if x=1 then St:=a else

St:=a*St(a,x-1);

end;

 

Begin

writeln('.......');

readln(a,x);

writeln(St(a,x));

readln

End.

 

1) 6 2) 27 3) 9 4) 3

3. Какое расширение имеют файлы-модули в Паскале?

 

1) pas 2) exe 3) com 4) tpu

4. Какая процедура позволяет преобразовать строку в число?

 

1) Str 2) Val 3) Int 4) Length

 

5. Укажите неверный вариант описания файлов:

a) VAR MYFILE: file of integer;

b)Type OPSLAG=File of Real;

c) Type TEXTov: File of Char;

Var BOOK: TEXTov;

d) var text: file of text;

 

1) a 2) b 3) c 4) d

вариант № 2 (№№: 2, 6, 10, 14, 18, 22, 26, 30)

1. Для следующей программы определите, что будет напечатано:

var c, d: integer;

procedure P(x, y: integer);

begin

y:=x+1;

end;

begin

c:=2; d:=0;

P(sqr(c)+d, d);

writeln(c, d);

end.

 

1) 5,2 2) 2,5 3) 2,0 4) 5,0

2. Для чего предназначены модули?

 

1) для хранения данных базы;

2) для ввода данных базы и их просмотра;

3) для автоматического выполнения группы команд;

4) для выполнения сложных программных действий.

 

3. Найдите неверную запись:

 

а) A1:=[a,b]; B1:=[a,b,c,d]; if A1 in B1 then…;

b) A1:=[a,b]; B1:=[c,d] include (A1,B1);

c) A1:=[a,b,c,]; B1:=A1;

d) A1:=[a,b]; B1:=[a,b,c,d]; A1*B1;

 

1) a 2) b 3) c 4) d

 

4. Укажите верный вариант описания массива:

а) const n = 41;

var х: array [l..m] of real;

 

b) const n = 41;

var х: array [n] of real;

 

c) Type текст = array [1..72] of char;

шифр = array [char] of char;

var t:текст; k:шифр;

d) type name = (Olga,Gena, Masha,Nina);

var pol: array [name] of (mug, gen);

 

1) a 2) b 3) c 4) d

 

5. Команды какого модуля можно выполнять над файлами?

 

1) Dos 2) Crt 3) System 4) Graph

вариант № 3 (№№: 3, 7, 11, 15, 19, 23, 27, 31)

1. Укажите номер строки с ошибкой:

function NOD (n, m:integer): integer;

begin

while (n<>0) and (m<>o) do

if n > m then n:= n-m

else m:= m-n;

if n =0 then NOD:= m

else NOD:=n;

end;

var n,m:integer;

begin

writeln(‘Введите n, m’);

readln(n,m);

writeln (NOD);

readln

end.

 

1) 13 2) 1 3) 3 4) 9

2. Какое служебное слово используют для объявления в модуле раздела инициализации?

 

1) unit 2) implementation 3) interface 4) begin

3. Что будет выведено на экран в результате работы следующей программы?
uses crt;

type chars='a'..'g';

var a:chars;

begin
clrscr;

writeln(high(chars));
readkey;

end.

 

1) a 2) a,b,c,d,e,f,g 3) g 4) пустая строка

 

4. Какая функция определяет длину файла?

 

1) FilePos 2) FileSize 3) Length 4) Append

 

 

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

var sc: set of char; ss:string;i: integer;begin sc:= ['а','е','и','о','у','э','ю','я']; ss:='крокодильчики'; for i:=0 to length(ss) do if ss[i] in sc then write(ss[i]); readln;end.

1) оии 2) oиии 3) ooиии 4) oи

вариант № 4 (№№: 4, 8, 12, 16, 20, 24, 28, 32)

1. Какова глубина рекурсии в следующей подпрограмме при n=123?

function P(n:longint): longint;

begin

if n < 10 then P:= n

else P:= P(n div 10) * n mod 10;

end;

 

1) 2; 2) 3; 3) 1; 4) 10;

 

2. Процедуры и функции какого модуля можно использовать, не подключая модуль явно?

 

1) Graph 2) Crt 3) System 4) DOS

 

3. Тип множества вводится описанием: type <имя типа множества> =set of <имя... типа>. Имя какого типа должно быть вместо многоточия?

 

1) целого 2) вещественного 3) литерного 4) порядкового

 

4. Что делает следующая программа?

program Whatlslt;

var f: file of integer;

i: integer;

begin

reset(f);

while not eof(f) do begin

read(f, i);

writeln(i);

end;

close(f);

end.

 

1) выводит в столбик числа, записанные в файле;

2) выводит в строку числа, записанные в файле;

3) записывает числа в новый файл;

4) дописывает числа в существующий файл.

 

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

var ss:string; c:char;begin ss:= 'studentka'; for c:='s' to 'u' do delete(ss,pos(c,ss),2); write(ss); readln;end.

 

1) ena 2) udentka 3) udena 4) stenka

 







Дата добавления: 2015-09-04; просмотров: 697. Нарушение авторских прав; Мы поможем в написании вашей работы!




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


Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...


Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Что такое пропорции? Это соотношение частей целого между собой. Что может являться частями в образе или в луке...

Растягивание костей и хрящей. Данные способы применимы в случае закрытых зон роста. Врачи-хирурги выяснили...

ФАКТОРЫ, ВЛИЯЮЩИЕ НА ИЗНОС ДЕТАЛЕЙ, И МЕТОДЫ СНИЖЕНИИ СКОРОСТИ ИЗНАШИВАНИЯ Кроме названных причин разрушений и износов, знание которых можно использовать в системе технического обслуживания и ремонта машин для повышения их долговечности, немаловажное значение имеют знания о причинах разрушения деталей в результате старения...

Искусство подбора персонала. Как оценить человека за час Искусство подбора персонала. Как оценить человека за час...

Этапы творческого процесса в изобразительной деятельности По мнению многих авторов, возникновение творческого начала в детской художественной практике носит такой же поэтапный характер, как и процесс творчества у мастеров искусства...

Тема 5. Анализ количественного и качественного состава персонала Персонал является одним из важнейших факторов в организации. Его состояние и эффективное использование прямо влияет на конечные результаты хозяйственной деятельности организации.

Studopedia.info - Студопедия - 2014-2025 год . (0.008 сек.) русская версия | украинская версия