Jump to content
Sign in to follow this  
torskhavn

помогите написать

Recommended Posts

1. Вывести двумерный массив в виде таблицы с учетом нескольких параметров.
2. Напишите функцию, удаляющую дублирующиеся символы в строке и символы которые не дублируются. Любые символы, включая кириллицу. (пример: «AAA- BBB”fghhААА№№-» -> «A B h А № -») т.е. начальная строка может быть любой. На выходе символы у которых есть повторы через пробел. Реализовать в виде формы инпута для ввода текста.

Share this post


Link to post
Share on other sites
1 час назад, torskhavn сказал:

1. Вывести двумерный массив в виде таблицы с учетом нескольких параметров.
2. Напишите функцию, удаляющую дублирующиеся символы в строке и символы которые не дублируются. Любые символы, включая кириллицу. (пример: «AAA- BBB”fghhААА№№-» -> «A B h А № -») т.е. начальная строка может быть любой. На выходе символы у которых есть повторы через пробел. Реализовать в виде формы инпута для ввода текста.

у кого то универская лаба горит?)

Share this post


Link to post
Share on other sites

program checkmate;
const n=8;
var i,j: integer;
a,b: array [1..n] of string;
st: string;
begin
for j:=1 to n do begin
str(j,b[j]);
end;
st:='ABCDEFGH';
for i:=1 to n do
begin
a:=copy(st,i,1);
end;
Write (' ');
for i:=1 to n do begin
Write (a:2, ' ');
end;
WriteLn;
for j:=1 to n do begin
Write(b[j], ' ');
for i:=1 to n do
Write (a,b[j], ' ');
writeLn;
end;

readLn;
End.

 

P.S (я загуглил:))

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...