Практические задания.

1. Ввести строку символов. Сформировать из ее элементов однонаправленный список. Удалить первые два символа и вывести результат на экран.

2. Ввести строку символов. Сформировать из ее элементов однонаправленный список. Добавить в конец списка слово ”Ура” и вывести результат на экран.

3. Ввести строку символов. Сформировать из ее элементов однонаправленный список. Удалить в списке все символы “К” и вывести результат на экран.

4. Ввести строку символов. Сформировать из ее элементов однонаправленный список. Удалить в списке все символы “Ф” и вывести результат на экран.

5. Заполнить массив произвольного размера. Вывести его на экран, а также сумму наибольшего и наименьшего элементов.

6. Заполнить массив произвольного размера. Вывести его на экран, а также сумму обратных величин.

7. Заполнить массив произвольного размера. Вывести его на экран, а также сумму элементов, имеющих нечетные номера.

8. Организовать стек и вывести его содержимое на экран.

9. Организовать стек, поменять значение трех элементов стека.

10. Организовать поиск некоторой информации по двоичному дереву, используя некоторый ключ.

Тестовые задания к зачету по информатике Записи

Что будет выведено на экран?

program ex1;

type data=record

year:integer;

month:1..12;

day:1..31;

end;

var dat:data;

begin

with dat do begin

year:=1997;

month:=1;

day:=31; end;

writeln(dat.year:5,dat.month:3,dat.day:3);

end.

Что будет выведено на экран?

program ex2;

type koord=record

x,y:integer;

end;

var a,b:koord;

c:integer;

begin

writeln(‘введ.коорд 1точки’);

read(a.x,a.y);

writeln(‘введ.коорд.2 точки’);

read(b.x,b.y);

c:=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));

writeln(c);

end.

Что будет выведено на экран?

program ex3;

type man=record

fam:string;

name:string;

otch:string;

end;

var i:man;

begin

with i do begin

readln(i.fam);

readln(i.name);

readln(i.otch);

writeln(fam,’ ‘,name,’ ‘,otch); end;

end.

Что будет выведено на экран?

program ex4;

type book=record

author:string;

title:string;

end;

var b:book; x:integer;

begin

b.author:=‘Толстой’;

b.title:=‘Анна Каренина’;

x:=length[b.author]-length[b.title];

writeln(x);

end.

Что будет выведено на экран?

Program ex8;

var group:record

fackultet:string;

kurs,numder:integer;

end;

begin

with group do begin

fackultet:=‘фмф’;

kurs:=1; numder:=6;

end end.

Что будет выведено на экран?

Program ex9;

Type women=record

married: boolean;

numchildren: 1..10;

end;

var x:women;

begin

with x do begin

married:=True; numchildren:=0; end;

If x.married then writeln(x.numchildren);

end.

Что будет выведено на экран?

Program ex10;

Type cassete=record

time:(60,90);

what: string; end;

var x:cassete;

begin

x.time:=60;

x.what:=‘scorpions’; x.what:= x.what+’ 9‘;

writeln(x.what) end.

Что будет выведено на экран?

Program ex11;

Type Napitok=record

Name: string;

Cena: real;

sugar:boolean;

end;

var cola:napitok;

begin

cola.name:=‘pepsi’;

cola.cena:=7200;

cola.sugar:=true;

writeln(cola.name,cola.cena,cola.sugar);

end.

Что будет выведено на экран?

Program ex 12;

type teacher=record

fam:string;

sex:(man,woman);

end;

var x,y:teacher;

begin

readln(x.fam);readln(x.sex);

y:=x; writeln(y.sex);

end.

Что будет выведено на экран?

program example;

type data=record

year:integer;

month:1..12;

day:1..31;

end;

var dat:data;

begin

with dat do begin

year:=1997;

month:=1;

day:=1;

writeln(year:5,month+3:3,day+20:3); end;

end.

Что будет выведено на экран?

program example;

type man=record

fam:string;

name:string;

otch:string;

end;

var dat:man;

begin

with dat do begin

readln(fam); readln(name);

readln(otch); end;

writeln(dat.fam,dat,name,dat,otch);

end.

Что будет выведено на экран?

program example;

type data=record

year:integer;

month:1..12;

day:1..31;

end;

var dat,dat1:data;

begin

with dat do begin

year:=1997;

month:=1;

day:=1;

writeln(year:5,month+3:3,day+20:3); end;

dat1:=dat;

writeln(dat1.year);

end.

