Контрольная работа 1 / 1-15_Информатика_2
.rtfМинистерство образования РФ
Томский государственный университет систем управления и радиоэлектроники. (ТУСУР)
Контрольная работа №1
По: Информатике
Автор учебного пособия: А. И. Муравьев
Вариант №15
1. Составьте ответы по контрольным вопросам, заданным в методических указаниях.
2. Перевести числа 63 и 1741 в двоичный и шестнадцатеричный вид.
6310 = 1111112 = 3516 ; 174110 = 10110011012 = 6CD16
3. Program n1;
uses crt;
var
Sum:real;
i:integer;
begin
clrscr;Sum:=0;i:=2;
while ((i)/(i*i+5))>=0.005 do begin
Sum:=Sum+((i)/(i*i+5));
i:=i+1;
end;
i:=i-1;
writeln(i,' эллемент ',((i)/(i*i+5)));
write('Сумма ряда до ',i,'-го эллемента ',Sum);
readln;
end.
4. Program n2;
uses crt;
var
y,t:real;
begin
clrscr;t:=0.5;
while t<=5 do begin
if t<=3 then y:=1/t else y:=t;
writeln('При t=',t,' y=',y);
t:=t+0.1;
end;
readln;
end.
5. Program n3;
uses crt;
var
Sum:real;
i:integer;
begin
clrscr;Sum:=0;
for i:=22 to 50 do Sum:=Sum+(i*i+1/i+1);
write('Сумма ряда от 22 до 50:',Sum);
readln;
end.
6. Program n4;
uses crt;
var
x,y:real;
begin
clrscr;x:=0;
repeat
y:=sin(2*x+1);
writeln('При x=',x,' y=',y);
x:=x+0.2;
until x>4;
readln;
end.
7. Program n5;
uses crt;
var
a:array[1..80] of integer;
SumO,SumNO:longint;
i:integer;
begin
clrscr;randomize;SumNO:=0;SumO:=0;
for i:=1 to 80 do
begin
a[i]:=random(37767);
if odd(a[i]) then SumNO:=SumNO+a[i] else SumO:=SumO+a[i];
end;
write('Сумма четных: ',SumO,' ;Сумма нечетных: ',SumNO);
readln;
end.
8. Program n6;
uses crt;
var
a:array[1..50,1..50] of integer;
min,max,i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 50 do
for j:=1 to 50 do
begin
a[i,j]:=round(random(32767));
if (i=1)and(j=1) then begin
max:=a[i,j];
min:=a[i,j];
end
else begin
if max<a[i,j] then max:=a[i,j];
if min>a[i,j] then min:=a[i,j];
end;
end;
writeln('Минимальное значение массива: ',min);
writeln('Максимальное значение массива: ',max);
readln;
end.