Программирование задач с символьными массивами и строками

Министерство образования РФ
Русский университет инноваций
Кафедра «Информационные системы в экономике»

ОТЧЕТ

по лабораторной работе №7

Программирование задач с символьными массивами истроками

Выполнил: студент гр. ИД-21

Проверил: .

Киров 2008. | |
Цель работы: изучение основных принципов работы с символьными массивами и строками.

Задание:составить программу для обработки произвольной символьной информации (предусмотреть ввод произвольного текста, его обработку и вывод результата)

4. В тексте заменить букву А на букву О, абукву О на букву А.

Текст программы:
Program string1;
uses crt;
var sm:array [1..100] of char;
str:string;
kol,i,o,a,p:integer;
c:char;
begin
clrscr;
repeat;
writeln ('Viberitesposob vvoda: 1-simvolnii, 2-strokovii: ');
readln (c);
case c of

'1':begin
writeln ('vvedite tekst: ');
for i:=1 to 100 do
begin
read (sm[i]);
ifsm[i]=#10 then break;
end;
writeln;
writeln ('ishodnaya stroka: ', sm);
{obrabotka stroki}
for i:=1 to Length (sm) do {zamena a na vrem simvol}
if sm[i]='a'then sm[i]:='*';

for i:=1 to Length (sm) do {zamena o na a}
if sm[i]='o'
then sm[i]:='a';

for i:=1 to Length (sm) do {zamena vrem simvola na o}
if sm[i]='*'then sm[i]:='o';
writeln ('konechnaya stroka: ', sm);
readln;
end;

'2':begin
writeln ('vvedite stroky');
readln (str);
writeln;
writeln ('ishodnaya stroka:', str);
{obrabotka stroki}
for i:=1 to Length (str) do {zamena a na vrem simvol}
if str[i]='a' then
begin
p:=pos('a',str);
delete(str,p,1);insert('*',str,p);
end;

for i:=1 to Length (str) do {zamena o na a}
if str[i]='o' then
begin
p:=pos('o',str);...