дипломы,диссертации,курсовые,контрольные,рефераты,отчеты на заказ

Информатика-1
Кафедра ПрЭ
Муравьев А.И.
Томск-2001

Указаны только правильные ответы, другие варианты можно узнать скачав файл из архива → Информ_1.ПРЭ.

Тема: 1. Команды MS-DOS.
дипломы,курсовые,рефераты,контрольные,диссертации,отчеты на заказ

№ 1
Что выполняет команда MS-DOS DEL fs*.* ?
• стирает файлы в текущей директории, начинающиеся с fs с любым расширением.

№ 2
Что выполняет команда MS-DOS copy fs*.* *.txt ?
• копирует все файлы из текущей директории с именем, начинающимся на fs с любым расширением, в эту же директорию с тем же именем и расширением TXT.

№ 3

Написать полный путь доступа к файлу MY_FILE.TPP, находящемуся в директории PAS_TP.
Ответ: D:\LANG\PAS\PAS_TP\MY_FILE.TPP

№ 4

Написать команду MS-DOS удаления файла DOG.TXT директории DOGOVOR1, находясь в директории FOX.
Ответ: DEL,D:\TXT\DOC\DOGOVOR\DOGOVOR1\DOG.TXT

№ 5

Написать команду MS-DOS копирования файла MY_FOX.FXX из директории FOX в директорию LAB_RA с новым именем MY_LAB.LBB (писать заглавными буквами).
Ответ: COPY,D:\LANG\FOX\MY_FOX.FXX,D:\TXT\DOC\LAB_RA\MY_LAB.LBB

№ 6

Написать команду MS-DOS удаления всех файлов в директории PAS, находясь в корневой директории (писать заглавными буквами).
Ответ: DEL,D:\LANG\PAS\*.*

Тема: 2. Совместимость типов.

Задан фрагмент программы. Указать номер строки, в которой находится ошибка.

№ 1
1 Var
2 r1,r2:real;
3 i,j :integer;
4 c1,c2:char;
5 s1,s2:string;
6 begin
7 r1:=5.5;
8 r2:=r1+6;
9 c1:='A';
10 c2:=c1;
11 s1:='TOMSK';
12 s2:=r2;
Ответ: (12)

№ 2
1 Var
2 r1,r2:real;
3 i,j :integer;
4 c1,c2:char;
5 s1,s2:string;
6 begin
7 r1:=15.5;
8 s2:=r2;
9 r2:=r1-16;
10 s1:='TUSUR';
11 s2:=s1+S1;
12 s1:='ABCD'+'A';
Ответ: (8)

№ 3
1 Var
2 r1,r2:real;
3 i,j :integer;
4 c1,c2:char;
5 s1,s2:string;
6 begin
7 r1:=5.5;
8 r2:=r1*r1/2;
9 s1:='A';
10 c1:=S1+'ASDF';
11 s2:=s1;
Ответ: (10)

№ 4
1 Var
2 r1,r2:real;
3 i,j :integer;
4 c1,c2:char;
5 s1,s2:string;
6 begin
7 r1:=5.115;
8 r2:=6;
9 c1:='A';
10 s1:=r1+'ASDFG';
11 s2:=s1;
12 c1:='a';
Ответ: (10)

№ 5
1 Var
2 r1,r2:real;
3 i,j :integer;
4 c1,c2:char;
5 s1,s2:string;
6 begin
7 c1:='#';
8 c2:='D';
9 j:=55;
10 c2:=c1;
11 s1:=c1+c2;
12 s2:=s1+c2;
Ответ: (5)

№ 6
1 Var
2 r1,r2:real;
3 i,j :integer;
4 c1,c2:char;
5 s1,s2:string;
6 begin
7 c1:='f'+'s';
8 r1:=6+4.6;
9 c2:=c1;
10 i:=44*2;
11 j:=i*2;
12 s2:=c2;
Ответ: (7)

№ 7
1 Var
2 r1,r2:real;
3 i,r1 :integer;
4 c1,c2:char;
5 s1,s2:string;
6 begin
7 r1:=5.5;
8 r2:=r1+6;
9 c1:='A';
10 c2:=c1;
11 s1:='TOMSK';
12 s2:=s2;
Ответ: (3)

№ 8
1 Var
2 r1,r2:real;
3 i,j :integer;
4 c1,c2:char;
5 s1,s2:string;
6 begin
7 r1:=5.5;
8 r2:=r1+6;
9 c1:='A';
10 j:=r1+4;
11 i:=0;
12 s2:=' ';
Ответ: (10)

