
- •Варианты заданий к лабораторным работам Лабораторная работа n1
- •1.2. Составить программу пооперационного вычисления значений арифметических выражений, согласно указанным ниже формулам.
- •2.3. Составить программу для выполнения указанного ниже задания, используя оператор множественного ветвления.
- •Лабораторная работа n3 Программы с циклами
- •3.1. Дано действительное число а, натуральное число n. Вычислить:
- •3.3. Выполнить предыдущее задание, заменив произведение суммой.
- •Лабораторное занятие n4 Процедуры и функции
- •4.1. Составить программы, используя указанные в скобках вспомогательные алгоритмы (вспомогательные алгоритмы оформить процедурами).
- •4.2. Составить программы, используя указанные в скобках вспомогательные алгоритмы (вспомогательные алгоритмы оформить функциями).
- •Упорядочить (переставить) строки массива
- •Упорядочить (переставить) столбцы массива
- •Лабораторное занятие n6
- •6.1. Составить программу, выполняющую следующее задание: дана строка символов.
- •Лабораторное занятие n7 Записи
- •Лабораторное занятие n 8 Множества
- •8.1. Сформировать три множества x1, x2, x3, содержащие целые числа из диапазона 1…100. Мощность каждого множества равна 5. Значения элементов исходных множеств ввести с клавиатуры.
- •8.2. Дана непустая последовательность символов. Необходимо построить и напечатать множество, элементами которого являются встречающиеся последовательности:
- •Лабораторная работа №9 Файлы.
- •9.2 Занести в текстовый файл данные, согласно заданию 2 к лабораторной работе 7.(5 записей). Выполнить задание 7.2. С использованием данных из файла. Лабораторная работа №10
- •10.1. Выполнить задание 3 к лабораторной работе 5. Обработку массива оформить в виде модуля.
- •10.3.Выполнить задание, используя процедуры и функции модуля crt
- •10.4. Выполнить задание, используя процедуры и функции модуля graph.
- •Лабораторная работа №11 Динамические массивы.
- •11.1. Вычислить значение выражения, используя ссылочные переменные.
- •11.2. Создать, заполнить, распечатать массив размерностью 10х10 и обработать его в соответствии с приведенным ниже вариантом задания.
- •Лабораторная работа № 12.
- •Лабораторная работа №13 Динамические структуры (списки).
- •Лабораторная работа №14 Динамические структуры (кольца).
- •Лабораторная работа №15
- •Каждый из студентов фмф имеет следующие параметры (характеристики):
- •15.2. Построить дерево, которое может содержать несколько элементов, "подвешенных" к одному ключу ( "подвеску" можно оформить в виде стека).
- •Варианты заданий для практики вычислений
- •Вариант 5
- •Примеры программ Линейные программы
- •Программы с условными операторами
- •Программы с циклами
- •Пример. Найти сумму положительных элементов массива.
- •Множества
- •Динамические структуры
- •Программы с объектами
- •Тема: Графика Теоретические вопросы.
- •Практические задания.
- •Теоретические вопросы.
- •Практические задания.
- •Тема: Динамические структуры данных Теоретические вопросы.
- •Практические задания.
- •Тестовые задания к зачету по информатике Записи
- •Исправить ошибки.
- •Графика и модули
- •Исправить ошибки.
- •Динамические структуры
- •Литература
- •Задания к лабораторным работам по информатике
- •214036, Брянск, Бежицкая, 14.
Практические задания.
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.