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

Билет 6

1. Напишите все известное вам о вещественном типе данных.

2. Если y - вещественная переменная, а n – целая, то какие из следующих операторов присваивания правильны?

1) y:=n+1; 2) n:=y-1; 3) n:=4.0; 4) y:=trunc(y);

 

3. Напишите, что и в какой последовательности будет выведено на экран в результате выполнения следующей программы. (Нарисовать в точности, как это будет выглядеть на экране):

Var s:integer;

p:real;

begin

p:=5.5;

write(‘p=’,p:5:3);

s:=10;

p:=p*s;

write(’ при s=’,s, ‘результат ‘,p:5:3);

writeln(‘конец программы ’);

end.

 

4. Укажите фрагмент программы, предназначенный для вычисления значения y. При х положительных y= -6; при х отрицательных y=x2-6; при х=0 y=0:


1)If x>0 then y:=sqrt(x)-6

Else If x<0 then y:=sqr(x)-6

else y:=0;

 

2) If x>0 then y:=sqr(x)-6

Else If x<0 then y:=sqrt(x)-6

else y:=0;

 

3) If x>0 then y:=sqrt(x)-6;

If x<0 then y:=sqr(x)-6

else y:=0;

 

4) y:=0;

If x>0 then y:=sqrt(x-6);

If x<0 then y:=sqr(x-6);

 

 


5. Найдите все ошибки в программе и исправьте их:

Var i,j,k:integer;

Begin

Read(‘введитеk’);

i:=20;

j:=k/i;

Writeln(j =, j);

End.

6. Что будет выведено на экран в результате выполнения следующей программы. (Известно, что код символа ‘с’ равен 99):

Var c:char;

Begin

c:=’ф’;

writeln(c);

writeln(‘c’);

Writeln(pred(c),’ ‘, char(ord(‘c’));

End.

7. Чему будет равно значение переменной b при а=10 после выполнения следующего участка программы:

if (a div 5) mod 2=0 then b:=sqrt(а*10)+5

else b:=sqr(a-5)-6;

 

8. Какие значения примут переменные с и d после выполнения следующего фрагмента программы:

c:=1; d:=0;
while d<50 do

begin

d:=d+sqr(c);

c:=c+1;

end;

 

9. Какое значение примет переменная А после выполнения следующего фрагмента программы:

А:=1; b:=false;

repeat
А:=А+1;

b:=b or (A>10)
until b;

 

10. Какое значение примет переменная А после выполнения следующего фрагмента программы:

A:=0;

for i:=10 downto 7 do А:=A+i;

 

11. Практическое задание 1. Заданы три вещественных числа: 1) определить, что больше: сумма или произведение этих чисел, 2) вывести на экран отдельно целую и дробную часть суммы.

 

12. Практическое задание 2. Напишите программу, рисующую разными цветами N линий (N вводится пользователем), причем расположение и длина линий выбирается случайным образом, и начало следующей линии должно совпадать с концом предыдущей.



Дата добавления: 2015-08-09; просмотров: 96 | Нарушение авторских прав


Читайте в этой же книге: Билет 1 | Билет 2 | Билет 4 | Билет 10 |
<== предыдущая страница | следующая страница ==>
Билет 5| Билет 9

mybiblioteka.su - 2015-2024 год. (0.006 сек.)