№ 9
1 Var
2 r1,r2:real;
3 i,j :integer;
4 c1,c2:char;
5 s1,s2:string;
6 begin
7 c1:='6';
8 c2:='66';
9 r1:=666.8798;
10 r2:=2/3+55/66;
11 i:=44;
12 j:=i*(6+7);
Ответ: (8)

№ 10
1 Var
2 r1,r2:real;
3 i,j :integer;
4 c1,c2:char;
5 s1,s2:string;
6 begin
7 j:=5;
8 j:=j*5+4;
9 c1:='A';
10 c2:='A'+'B';
11 s1:='asda'+'asda';
12 s2:=s1;
Ответ: (10)

Тема: 3. Арифметические выражения.

Введите, какое числовое значение выведется на экран оператором Writeln?

№ 1
Writeln((5+2)*2+(4+8)*2-22/2:2:0);
Ответ: (27)

№ 2
Writeln(12/3/4+15/3*2+3:2:0);
Ответ: (14)

№ 3
Writeln(12/4*2+(36/3+2)/7:1:0);
Ответ: (8)

№ 4
Writeln((3+2)*3*(6+9)/5:2:0);
Ответ: (45)

№ 5
Writeln(128/4/2/2/2+5:1:0);
Ответ: (9)

№ 6
Writeln(128/4/(2/2/2)+5.0:2:0);
Ответ: (69)

№ 7
Writeln((23+13)/3+(9+3)/4:2:0);
Ответ: (15)

№ 8
Writeln((33-3)/20-(55+5)/(7-1):4:1);
Ответ: (-8.5)

№ 9
Writeln((12+8)*2/4-(6+9)/3*12:3:0);
Ответ: (-50)

№ 10
Writeln(4*2*8/(33-1)+(2-7)/5+3:1:0);
Ответ: (4)

Тема: 4. Логические выражения.

Какое логическое значение (TRUE или FALSE) выведется на экран оператором вывода Writeln, если значения логических переменных l1:=FALSE и l2:=TRUE?

№ 1
Writeln((5 > 4) and (10 <= 8) or l1 );
• FALSE

№ 2
Writeln((3 < 10) and (6 > 12) and (10 >= 5) );
• FALSE

№ 3
Writeln((5 >= 5) or (l1 and l2) );
• TRUE

№ 4
Writeln((5.6 < 10.2) and (6 >= 1) or (3 = 3) );
• TRUE

№ 5
Writeln((4 < > 4) or (l1 and l2) or l1 );
• FALSE

№ 6
Writeln((5 <= 5) and (l2 and (5 > 0) and (l1 or l2)) );
• TRUE

№ 7
Writeln(('A'< >'T') and (33 > 3) and (l1 and l2) );
• FALSE

№ 8
Writeln(('A'='B') and (6 > 3) or (3 >= 3) );
• TRUE

№ 9
Writeln(('A'< >'B') or (3 = 7) or (3 > 7) );
• TRUE

№ 10
Writeln(('D'='d') and ((3 > 10) or ('F'='F')) );
• FALSE

Тема: 5. Форматированный вывод.
Заданы переменные
 целочисленные: i:=3; j:=10; k:=255;
 вещественные: r1:=15.53; r2:=155.57;
 символьные: c1:='D'; c2:='F';
 строковые: s1:='IVANOV'; s2:='TUSUR';
 Написать, что выведет оператор Writeln на экран? Вместо пробела при вводе ответа набирать восклицательный знак !

№ 1
Writeln(i,j,k:5,s1:10,s2,r1:5:2,r2:10:3,'SW',c1);
Ответ: (310!!255!!!!IVANOV,TUSUR15.53!!!155.570SWD)

№ 2
Writeln(i:5,j:3,k,s1:9,s2,r1:5:2,r2:10:3,'1',c2);
Ответ: (!!!!3!10255!!!IVANOV,TUSUR15.53!!!155.5701F)

№ 3
Writeln('__','ST',s1,i,r1:6:1,'_a',c1,s2);
Ответ: (!!STIVANOV3!!15.5!aDTUSUR)

№ 4
Writeln(i,'FAST',s1:10,'_r1=',r1:10:4,c1+c2+'_W');
Ответ: (3FAST!!!!IVANOV!r1=!!!15.5300DF!W)

