Приклад 7.6

Приклад 7.5.

Приклад 7.4.

Приклад 7.3

Приклад 7.2

Приклад 7.1

Перевірити чи відповідає кількість відкриваючих круглих дужок кількості закриваючих у записі формули. Схему алгоритму наведено на рис.7.1.

program duzgka;

uses crt;

var s:char;

kn,ks:integer; f:text;

begin clrscr;

assign (f,'duzgkad.pas');

reset(f); read(f,s);

kn:=0; ks:=0;

while s<>'.' do begin

if s='(' then kn:=kn+1;

if s=')' then ks:=ks+1;

read(f,s); end;

if kn=ks then writeln('formula virna')

else writeln('pomylka'); end.

Запис формули:s+(z*g+5)-(a-7).

Задано текст, що закінчується крапкою. Надрукувати цей текст, видаливши з нього всі літери “b” безпосередньо перед якими знаходиться літера “c”. Схему алгоритму наведено на рис.7.2.

program no_print_b;

var a,ch:char;

f,f1:text;

begin

assign (f,'char_11d.pas');

reset(f); read(f,ch);

write(f1,ch);

a:=ch;

while a<>'.' do begin

read(f,ch);

if (a='c') and (ch='b') then a:=ch

else begin a:=ch; write(ch);end;

end; end.

Дані і результати

Файл вихідних даних char_11d.pas.

asbdfgrrbcbsscw.

Результат:

asbdfgrrbcsscw.

Роздрукувати текст по рядках, приймаючи за рядок або наступні 30 літер, якщо серед них немає дефіса, або частину тексту до дефіса включно. Схему алгоритму наведено на рис.7.3.

Рис.7.3

program print_rjadkiv;

var c:char; k:integer;

f,f1:text;

begin

assign (f,'ch18_3d.pas');

reset(f);

assign (f1,'ch18_3r.pas');

rewrite(f1);

writeln(f1,'rjadok rezultativ');

read(f,c); k:=1;

while not(eof(f)) do begin write(f1,c);

if k=30 then begin writeln(f1);k:=0;end;

if c='-' then begin writeln(f1); k:=0;end;

read(f,c); k:=k+1; end;

close(f1); end.

Файл вихідних даних ch18_3d.pas.

aaaaakkkkakakakkkkkkk-ajajjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj-nnnnn-hhhhhhh-

Файл результатів ch183r.pas.

rjadok rezultativ

Aaaaakkkkakakakkkkkkk- Ajajjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj-nnn-hhhhhhh

Задано текст, що закінчується крапкою. Підрахувати скільки слів у заданому тексті починаються і закінчуються на одну і ту ж саму літеру.Схему алгоритму наведено на рис.7.4.

Program slova_na_odnu_literu;

Var a,c,p:char;

k:integer;

f:text;

Begin

assign(f,'text1.pas');

reset(f);

read(f,c); k:=0;

while not(eof(f)) do begin

a:=c;

while (c<>',') or (c<>'.') do begin p:=c; read(f,c); end;

if a=p then k:=k+1; read(f,c); end;

writeln('k=',k); end.

Файл з даними

data,kok,hot,kate,adda,serial.

k=2

Задано текст, слова в якому відокремлені одне від одного комами, а закінчується текст крапкою. Підрахувати скільки слів у заданому тексті закінчуються на літеру w. Схему алгоритму наведено на рис.7.5.

Program ostannja_litera;

Var a,c,p:char; k:integer; f:text;

Begin assign(f,'test_ol.pas'); reset(f);

k:=0; read(f,c); while not(eof(f)) do

begin p:=c; read(f,c);

if (p='w') and ((c=',') or (c='.'))

then k:=k+1; end;

writeln('k=',k); end.

ASD,FRANS,WERT,TAw,NAw,HUB,KOw.

Рис. 7.5. Слово закінчується на літеру w Приклад 7.5.

Задано текст, який складається тільки з цифр та літер. Змінній літерного типу next привласнити цифру, яка знаходиться за цифрою - значенням змінної літерного типу dig, вважаючи при цьому що за “9” слідує “0”.

program char_next;

uses crt;

var dig,next:char;

f1:text;

begin clrscr;

assign(f1,'charv4d.pas');

reset(f1);

while not eof(f1) do begin

read(f1,dig); if dig='9' then begin next:='0'; write(next) end;

if ((dig>='0') and (dig<='8')) then begin next:=chr(ord(dig)+1);

write(next) end;

end;

end.

Файл даних

y1+1u9hj+3567kj+40

Результати

Рис. 7.6. Схема до прикладу 7.6

Дата добавления: 2014-01-07