Что будет выведено на экран?

program example;

type complex=record

rel:integer;

mnim:real;

end;

var dat:complex;

begin

with dat do begin

rel:=43;

mnim:=31;

writeln(real:6,'+',mnim:6,'*i'); end;

end.

Исправить ошибки.

program example1;

type

data=record

year:integer;

month:1..12;

day:1..31;

end;

var dat:data

begin

with dat do

year:=1997;

month:=1;

day:=31;

writeln(dat.year:5,dat.month:3,dat.day:3);

end.

Исправить ошибки.

program example2;

type koord=record

x,y:integer;

end;

var a,bс:koord;

begin

writeln(‘введ.коорд 1точки’);

read(x,y);

writeln(‘введ.коорд.2 точки’);

read(b.x,b.y);

c:=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));

writeln(c);

end.

Исправить ошибки.

program example3;

type man=record

fam:string;

name:string;

otch:string;

end;

var i:man;

begin

with i do begin

readln(i.fam);

readln(i.name);

readln(i.otch); end;

writeln(fam,’ ‘,name,’ ‘,otch);

end.

Исправить ошибки.

program example4;

type book=record

author:string;

title:string;

end;

var b:book;x:integer;

begin

b.author:=‘Толстой’;

b.title:=‘Анна Каренина’;

x:=length[b.author]-length[b.title];

writeln(x);

Исправить ошибки.

Program example5;

type data=record;

year:integer;

month:1..12;

day:1..31;

end;

const birthday:Data=(Year:1979;month:4;Dat.day:30);

var Dat :Data;

begin

Dat:=Birthday;

writeln(Dat.year:5,Dat.month:3,Dat.day:3);

end.

Исправить ошибки.

Program example6;

type person=record;

Name:string;

sex:(man,women);

Age:integer;

end;

var x:person;

begin

person.sex:=boy;

person.age:=10;

writeln(person.sex,per,person.age);

end.

Исправить ошибки.

Type Triangle=record;

side1,side2,angle:real;

Circle=record;

x,y,radius:real;

end;

var x:triangle; y:circle;

begin

readln(circle.x);

readln(circle.radius);

x:=circle

end.

Исправить ошибки.

Program example8;

var group=record

facultet:string;

kurs,numder:integer;

end;

begin

with group do

facultet:=‘фмф’;

kurs:=1;

numder:=6.1;

end.

Исправить ошибки.

Program example9;

Type women=record;

married: boolean;

numchildren: 1..10;

end;

var x:women;

begin

with x do married:=True;

numchildren:=0;

If x.married then writeln numchildren;

end.

Исправить ошибки.

Program example10;

Type cassete=record

time:(60,90);

what: string;

end;

var x=cassete;

begin

x.time:=45;

x.what:=‘scorpions’;

x.what:= x.what+’ ‘;

writeln(x.what)

end.

Исправить ошибки.

Program example11;

Type Napitok=record

Name: string;

Cena: real;

sugar:boolean;

end;

var cola:napitok;

begin

cola.name:=‘pepsi’;

cola.cena:=7200;

cola.sugar:=true;

writeln(cola.name,cola.cena,cola.sugar);

end.

Исправить ошибки.

Program example 12;

type teacher=record

fam:string;

sex:(man,woman);

end;

var x,y:teacher;

begin

readln(x.fam);readln(x.sex);

y:=x;

writeln(y);

end.

Исправить ошибки.

program example;

type data=record

year:integer;

month:1..12;

day:1..31;

end;

var dat:data;

begin

with dat do begin

year:=1997;

month:=1;

day:=‘вторник’;

writeln(year:5,month+3:3,day+20:3); end;

end.

Исправить ошибки.

program example;

type man=record

fam:string;

name:string;

otch:string;

end;

var dat:man;

begin

with dat do begin

readln(fam);

readln(name);

readln(otch);

writeln(fam,^j,name,^j,otch); end;

end.

Исправить ошибки.

program example;

type data=record

year:integer;

month:1..12;

day:1..31;

end;

const birthday:data=(year:1979;month:04;day:30);

var dat:data;

begin

dat:=birthday;

writeln(dat.year:5,dat.month:3,dat.day:3);

end.

Исправить ошибки.

program example;

type data=record

year:integer;

month:1..12;

day:1..31;

end;

var dat,dat1:data;

begin

with dat do begin

year:=1997;

month:=1;

day:=1;

writeln(year:5,month+3:3,day+20:3); end;