№ 5
Writeln('*','FAST':5,'r1=':5,r1:10:5,'i=':3,i,s1,s2:6,'*');
Ответ: (*!FAST!!r1=!!15.53000,!i=3IVANOV!TUSUR*)

№ 6
Writeln(r1:5:1,'_MOSCOW_',S1,'_k=_',k,c1,'D=',c2);
Ответ: (!15.5!MOSCOW!IVANOV!k=!255DD=F)

№ 7
Writeln(s1,'5>4':5,5>4:5,'ii=',i:3,s2,'**',j:6);
Ответ: (IVANOV!!5>4!TRUE,ii=!!3TUSUR**!!!!10)

№ 8
Writeln('ALPHA','_',s1,'i=_j=_k=',i,j,k,c1:3,c2:5,'5=5',5=5);
Ответ: (ALPHA!IVANOVi=!j=!k=310,255!!D!!!!F5=5TRUE)

№ 9
Writeln('4<>3',4<>3:6,'_r2=_',r2:6:1,i:5,j:4,'s1',s1,s2);
Ответ: (4<>3!!TRUE1!r2=!,!!155.6!!!!3!!10s1IVANOVTUSUR)

№ 10
Writeln('i=',i:6,'5','5<>',6=6,'**r1=**',r1:6:1,'s1',s1:8,'c1=',c1);
Ответ: (i=!!!!!355<>TRUE,**r1=**!!15.5s1=!!IVANOVc1=D)

Тема: 6. Идентификаторы.

Строки с неправильно записанным идентификатором.

№ 1
• My Fam

№ 2
• 2Stroka

№ 3
• Name*Sigm

№ 4
• Name_@

№ 5
• Rive_"Moscow

№ 6
• \@Asda

№ 7
• Do

№ 8
• Var

№ 9
• "Alpha

Тема: 7. Массивы и индексы.

Введите номер строки, в которой находится ошибка:
a:array[1..6] of integer;
begin

№ 1
1 a[1]:=2*5+1;
2 a[2]:=33;
3 a[3]:=a[1]+a[2];
4 a[4]:=a1[2]+44.5;
5 a[5]:=a[2]+33;
6 a[6]:=22*3
Ответ: (4)

№ 2
1 i:=2;
2 a[i/2]:=2+1;
3 a[i]:=33;
4 a[3]:=a[i]+55;
5 a[i*2]:=445-3;
Ответ: (2)

№ 3
1 i:=3;
2 a[1]:=22;
3 a[i*2]:=i+1;
4 a[i+3]:=33;
5 a[i*4]:=a[1]+5;
Ответ: (5)

№ 4
1 i:=2;
2 a[i*2+1]:=2+1;
3 a[i-1]:=3;
4 a[i-2]:=a[1]+5;
5 a[5]:=a[1]+3
6 a[6]:=3;
Ответ: (4)

№ 5
1 i:=2;
2 a[i/3]:=3;
3 a[i]:=5;
4 a[3]:=a[2]+7;
5 a[i*2]:=333;
Ответ: (2)


Определить значение переменной S при выводе ее на экран.

№ 6
Var
s,i,j :integer;
a :array[1..3,1..3] of integer;
begin
s:=0;
a[1,1]:=3; a[1,2]:=7; a[1,3]:=10;
a[2,1]:=5; a[2,2]:=8; a[2,3]:=2;
a[3,1]:=11; a[3,2]:=5; a[3,3]:=11;
For i:=1 to 2 do For j:=1 to 3 do s:=s+a[i,j];
Writeln(S);
end.
Ответ: (35)

№ 7
Var
s,i,j :integer;
a :array[1..3,1..3] of integer;
begin
s:=0;
a[1,1]:=3; a[1,2]:=7; a[1,3]:=10;
a[2,1]:=5; a[2,2]:=8; a[2,3]:=2;
a[3,1]:=11; a[3,2]:=5; a[3,3]:=11;
For i:=1 to 3 do For j:=1 to 2 do s:=s+a[i,j];
Writeln(S);
end.
Ответ: (39)

№ 8
Var
s,i,j :integer;
a :array[1..3,1..3] of integer;
begin
s:=0;
For i:=1 to 3 do For j:=1 to 3 do
a[i,j]:=i*j;
For i:=1 to 3 do For j:=1 to 3 do s:=s+a[i,j];
Writeln(S);
end.
Ответ: (36)

№ 9
Var
s,i,j :integer;
a :array[1..3,1..3] of integer;
begin
s:=0;
For i:=1 to 3 do For j:=1 to 3 do
a[i,j]:=i+j;
For i:=1 to 3 do For j:=1 to 3 do s:=s+a[i,j];
Writeln(S);
end.
Ответ: (36)

