Информатика-1
Кафедра ПрЭ
Муравьев А.И.
Томск-2001
№ 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\*.*
Задан фрагмент программы. Указать номер строки, в которой находится ошибка.
№ 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)
Какое числовое значение выведется на экран оператором 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)
Какое логическое значение (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
Заданы переменные целочисленные: 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)
Строки с неправильно записанным идентификатором.
№ 1
• My Fam
№ 2
• 2Stroka
№ 3
• Name*Sigm
№ 4
• Name_@
№ 5
• Rive_"Moscow
№ 6
• \@Asda
№ 7
• Do
№ 8
• Var
№ 9
• "Alpha
Номер строки, в которой находится ошибка:
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)
№ 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)
Значение переменной 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)
Целочисленная переменная 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)
| на главную | база по специальностям | база по дисциплинам | статьи |
Другие статьи по теме
