 |
При составлений программы студент набрал код. В каком из условных операторов допущена синтаксическая ошибка (введите цифру)?
|
|
|
|
1)if B = 0 then Writeln('Деление на нуль невозможно.');
2)if a > b then max:= a else max:= b;
3)if (a>b) and (b>0) then c:=a+b;
4)if a < b then min:= a; else min:= b;
Введите ваш ответ:
129. Определите стоимость покупки состоящей из карандашей (a) и тетрадей (b). Стоимость покупки переменная (с) после выполнения следующего фрагмента программы.
a:= 5
a:= a + 6
b:= – a
c:= a – 2 * b
Введите ваш ответ: 33
130. Вычисляется стоимость поездки на автомобиле на дачу (туда и обратно). Исходными данными являются: расстояние до дачи 67 (в километрах); количество бензина 8,5 которое потребляет автомобиль на 100 км пробега; цена одного литра бензина 6.5руб.
Var rast, rash, cena, summ,: real;
begin
write('Расстояние до дачи (км) ->');
readln(rast);
write('Расход бензина (литров на 100 км) ->');
readln(rash);
write('Цена литра бензина (руб.) —>');
readln(cena);
summ:=2*rast/100*rash*cena;
writeln('Поездка на дачу и обратно обойдется в',summ: 6:2, ' руб. '); readln; end.
Чему равна стоимость поездки на дачу после выполнения кода?
Введите ваш ответ:74
131. Чему равна величина дохода по вкладу по исходному коду программы. Процентная ставка (в процентах годовых) и время хранения (в днях) заданы в коде программы.
begin
writeln('Вычисление дохода по вкладу.');
writeln('Введите исходные данные:');
write('Величина вклада (руб.) —>');
sum:=2500;
write('Срок вклада (дней) —>');
srok:=30;
write('Процентная ставка —>');
stavka:=20;
dohod:=(sum*stavka/100)/365*srok; { 365 - кол-в году }
sum:=sum+dohod; writeln;
writeln('Доход:',dohod:9:2,' руб.');
writeln('Сумма по окончании срока вклада:',sum:9:2,'руб.'); readln; end.
Введите ваш ответ: 41
132. Определите значение переменной c после выполнения следующего фрагмента программы. Бейсик Алгоритмический
a = 5
a = a+ 10
b = – a
c = a – 2^ * b
Введите ваш ответ: 75
133. Определите значение переменной c после выполнения следующего фрагмента программы. Паскаль Алгоритмический.
|
|
|
a = 5
a = a *2
b = – a
c = sqr(a) * b
Введите ваш ответ: -1000
134. Когда окончится выполнение цикла:
while a<b do
a:=a+1;
Выберите один из вариантов ответа:
- Когда а станет меньше b
- Когда а станет равно b
- Цикл не закончится
- Сразу закончится
135. Установите соответствие:
1. Если
2. то
3. иначе
Укажите порядок следования вариантов ответа:
- if
- then
- else
1-1,2-2,3-3
136. Как сделать так, что бы программа выполнялась в отдельном окне?
Выберите один из вариантов ответа:
- Подключить библиотеку CRT;
- Подключить библиотеку GraphABC;
- Нажать выполнить в отдельном окне
139. Если условие ложно, то...
Выберите один из вариантов ответа:
- Выполняется то, что идет после команды then
- Выполняется то, что идет после команды else
140. Как обозначается команда присваивания в PascalABC?
Выберите один из вариантов ответа:
- *
- =
- :=
- ==
- :)
141. С помощью какой команды мы можем ввести в переменную А значение во время выполнении программы?
Выберите один из вариантов ответа:
- С помощью команды присваивание
- С помощью команды write(a);
- С помощью команды read(a);
142. Алгоритм это...
Выберите один из вариантов ответа:
- Последовательность команд, выполнение которых приводит нас к решению поставленной задачи.
- Последовательность действий, выполнив которые мы можем запустить программу.
- Задача, которую можно решить.
143. С помощью какой команды мы можем вывести на экран текст?
Выберите один из вариантов ответа:
- write('текст')
- read('текст')
- написать('текст')
- вывести('текст')
- отобразить на экран('текст')
144. Каждое выражение(каждый оператор) в программе отделяется друг от друга...
Выберите один из вариантов ответа:
- точкой с запятой
- точкой
- запятой
- тире
- дефисом
145. Работая в компьютерном классе, ученики пишут программу, сохраняя результаты в общей папке. По окончании работы учитель увидел следующий код.
var
v,vn,st,s:integer;
begin
writeln(‘Введите вес багажа’);
|
|
|
readln(v);
writeln(‘Введите массу багажа, допущенную к перевозу в самолете без доплат’);
readln(vn);
writeln(‘Введите стоимость 1 кг багажа, оплачиваемую сверх нормы’);
readln(st);
if v>vn thenwriteln(‘Необходимо доплатить’,st*(v-vn),’рублей’) else
writeln(‘Доплачивать не нужно’);
end.
Определите результат, который выведет данная программа, при v=60, vn=35, st=20?
Введите ваш ответ:500
148. Работая в компьютерном классе, ученики пишут программу, сохраняя результаты в общей папке. По окончании работы учитель увидел следующий код.
var
v,vn,st,s:integer;
begin
writeln(‘Введите вес багажа’);
readln(v);
writeln(‘Введите массу багажа, допущенную к перевозу в самолете без доплат’);
readln(vn);
writeln(‘Введите стоимость 1 кг багажа, оплачиваемую сверх нормы’);
readln(st);
if v>vn thenwriteln(‘Необходимо доплатить’,st*(v-vn),’рублей’) else
writeln(‘Доплачивать не нужно’);
end.
Определите результат, который выведет данная программа, при v=40, vn=15, st=5?
Введите ваш ответ:75
149. Какое значение переменной S будет напечатано после выполнения фрагмента программы на Паскале?
A:=4
B:=5
S:=A+B
Writeln (Sqr(S) + 1);
Введите ваш ответ:82
150. Студенты на ЛПЗ составляя программу для вычисления стоимости разговору по телефону, написали код программы. Но во время выполнения, программа выдала ошибку т.к пропущена команда(оператор). Определить какая команда пропущена?
Var Time,Day,Summa:real;
___________
write('Длительность разговора минут.->');
readln(Time);
write('День недели');
write(' (1-понедельник,..,7-воскресенье)-> ');
readln(Day);
Summa:= 2.3 * Time; { цена минуты 2.3 руб.}
if (Day = 6) or (Day = 7) then begin
writeln('Предоставляется скидка 20%); Summa:=Summa * 0.8;
writeln('Стоимость разговора:',Summa:8:2,' руб.'); end else
Summa:=Summa;
writeln('Стоимость разговора:',Summa:8:2,' руб.'); readln;
end.
Введите ваш ответ: begin
151. Вычисляется стоимость поездки на автомобиле на дачу (туда и обратно). Исходными данными являются: расстояние до дачи 67 (в километрах); количество бензина 8,5 которое потребляет автомобиль на 100 км пробега; цена одного литра бензина 7.5руб.
Var rast, rash, cena, summ,: real;
begin
write('Расстояние до дачи (км) ->');
readln(rast);
write('Расход бензина (литров на 100 км) ->');
readln(rash);
write('Цена литра бензина (руб.) —>');
readln(cena);
summ:=2*rast/100*rash*cena;
writeln('Поездка на дачу и обратно обойдется в',summ: 6:2, ' руб. '); readln; end.
Чему равна стоимость поездки на дачу после выполнения кода?
|
|
|
Введите ваш ответ:85
152. Чему равна величина дохода по вкладу по исходному коду программы. Процентная ставка (в процентах годовых) и время хранения (в днях) заданы в коде программы.
begin
writeln('Вычисление дохода по вкладу.');
writeln('Введите исходные данные:');
write('Величина вклада (руб.) —>');
sum:=3500;
write('Срок вклада (дней) —>');
srok:=30;
write('Процентная ставка —>');
stavka:=20;
dohod:=(sum*stavka/100)/365*srok; { 365 - кол-в году }
sum:=sum+dohod; writeln;
writeln('Доход:',dohod:9:2,' руб.');
writeln('Сумма по окончании срока вклада:',sum:9:2,'руб.'); readln; end.
Введите ваш ответ:57
153. Определите значение переменной c после выполнения следующего фрагмента программы. Бейсик Алгоритмический
a = 4
a = a+ 5
b = – a
c = 2^ * a-a
Введите ваш ответ:27
154. Составлена программа вычисления объема цилиндра.
Введите исходные данные:
Радиус основания (см) —> 5
Высота цилиндра (см) —> 10
Var r,h,v: real; { радиус основания, высота и объем цилиндра }
begin
writeln('Вычисление объема цилиндра');
writeln('Введите исходные данные:');
v:= 2*3.1415926*r*r*h;
writeln('Объем цилиндра ',v:6:2,' см.куб.');
readln;
end.
Чему равен Объем цилиндра -?
155. Составлена программа вычисления объема цилиндра.
Введите исходные данные:
Радиус основания (см) —> 10
Высота цилиндра (см) —> 5
Var r,h,v: real; { радиус основания, высота и объем цилиндра }
begin
writeln('Вычисление объема цилиндра');
writeln('Введите исходные данные:');
v:= 2*3.1415926*r*r*h;
writeln('Объем цилиндра ',v:6:2,' см.куб.');
readln;
end.
Чему равен Объем цилиндра -?
159. Дана программа, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое. Вычисление среднего арифметического последовательности дробных чисел.
-> 5.4-> 7.8-> 3.0-> 1.5-> 2.3
Const L=5; { длина последовательности }
Var n: integer; a, sum, sred: real;
begin
writeln('Обработка последовательности дробных чисел');
writeln('После ввода каждого числа нажимайте <Enter>');
sum:=0;
for n:=l to n do begin
write('->'); readln(a); sum:=sum+a; sred:=sum/n;
writeln('Введено чисел:',n:3, ' Сумма: ', sum:6:2, ' Сред.арифметическое:',sred:6:2); end;
writeln('Для завершения работы программы нажмите <Enter>'); readln; end.
|
|
|
Сред. арифметическое равно= 4
|
|
|
