Друкування першого множника на малюнку

Приклад 18.6

Приклад 18.5

Приклад 18.4

Задано послідовність від 2 до 50 слів, в кожному з яких від 1 до 8 малих латинських літер. Між сусідніми словами не менше 1 пробілу, за останнім - крапка. Надрукувати ті слова послідовності, в яких літери не повторюються;

Розділ об'яв

program test_10_19;

uses crt;

var old,s:array[1..10] of string;

r2:array[1..10,'a'..'z'] of integer;

b:char;

st:string;

i,m,n,k,ks,sum:integer; f1,f2:text;

begin clrscr;

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

Створення масиву слів

assign(f2,'res_1L1.pas'); rewrite(f2);

readln(f1,st); write(f2,'б)'); i:=1;

while length(st)<>0 do

begin m:=pos(' ',st);

if m=0 then m:=pos('.',st);

old[i]:=copy(st,1,m-1);{ копіювання слова із st}

s[i]:=old[i]; {запам’ятовування слова для можливості вивести у файл результатів}

ks:= i; {запам’ятовується кількість слів}

Визначається кількість літер у слові

for b:='a' to 'z' do begin

for k:=1 to m do begin

n:=pos(b,old[i]); {відшукується позиція літери у слові}

if n<>0 then begin r2[i,b]:=r2[i,b]+1; {запам’ятовується кількість літер у слові }

delete(old[i],n,1); {видаляються літери із слова}

end;end;end;

delete(st,1,m); {видаляються слова із st}

i:=i+1; end;

Визначається кількість слів

{визначається кількість слів, в яких літери не повторюються}

for k:=1 to ks do begin

sum:=0;

for b:='a' to 'z' do

if r2[k,b]=1 then sum:=sum+1;

if sum=length(s[k]) then writeln(f2,s[k]); end;

close(f1); close(f2); end.

Задано послідовність від 2 до 50 слів, в кожному з яких від 1 до 8 малих латинських літер. Між сусідніми словами не менше 1 пробілу, за останнім - крапка. Надрукувати ті слова послідовності, в яких кожна літера входить до слова не менше 2 разів.

program test10;

Розділ об'яв

program test_10_19_2;

var old,s:array[1..11] of string;

r1:array['a'..'z'] of integer;

abc:array[1..26] of char; b:char;

st,smax:string; ch:char;

m,n,k,ks,sum:integer; i,j,l:byte; f1,f2:text;

begin

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

assign(f2,'result.pas'); rewrite(f2);

Створення масиву слів

readln(f1,st); write(f2,'в)');

i:=1;

while length(st)<>0 do

begin m:=pos(' ',st);

if m=0 then m:=pos('.',st);

old[i]:=copy(st,1,m-1); s[i]:=old[i];

Визначення слів з двома однаковими літерами

for b:='a' to 'z' do begin

for k:=1 to m do

begin n:=pos(b,old[i]);

if n<>0 then begin r1[b]:=r1[b]+1;

delete(old[i],n,1); end; end;

if r1[b]=2 then writeln(f2,b,' - ',s[i]);

r1[b]:=0; end;

delete(st,1,m); i:=i+1; end;

close(f1); close(f2); end.

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

Розділ об'яв

program dobutok;

uses crt;

var k,c,n:word;

i,j,f:longint;s,s1:string[5];

Введення множників та перетворення їх у рядки

begin clrscr;

write('i='); readln(i); {введення першого множника}

write('j='); readln(j); {введення другого множника}

f:=j; {запам’ятовування другого множника}

str(j,s1);str(i,s); {перетворення множників у рядки}

k:=ord(s1[0]); if k<5 then n:=5-k;

writeln(s:10); { друкування першого множника на малюнку }

writeln(' *'););{друкування знаку множення}

writeln(s1:10);{ друкування другого множника на малюнку }

writeln(' _____');{друкування лінії}

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