В паскале, задание 3 на каждом листе, отчет, блок-схемы

  • ID: 07031 
  • 6 страниц
200 рубСкачать

гарантия низкой цены

110 1 2.pas

110 1.pas

110 2.pas

110 3.pas

4 1.pas

4 2.pas

4 3.pas

Отчет.docx

Содержание:


Работа 4. Вариант 10.

Задача 3

Постановка задачи

Даны три слова. Напечатать только те буквы слов, которые есть только в одном из слов. Повторяющиеся буквы каждого слова не рассматриваются.

Исходный текст

program task4_3;

uses crt;

const n=3;

var

s1,s2,s3:string;

old:string;

i,j,k,l,f:integer;

procedure find(s1,s2,s3:string;var old:string);

var

i,j,f:integer;

begin

for i:=1 to length(s1) do begin

f:=0;

for j:=1 to length(s2) do

if s1[i]=s2[j] then f:=1;

if (f=0) then begin

for j:=1 to length(s3) do

if s1[i]=s3[j] then f:=1;

end;

if (f=0) then begin

for j:=1 to length(old) do

if s1[i]=old[j] then f:=1;

end;

if (f=0) then begin

writeln(s1[i]);

old:=old+s1[i];

end;

end;

end;

begin

clrscr;

write('Enter string1: '); readln(s1);

write('Enter string2: '); readln(s2);

write('Enter string3: '); readln(s3);

old:='';

find(s1,s2,s3,old);

find(s2,s1,s3,old);

find(s3,s1,s2,old);

readln;

end.