Приклад 8.4

Приклад 8.3.

Приклад 8.2.

Приклад 8.1.

Приклад 7.7.

Задано текст, який складається з даних літерного типу. Надрукувати заданий текст, видаливши з нього всі знаки +, за якими у тексті знаходиться цифра.

program charv6p;

uses crt;

var s,ch:char;

f1:text;

begin clrscr;

assign(f1,'charv6d.pas'); reset(f1);

read(f1,s); ch:=s;

while not eof(f1) do begin

read(f1,s); if ((s>='0') and (s<='9')) and (ch='+') then

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

end;

end.

Файл даних

y1+1uhj+3567kj+40

Результати

y11uhj3567kj40

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

Вар.3.

Дано послідовність слів, складених з латинських літер, між словами стоять символи “;”, а за останнім словом - крапка. Визначити кількість слів, які мають подвоєння літер

program podvoennja_v_slovi;

uses crt;

var a,ch:char;k,s:integer;

f,f1:text;

begin clrscr;

assign(f,'data03.pas');reset(f);

assign(f1,'data03r.pas');rewrite(f1);

read(f,ch);

write(f1,ch);

a:=ch;

While not(eof(f)) do begin

s:=0;

while a<>';' do begin

read(f,ch); write(f1,ch);

if (a='c') then begin s:=s+1; a:=ch;

end; a:=ch; end;

write(f1,'s=',s); writeln(f1);

read(f,ch);a:=ch;Write(f1,ch);

if s=2 then k:=k+1;end;

writeln(f1,'k=',k); close(f1);

end.

Результат:

dare;daccar;accomodation;dater;acca;success;kat;

dare;b=FALSE

daccar;b=TRUE

accomodation;b=TRUE

dater;b=FALSE

acca;b=TRUE

success;b=TRUE

kat;b=FALSE

k=4

Лекція 8
Приклади циклічних процесів

Задано текст, що закінчується крапкою.

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

Схему алгоритму наведено на рис.8.1.

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.

Схему алгоритму наведено на рис.8.2.

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.

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

Схему алгоритму наведено на рис.8.3.

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

program char_next;

var dig, next:char;

f1:text;

begin 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

Результати

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

Program charv6p;

var s,ch:char; f1:text;

begin assign(f1,'charv6d.pas'); reset(f1);

read(f1,s); ch:=s;

while not eof(f1) do begin

read(f1,s); if ((s>='0') and (s<='9')) and (ch='+') then ch:=s else

begin write(ch);ch:=s; end

end; end.

Дані і результати
Файл даних

y1+1uhj+3567kj+40

Результати

y11uhj3567kj40

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