Лабораторная работа № 7. Строки

Задание 1. Заполните пустые места в программе, подсчитывающей количество букв «а» в строке.

Program Example12;

Var S: string;

i, k: integer;

Begin

Writeln ('Введитестроку');

Readln (S);

For i:= 1 to length(S) do

if then

Writeln('Символ «а» встречается ', k, ' раз');

End.

Задание 2. Укажите правильный порядок команд в программе, удаляющей из строки все буквы «о».

□ End.

□ Var S, T: string;

i: integer;

□ Begin

□ Program Example13;

□ if S[i] <>'о' then T:=T+S[i];

□ Writeln (T);

□ T:='';

□ For i:= 1 to length(S) do

□ Writeln ('Введите строку'); Readln (S);

Задание 3. Составьте программу, в которой все буквы «а» заменяются на буквы «о».

Задание 4. Определите, что выполняется в программе.

Program Example14;

Const X = ['0' .. '9'];

Var S, T: string;

i: integer;

Begin

Writeln ('Введитестроку');

Readln (S);

T:= ' ';

For i:= 1 to length(S) do

if not(S[i] in X) then T:= T+S[i];

Writeln(T);

Readln;

End.

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

Задание 6. Составьте программу, в которой из строки удаляются последние три символа.

Лабораторная работа № 8. Файлы

Задание 1. Определите, что выполняется в программе. В фигурных скобках укажите назначение команд.

Program Example15;

Uses crt;

Var f: text;

st: string;

Begin

Assign(f, 'C:\Example.txt'); { }

Rewrite(f); { }

Writeln('Введите текст ');

Read(st);

Write(f, st); { }

Close(f); { }

End.

Задание 2. Определите, что выполняется в программе и для чего предназначена команда Append?

Program Example16;

Uses crt;

Var f: text;

i, n, x: integer;

Begin

Assign(f, 'C:\Example.txt');

Append(f); { }

Writeln('Введите количество чисел');

Readln(n);

Writeln('Введите числа');

for i:= 1 to n do Begin

Readln(x);

Write(f, x:4);

End;

Close(f);

End.

Задание 3. Определите, что выполняется в программе. В фигурных скобках запишите назначение команд.

Program Example17;

Uses crt;

Var f: text;

st: string;

Begin

Clrscr;

Assign(f, 'C:\Example.txt');

Reset(f); { }

While not EOF(f) do { }

Begin

Readln(f, st); { }

Writeln(st); { }

End;

Close(f);

Readln

End.

Задание 4. Разработайте программу, которая создает файл date.txt и записывает в него n случайных чисел в диапазоне от 5 до 30.

Задание 5. Разработайте программу, которая считывает информацию из файла date.txt, находит максимальное число и общую сумму. Результат запишите в файл result.txt.

Лабораторная работа № 9. Записи

Задание 1. Наберите текст программы и познакомьтесь с типом данных Record. Определите, что выполняется в программе.

Program Example18;

Type STR= Record

Fam: string;

B1, B2, B3, B4, B5: 2..5;

SB: real;

End;

Var Tbl: array[1..50] of str;

i,n: integer;

Begin

Write('n=');

Readln(n);

For i:=1 to n do

Begin

Write('FIO:'); Readln (Tbl[i].FAM);

Write('Ozenki: ');Readln(Tbl[i].B1, Tbl[i].B2,Tbl[i].B3, Tbl[i].B4, Tbl[i].B5);

End;

Writeln('Sredniy ball');

For i:=1 to n do

Begin

Tbl[i].SB:=(Tbl[i].B1+Tbl[i].B2+Tbl[i].B3+ Tbl[i].B4+Tbl[i].B5)/5;

Writeln(Tbl[i].FAM,' – ', Tbl[i].SB:5:2);

End;

End.

В программе содержится много повторяющихся данных. Для её упрощения воспользуйтесь оператором присоединения With.

For i:= 1 to n do Begin

With Tbl[i] do Begin

Write('FIO:'); Readln (FAM);

Write('Ozenki: ');

Readln(B1, B2, B3, B4, B5);

End;

End;

Writeln('Sredniy ball');

For i:= 1 to n do Begin

With Tbl[i] do Begin

SB:= (B1+B2+B3+B4+B5)/5;

Writeln(FAM,' – ',SB:5:2);

End;

End;

Задание 2. Доработайте программу, чтобы данные о студентах и их средние баллы записывались в файл.