Тема: 8. Оператор цикла FOR.

№ 1
Введите, чему будет равно значение переменной S, выведенное на экран?
Program Primer1;
Var
S,i : integer;
begin
S:=0;
For i:=3 to 6 do s:=s+i*i;
Writeln(S);
end.
Ответ: (86)

№ 2
Введите, чему будет равно значение переменной S при выводе на экран?
Program Primer2;
Var
S,i:integer;
begin
S:=4; For i:=8 to 3 do S:=S+i;
Writeln(S);
end.
Ответ: (4)

№ 3
Укажите на строки программы, в которой допущена ошибка:
Program summa;
Var
• S,r1:real;
begin
• For r1:=1 to 10 do
begin S:=s+r1;
Writeln('r1=',r1,' S:=',S);
end;
end.

№ 4
Введите значение переменной Р при выводе на экран.
Program Primer4;
Var
P,i:integer;
begin
P:=1;
For i:=1 to 5 do P:=P*i;
Writeln(P);
end.
Ответ: (120)

№ 5
Сколько раз выполнится оператор в теле цикла?
Program Primer5
Var
i,j:integer;
begin
For i:=3 to 20 do
j:=i;
end.
Ответ: (18)

№ 6
Сколько раз выполнится оператор в теле цикла?
Program Primer6;
Var
i,j:integer;
begin i:=0;
For j:=10 downto 5 do i:=i+1;
end.
Ответ: (6)

№ 7
Сколько раз выполнятся операторы в теле цикла?
Programa Primer7;
Var i:integer;
SS:real;
begin SS:=0;
For i:=1 to 6 do
begin i:=i+1; SS:=SS+1.0;
end;
end.
Ответ: (3)

№ 8
Чему равно значение переменной S при выводе ее на экран?
Program Primer8;
Var S,i:integer;
begin
s:=0;
For i:=1 to 5 do
S:=S+2*i;
Writeln(S:5);
end.
Ответ: (30)

№ 9
Указать строку программы, в которой допущена ошибка?
Program Primer9;
• Var i:byte;
S:real;
• begin For i:=1 to 300 do
begin S:=S+1/i;
Writeln(i:=5,S:10:5);
end;
end.

№ 10
Чему равно значение переменной i при выводе ее на экран?
Program Primer10;
Var
i:integer;
S:real;
begin
For i:=1 to 20 do
S:=i;
Writeln(i);
end.
Ответ: (20)

Тема: 9. Операторы цикла WHILE и REPEAT.

Чему равно значение переменной S2 при выводе ее на экран?

№ 1
Program prim1;
Var S1,S2:integer;
begin S1:=10; S2:=20;
While S1<5 do
begin S1:=S1+1; S2:=S2+S1;
end;
Writeln(S2:10);
end.
Ответ: (20)

№ 2
Program Prim2;
Var S1,S2:integer;
begin ClrScr;
S1:=4; S2:=10;
While S1<=10 do
begin S1:=S1+1; S2:=S2+S1;
end;
Writeln(S2);
end.
Ответ: (66)

№ 3
Program Prim3;
Var S1,S2:integer;
begin S1:=3; S2:=5;
Repeat S1:=S1+1; S2:=S2+S1;
until S1>0;
Writeln(S2);
end.
Ответ: (9)

№ 4
Чему равно значение переменной S при выводе ее на экран?
Program Prim4;
Var S:real;
begin S:=1;
while S<=10 do
S:=S+S;
Writeln(S);
end.
Ответ: (16)

№ 5
Чему равно значение переменной S при выводе ее на экран?
Program Prim5;
Var S:real;
begin S:=1;
Repeat
S:=S+S;
until S>=10;
Writeln(S);
end.
Ответ: (16)

№ 6
Чему равно значение переменной i_s при выводе ее на экран
Program Prim6;
Var i,j,i_s:integer;
begin i:=0; j:=1; i_s:=0;
While i<=10 do
begin i:=i+1; j:=j+1; i_s:=i+j;
end;
Writeln(i_s);
end.
Ответ: (23)

№ 7
Чему равно значение переменной j при выводе ее на экран?
Program Prim7;
Var i,j:integer;
begin i:=5; j:=0;
While i>=5 do
begin j:=j+1; i:=i-1;
end;
Writeln(j);
end.
Ответ: (1)

