Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

Оператор с ключевыми словами CASE-OF-ELSE-END являются операторами




a) цикла с постусловием

b) ветвление

C) множество выбора

d) цикла с предусловием

 

Оператор с ключевыми словами IF-THEN-ELSE является оператором

a) цикла с постусловием

B) ветвление

c) множество выбора

d) цикла с предусловием

Оператор с ключевыми словами REPEAT-UNTIL являются операторами

A) цикла с постусловием

b) ветвление

c) множество выбора

d) цикла с предусловием

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

a) MS DOS

b) GRAPH

C) USES CRT

d) SYSTEM

 

82. Работая в компьютерном классе, ученики пишут программу, сохраняя результаты в общей папке. По окончании работы учитель увидел следующий код.

var

v,vn,st,s:integer;

begin

writeln(‘Введите вес багажа’);

readln(v);

writeln(‘Введите массу багажа, допущенную к перевозу в самолете без доплат’);

readln(vn);

writeln(‘Введите стоимость 1 кг багажа, оплачиваемую сверх нормы’);

readln(st);

v:=v+10*2;

if v>vn thenwriteln(‘Необходимо доплатить’,st*(v-vn),’рублей’) else

writeln(‘Доплачивать не нужно’);

end.

Определите результат, который выведет данная программа, при v=50, vn=25, st=10?

Ответ:450

 

 

Для досрочного выхода из процедуры надо использовать

A) команду EXIT

b) команду CLOSE

c) команду END

d) команду BEGIN

 

84. Работая в компьютерном классе, ученики пишут программу, сохраняя результаты в общей папке. По окончании работы учитель увидел следующий код.

var

v,vn,st,s:integer;

begin

writeln(‘Введите вес багажа’);

readln(v);

writeln(‘Введите массу багажа, допущенную к перевозу в самолете без доплат’);

readln(vn);

writeln(‘Введите стоимость 1 кг багажа, оплачиваемую сверх нормы’);

readln(st);

v:=v+(10*2);

if v>vn thenwriteln(‘Необходимо доплатить’,st*(v-vn),’рублей’) else

writeln(‘Доплачивать не нужно’);

end.

Определите результат, который выведет данная программа, при v=40, vn=25, st=10?

Ответ: 350

85. Для закрытия файла предназначена стандартная процедура

a) команду EXIT

B) команду CLOSE

c) команду END

d) команду BEGIN

86. Вычислить стоимость мебельного гарнитура,содержащего 4 стула, 2 кресла и 1 стол.Стоимость изделий A:=500, B:=1200 и C:=2700.
Program Situacia8;
var A:real; // цена стула B:real; // цена кресла
C:real; // цена стола Viruchka:real;
begin
Viruchka:=A*4+B*2+C*1;
Writeln('Общая выручка за весь гарнитур составила ',Viruchka,'руб.');
end.

Чему равна общая выручка за весь гарнитур (Ответ целое число)

Ответ 7100

87. В магазине продается костюмная ткань.Ее цена В руб. за квадратный метр. К усок этой ткани длиной Х метров и шириной 80см.
Program Situacia9;
var B:real; // цена ткани за 1 кв/м X:real; // длину куска ткани
Stoimost:real; // общая стоимость куска
begin
X:=5;
B:=250;
Stoimost:=X*0.8*B;
Writeln('Общая стоимость ткани длиной ',X,'метров равна ',Stoimost,'руб.');
end.

Чему равна общая стоимость ткани? (Ответ целое число)

Ответ 1000 руб.

Для очистки экрана используется функция

a) READKEY

B) CLRSCR

c) KEY PRESSED

d) TEXTCOLOR

 

89. Человеку нужно съездить из Лондона в расположенный в 390 милях Эдинбург. Он может ехать на автомобиле марки Роллс-Ройс,
либо на автомобиле марки Форд. Роллс-Ройс расходует 1 галлон бензина на каждые 15 миль пути. Форд расходует 1 галлон бензина на каждые 36 миль пути. С тоимость 1 галлона бензина составляет Х фунтов?
Program Situacia11;
var X:real; // стоимость одного галлона бензина
StoimostRols:real; // общая стоимость поездки на Ролс-Ройсе
begin
// вводим значение
X:=35;
StoimostRols:=390/15*X;
Writeln('Общая стоимость поездки на Роллс-Ройс составит', StoimostRols,'фунтов.');
end.

Сколько будет стоить поездка в Эдинбург на Ролс-Ройсе? Ответ целое число

Ответ: 910

90. В видеоигре игрок выигрывает50 очков, если он сбивает самолет,
100 очков, если он сбивает ракету,200 очков, если он сбивает спутник.
Program Situacia12;
var A:integer; // количество сбитых самолетов
B:integer; // количество сбитых ракет
C:integer; // количество сбитых спутников
Ochki:integer; // Количество полученных очков
begin
a:=15; b:=8; c:=3;
Ochki:=50*A+100*B+200*C;
// вывод результата
Writeln('Ответ:');
Writeln('Общее количество полученных очков ',Ochki);
end.

Чему равно общее количество полученных очков в видеоигре?

Ответ: 2100

 

