Работа со строками в Turbo Pascal

Министерство образования РФ

УГТУ-УПИ

Филиал в г. Краснотурьинске

кафедра вычислительной техники

ОТЧЕТ

По лабораторной работе №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.