задачки

[Shuma]

1 задача
Вводится 2 массива ,получить отсортированный по возрастанию 3 массив который состоит из непереповторяющихся элементов первых четырех массивов.
2 задача
дана не пустая писледовательность символов .Нужно ввести и вывести на экран все знаки пропинания и буквы от E до Ъ
3 задача
распечатать список сотрудников упорядоченный по адресам ,т.е. дом, улица, фонарь, аптека, я покупаю вазелин...

[Horknee]

вот первая задача:
извини, если что не так. Я сам новичок в паскале, но вот стараюсь....

program zadacha1;
var a,b,c:array[1..65634] of integer;
    i,j,l:integer;
    x:integer;
    n,m,k:integer;
begin
 write('vvedite n='); readln(n);
 for i:=1 to n do
  begin
   write('a[',i,']=');
   readln(a[i]);
  end;
 write('vvedite m='); readln(m);
 for j:=1 to m do
  begin
   write('b[',j,']=');
   readln(b[j]);
  end;
k:=1;
for i:=1 to n do
  begin
  c[k]:=a[i];
  inc(k);
  end;
k:=n+1;
for j:=1 to m do
  begin
  c[k]:=b[j];
  inc(k);
  end;
 {sortirovka}
      for k:=2 to (m+n) do
        begin
         x:=c[k];
         l:=k;
        while (x<c[l-1]) and (l>1) do
         begin
          c[l]:=c[l-1];
          l:=l-1;
         end;
         c[l]:=x;
        end;
for l:=1 to (n+m) do
write(c[l]);
readln;
end.

[lexus_ilia]

а интересное условие в 3-ей задаче...А данные брать откуда с текстового файла?с типизированного файла?С клавиатуры?Из воздуха?

[lexus_ilia]

лови 2-ую:

Program xa;
var
 s:string;
 b,i:byte;
begin
 Writeln('BBedute ctpoky');
 readln(s);
 b:=length(s);
  for i:=1 to b do
  if (s[i] in ['E'..'N']) or (s[i] in ['!' , ',' , '.' , '?' , ':' , '-']) then {Условия проверяемы}
   Write(s[i]);
 readln
end.

Заметь я сделал по твоему заданию, т.е. именно большие E..N, маленькие не будут выписаны и ещё знаки препинания, можешь сам их добавить...

[Shuma]

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

Заметь я сделал по твоему заданию, т.е. именно большие E..N,

Нужно от Е до Ъ. Ты чем читаешь?

[Shuma]

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

вот первая задача:
извини, если что не так. Я сам новичок в паскале, но вот стараюсь....

Мне препод сказал: "С такими программами только в сортир ходить."

[alex_fcsm]

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

Мне препод сказал: "С такими программами только в сортир ходить."

Здесь Вам люди помогают поэтому, если не нравится пробуйте сами - не получается выкладывайте свои попытки

[Horknee]

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

Мне препод сказал: "С такими программами только в сортир ходить."

Слышь, не нравится-иди отсюда! Делай сам! Знаешь, как лучше-валяй, умник...

[lexus_ilia]

Нужно от Е до Ъ. Ты чем читаешь?

Потише выражайтесь молодой человек, не нравится?Советую вам подумать над своими действиями, т.к. "а нафига оно мне надо?".Вы не задумывались, что нам ваши проблемы до одного места?Мы вам предлагаем помошь, не нравится "Удачи!"...

[lexus_ilia]

кстатит в той задаче что я тебе решил, условие было такое каким я его решил...