Министерство образования РФ
УГТУ-УПИ
Филиал в г. Краснотурьинске
кафедра вычислительной техники
По лабораторной работе №8
По теме: «Работа со строками в Turbo Pascal»
преподаватель: Мезецнева О. В.
студент: Боробов И. С.
группа: Р-131 КТ
2003г.
Цель работы: Создать программы, выполняющие обработку строковых функций.
Блок схемы.
Программа №1: составить программу определяющую и выводящую на экран слова перевёртыши и указывающую их число.
Программа №2: определить сколько раз в тексте встречается буква А. Предусмотреть возможность ввода текста с использованием русского и (или) латинского алфавита.
Тексты программ.
Программа №1.
program perevertysh;
uses crt;
var st:string;
l,y,k,i,j,m,t,x:integer;
begin clrscr;
writeln('введите строку');
readln(st);
k:=1; y:=0; l:=1;
st[length(st)+1]:=' ';
for i:=1 to length(st)+1 do
if st[i]=' ' then begin
m:=i-1; t:=i-1;
x:=0;
for j:=1 to ((m-k) div 2) do begin
if st[l]=st[t] then x:=x+1;
l:=l+1; t:=t-1;
end;
if x=((m-k) div 2) then begin
for j:=k to m do
write(st[j]);
writeln;
y:=y+1;
end;
k:=i+1; l:=i+1;
end;
if y=0 then
writeln('слов перевёртышей нет')
else writeln('слов перевёртышей ',y);
readln;
end.
Программа №2.
Program Otbor_a;
uses crt;
var st: string;
a,i,n: byte;
begin clrscr;
writeln ('введите строку');
readln (st);
for i:=1 to length(st) do
if (st[i]='a') or (st[i]='а') then n:=n+1;
writeln ('количество букв а в тексте=',n);
readln;
end.
Ответы:
Программа №1.
Шалаш дом дед брикет
Слов перевертышей = 2
Шалаш
Дед
Программа №2.
Мама купила конфет
Количество букв а в тексте = 3.
Вывод: в данной лабораторной работе мы научились работать со строками в Turbo Pascal.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.