"введите текст из 100 литер..."

[Sm1Le]

Сообщение от katya36

спасибо большое...а что такое string и length...1ый курс- такого у нас не было ещё) мне преподавательница сказала вводить так:

const n=100; eot='@';


var A:array [1..n] of char;
i,j,k:integer;
ok:boolean;
ch:char;


begin
writeln ('введите 100 литер');
i:=0;
repeat
repeat
i:=i+1;
read (A[i]) ;
until (i=n) or eoln or (A[i]=eot);
readln
until (i=n) or (A[i]=eot);

а что дальше, как дописать??)

литер ? - Если я правильно помню, Укр. Слово, а писать то русское то Укр. слово не очень красиво ! =))) ТО что ты написала не очень НОРМАЛЬНЫЙ код! Вопрос ! тебе надо ДОПИСАТЬ ЭТО или написать решение задания ?

[красотка Ольга]

огромное спасибо
,ник поменяю)))))))

[katya36]

Sm1Le ну мне нужно решение если не правильно, то не надо дописывать конечно)

[katya36]

но вводить без всяких строк) а то не примут

[katya36]

помогите плиз решить.....



введите текст из 100 литер, удалив повторные вхождения каждой литеры.

[Sm1Le]

А после что с текстом делатЬ ? Вывести ?

[katya36]

да наверное) помоги пожалуйста попроще решить без строк всяких)

[alex_fcsm]

uses crt;

const n=100;
var a:array[1..n] of char;
    i:integer;
    s:string;
begin
clrscr;
for i:=1 to n do
 read(a[i]);
s:='';
writeln('Result:');
for i:=1 to n do
 if pos(a[i],s)=0 then begin
                        s:=s+a[i];
                        write(a[i]);
                       end;
end.

Если string не использовать то проверка будет более громоздкая

uses crt;
const n=100;
var a:array[1..n] of char;
    i,j:integer;
    f:boolean;
begin
clrscr;
for i:=1 to n do
 read(a[i]);
writeln;
write('Result:');
for i:=1 to n do
 begin
  f:=true;
  for j:=1 to i-1 do
   if a[i]=a[j] then f:=false;
  if f then write(a[i]);
 end;
  
end.

[Sm1Le]

var A:array [1..n] of char;
i,j,k:integer;
var B:array [1..n] of char;
k:=1;

For i:=1 to 100 do 
 begin
  Write("Введите символ № ",i);
  Write(" :");
  read(A[i]);
 end;
for i:=1 to 100 do 
 begin
 N:=0;
  for j:=1 to 100 do 
   begin
    if A[i]=B[j] then 
     begin
      N:=1;
      break;
     end;
   end;
 if N=0 then 
  begin
 b[k]:=A[i];
 k:=k+1;
 end;

Типа такого =))

[katya36]

спасибо большое, а break это типа удаление? не проходили ещё.... а можно сделать так, чтобы место каждой заменённой буквы просто заняла следущая подошедшая буква....? преподавательница чтото вроде этого просила сделать