Раздел описания типов данных открывается зарезервированным словом

a) LABEL

b) CONST

C) TYPE

d) VAR

 

92. Каждую неделю Юра получает деньги на мелкие расходы.
Из них он тратит Х рублей на сладости. Это составляет одну четверть того, что он получает еженедельно.
Юра сберегает одну треть того, что остается после покупки сладостей.
Program Situacia;
var X:integer; // на сладости
Otvet:real;// сбережения за год
begin
X:=35;
Otvet:=(365/7)*X;
Writeln('Юра экономит за год ',Otvet);
end.

Сколько Юра экономит за год? (Ответ целое число)

Ответ: 1825

 

93. Полторы кошки за полтора часа съедают полторы мышки.
Сколько мышек съедят X кошек за Y часов?
Program Situacia20;
var X:real; // количество кошек
Y:Real; // количество часов
H:real; // количество мышек
begin
// вводим значении
X:=3;
Y:=15;
H:=Y*X*2/3;
Writeln('Общее количество съеденных мышей: ',H);
end.

Чему равно Общее количество съеденных мышей? (Ответ целое число)

Ответ: 30

 

96. Язык программирования Паскаль является:

1. языком машинных команд
2. языком высокого уровня
3. языком управления базами данных

4. языком манипулирования данными

97. При написании программ на языке Паскаль, для ввода информации (переменных) используется оператор:

Ответ: Read или Readln

98. П ри написании программ на языке Паскаль, для вывода информации (переменных) используется оператор:

Ответ: Write или Writeln

99. Целочисленный тип в Паскале описывается служебным словом:
1. integer
2. real
3. сhar

4. boolean

100. Результат выполнения операции 5 mod 2:
Ответ: 1

101. Результат выполнения операции 8 mod 2:
Ответ: 0

102. Результат выполнения функции sqr(4):
1. 2

2. 4
3. 8
4. 16

103. Результат выполнения операции 9 div 2:
Ответ: 4

104. Результат выполнения операции 10 mod 2:

Ответ: 0

 

105. Какой из разделов программы является первым:

1. var

Label

3. type

4. const

106.Результат выполнения операции 14 div 3:
Ответ:4

Для описания переменных используется служебное слово

Ответ: var

108. Каких функций не существует в Паскале:

1. X 2

2. sin(x)

3. cos(x)

4. sqr(x)

109. Результат выполнения операции 2 mod 2:
Ответ: 0

110. Если заранее число повторении(цикл), программе используется оператор цикла:

Ответ: цикл с параметром

111. Язык программирования Паскаль является:

1. языком машинных команд
2. языком высокого уровня
3. языком управления базами данных

4. языком манипулирования данными

112. Найти значение с для заданных а=3,b=2,с=4,n=2:

for i:=1 to n do

с:= c+(a*b);

Ответ: 16

113. Какое значение будет иметь переменная d для заданных а=5, b=3, с=1:

if (a<b) and (b<c) then d:= c-a+b

else

if (a>b) and (b>c) then d:= a-b+c

else

if (a>b) and (b<c) then d:= a-c+b;

Ответ: 3

114.Целочисленный тип в Паскале описывается служебным словом:
1. integer
2. real
3. сhar

4. boolean

115. Результат выполнения операции 5 mod 2:
Ответ: 1

116. Найти значение c при а=3,b=5,с=1:

while a<b do

begin

с:= c+(a*b);

а:= a+1;

еnd;

Ответ: 31

117. Результат выполнения функции sqr(4):
1. 2

2. 4
3. 8
4. 16

118. Результат выполнения операции 9 mod 2:
Ответ: 1

119. Найти значение С при а=10, b=5:

repeat

b:= b+1;

a:= a-b;

c:= a+b;

until a≤0;

Ответ: 4

120. Какой из разделов программы является первым:

1. var

2. label

3. type

4. const

121.Результат выполнения операции 14 div 3:
Ответ: 4

122. Найти значение с для заданных а=3,b=2,с=4,n=4:

for i:=1 to n do

с:= c+(a*b);

Ответ: 28

123. Каких функций не существует в Паскале:

1. cos(x)

2. sin(x)

Tg(x)

Ctg(x)

124. Результат выполнения операции 14 mod 2:
Ответ: 0

 

126. Работая в компьютерном классе, ученики пишут программу, сохраняя результаты в общей папке. По окончании работы учитель увидел следующий код.

var

v,vn,st,s:integer;

begin

writeln(‘Введите вес багажа’);

readln(v);

writeln(‘Введите массу багажа, допущенную к перевозу в самолете без доплат’);

readln(vn);

writeln(‘Введите стоимость 1 кг багажа, оплачиваемую сверх нормы’);

readln(st);

if v>vn then writeln(‘Необходимо доплатить’,st*(v-vn),’рублей’) else

writeln(‘Доплачивать не нужно’);

end.

Определите результат, который выведет данная программа, при v=50, vn=25, st=10?

Введите ваш ответ: 250

127. Какое значение переменной S будет напечатано после выполнения фрагмента программы на Паскале?

A:=5

B:=4

S:=A+B

Writeln (Sqr(S) + 1);

Введите ваш ответ:82

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...