2015-05-10
1735
Лабораторная работа №10.
Тема: «Разработка алгоритмов и программ обработки строк. Использование множеств для решения задач».
Цель работы: составление программ на языке Pascal для задач по обработке информации, представленной в виде строк и символов;
разработка и составление программ с использованием множеств.
Программные средства: система программирования Borland Pascal.
Вопросы для самоподготовки
1. Понятие строки. Описание строки.
2. Операции со строками.
3. Стандартные процедуры и функции при работе со строками.
ЗАДАНИЕ №1.
Подсчитать количество букв “a” в заданной строковой переменной.
Решение:
Program laba10;
uses crt;
Var
b: string;
i, k: integer;
begin
writeln (‘Введите строку’);
readln (b);
k:=0;
for i:=1 to length (b) do
if b[i]=’a’ then k:=k+1;
writeln (‘k=’,k);
end.
ЗАДАНИЕ №2.
Написать программу, которая проверит, является ли введенное с клавиатуры строка целым числом?
Решение:
Program laba10;
uses crt;
Var
st: string [40];
n: integer;
begin
writeln (‘Введите число и нажмите <Enter>’);
readln (st);
n:=1;
while (n<=Length (st)) and ((st[n]>=’0’) and (st[n]<=’9’)) do
n:=n+1;
write (‘Введенная строка’);
if n<Length (st)
then
writeln (‘не является целым числом’);
else
writeln (‘является целым числом’);
end.