№ 9
Чему равно значение переменной i при выводе ее на экран?
Primer Prim9;
Var i,j,k:integer;
begin i:=0; j:=1; k:=1;
While k<5 do
begin i:=i+j+k; j:=j+1; k:=k+1;
end;
Writeln(i);
end.
Ответ: (20)

№ 10
Чему равно значение переменной Р при выводе ее на экран?
Primer Prim10;
var i:integer; P:real;
begin i:=1; P:=1;
While i<=6 do
begin i:=i+1; P:=P*i;
end;
Writeln(P:12:1);
end.
Ответ: (5040)

Тема: 10. Оператор выбора CASE.

Чему будет равна целочисленная переменная j после выполнения оператора Case?

№ 1
Var i,j:integer;
begin j:=0; i:=5;
Case i of
2,3 : j:=1;
4 : j:=2;
6,1 : j:=3;
7,5 : j:=4;
5,2 : j:=5;
1,2,5 : j:=6;
6,1 : j:=7;
7,7,8 : j:=8;
2,1 : j:=9;
end;
Ответ: (4)

№ 2
Var i,j:integer;
begin j:=0; i:=44;
Case i of
7,3 : j:=1;
4,4 : j:=2;
6,1 : j:=3;
7,2 : j:=4;
4,44 : j:=5;
1,2,5 : j:=6;
6,1 : j:=7;
7,44,8 : j:=8;
44,44 : j:=9;
end;
Ответ: (5)

№ 3
Var i,j:integer;
begin j:=0; i:=5;
Case i of
2,3 : j:=1;
4,2 : j:=2;
6,1 : j:=3;
3,2 : j:=4;
4,1 : j:=5;
1,8 : j:=6;
6,1 : j:=7;
8 : j:=8;
2,1 : j:=9;
end;
Ответ: (0)

№ 4
Чему будет равна целочисленная переменная j после выполнения оператора Case? Var i,j:integer;
begin j:=0; i:=4;
Case i of
2,3 : j:=1;
41 : j:=2;
6,1 : j:=3;
7,5-1 : j:=4;
5,2 : j:=5;
1,2,5 : j:=6;
4 : j:=7;
7,7,8 : j:=8;
2,1 : j:=9;
end;
Ответ: (4)

№ 5
Var i,j:integer;
begin j:=0; i:=3*2;
Case i of
2,3 : j:=1;
4 : j:=2;
6-1,1 : j:=3;
7,5 : j:=4;
5,2 : j:=5;
1,2,5+1 : j:=6;
6,1 : j:=7;
7,7,8 : j:=8;
2,1 : j:=9;
end;
Ответ: (6)

№ 6
Var i,j:integer;
begin j:=0; i:=8;
Case i of
2,3 : j:=1;
4 : j:=2;
6,1 : j:=3;
7,5 : j:=4;
5,2 : j:=5;
1,2,5 : j:=6;
6,1 : j:=7;
7,7 : j:=8;
else j:=9;
end;
Ответ: (9)

№ 7
Var i,j:integer;
begin j:=0; i:=12;
Case i of
2,3 : j:=1;
4 : j:=2;
6,1 : j:=3;
7,5 : j:=4;
1,2,5 : j:=5;
6,1 : j:=6;
7,7,8 : j:=7;
else j:=j+5
end;
Ответ: (5)

№ 8
Var i,j:integer;
begin j:=0; i:=15;
Case i of
2,3 : j:=1;
4,11 : j:=2;
6,1 : j:=3;
8,5 : j:=4;
5,2 : j:=5;
1,2,5 : j:=6;
6,1 : j:=7;
3,7+8 : j:=8;
5,1 : j:=9;
end;
Ответ: (8)

№ 9
Var i,j:integer;
begin j:=0; i:=25;
Case i of
2,3 : j:=1;
4 : j:=2;
6,1 : j:=3;
5,5,5*5 : j:=4;
5,2 : j:=5;
1,2,5 : j:=6;
6,1 : j:=7;
7,7,8 : j:=8;
2,1 : j:=9;
end;
Ответ: (4)

№ 10
Var i,j:integer;
begin j:=0; i:=1;
Case i of
2,3 : j:=1;
4 : j:=2;
6,1 : j:=3;
7,5 : j:=4;
5,2 : j:=7;
1,2,5 : j:=6;
7,7,8 : j:=8;
2,1 : j:=9;
else j:=7;
end;
Ответ: (3)


на главную база по специальностям база по дисциплинам статьи