dat1:=dat; writeln(dat1.year);

end.

Исправить ошибки.

program example;

type complex=record

real:integer;

mnim:real;

day:real;

end;

var dat:complex;

begin

with dat do begin

real:=43;

mnim:=31;

writeln(real:6,'+',mnim:6,'*i');end;

end.

Файлы

Что будет выведено на экран?

var F: Text; Ch: Char; begin

Assign(F, 'abc.dat'); Reset(F); while not Eof(F) do begin

Read(F, Ch); Write(Ch);

end;

end.

Что будет выведено на экран?

var f: file of Byte; size : Longint;

begin

Assign(f, 'abc.dat'); Reset(f); size := FileSize(f);

Writeln('Seeking halfway into file...'); Seek(f,size div 2);

Writeln('Position is now ',FilePos(f)); Close(f);

end.

Что будет выведено на экран?

var f: file of Byte;

size : Longint;

begin

Assign(f, 'abc.dat'); Reset(f); size := FileSize(f); Writeln('File size in bytes: ',size); Close(f);

end.

Что будет выведено на экран?

var f : Text; i, j : Integer;

begin

Assign(f,'TEST.TXT');

Rewrite(f);

Writeln(f,'1 2 3 4 ');

Writeln(f,'5 6 7 8 ');

Reset(f);

while not SeekEof(f) do

begin

if SeekEoln(f) then Readln;

Read(f,j);

Writeln(j); end;

end.

Что будет выведено на экран?

var F: Text;c:char;

begin

Assign(F, 'TEST.TXT'); Rewrite(F);

Writeln(F, 'original text'); Close(F); Append(F); Writeln(F, 'appended text'); reset(f);

while not eof(f) do begin read(f,c); write(c); end;

Close(F); end.

Что будет выведено на экран?

var F: file;

begin

Assign(F, '\AUTOEXEC.BAT'); open file Reset(F, 1);

Writeln('File size = ', FileSize(F));

Close(F); Close file end.

Что будет выведено на экран? var F: Text;c:char; begin

Assign(F, 'NEWFILE.$$$'); Rewrite(F);

Writeln(F, 'Just created file with this text in it...'); reset(f);

while not eof(f) do

begin

read(f,c); write(c);

end;

Close(F); end.

Что будет выведено на экран? var f: file of Byte;

size : Longint;

begin

Assign(f, 'abc.dat'); Reset(f);

size := FileSize(f);

Writeln('Seeking quaterway into file...');

Seek(f,size div 4);

Writeln('Position is now ',FilePos(f));

Close(f); end.

Что будет выведено на экран?

var f: file of integer; c,i:integer;

begin

Assign(f, 'abc.dat'); Rewrite(f);

for i:=10 to 1 do write(f,i);

Close(f); reset(f); for i:=1 to 10 do begin

read(f,c); writeln(c); end;

close(f);

end.

Что будет выведено на экран?

var f: file of char; c,i:char;

begin

Assign(f, 'abc.dat'); Rewrite(f);

for i:='l' to 'a' do write(f,i);

Close(f); reset(f);

for i:='a' to 'l' do begin

read(f,c); writeln(c); end;

close(f);

end.

Что будет выведено на экран? var f: file of char; c:char;i:char

begin

Assign(f, 'abc.dat'); Rewrite(f);

for i:=97 to 105 do write(f,chr(i));

Close(f); reset(f);

for i:=97 to 105 do

begin

read(f,c); writeln(c);

end;

close(f);

end.

Что будет выведено на экран? var F: Text;c:char; begin

Assign(F, 'TEST.TXT'); Rewrite(F);

Writeln(F, 'original text'); Close(F); Append(F); Writeln(F, 'appended text'); reset(f);

while not eof(f) do begin read(f,c); write(c); end;

Close(F); end.

Что будет выведено на экран?

var f: file of char; c,i:char;

begin

Assign(f, 'abc.dat');

Rewrite(f);

for i:='l' to 'a' do write(f,i);

Close(f); reset(f);

for i:='a' to 'l' do begin

read(f,c); writeln(c); end;

close(f);

end.

Что будет выведено на экран?

var f : Text; i, j : Integer;

begin

Assign(f,'TEST.TXT'); Rewrite(f);

Writeln(f,'1 2 3 4 '); Writeln(f,'5 6 7 8 ');

Reset(f);

while not SeekEof(f) do

begin

if SeekEoln(f) then Readln;

Read(f,j);

Writeln(j); end;

end.