VPF::разработка программы с использованием процедуры

iriska

Дата 22.10.2006, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 22.10.2006

Репутация: нет
Всего: нет

Код


program Project4;

{$APPTYPE CONSOLE}

uses
  SysUtils;
procedure SR(var m,m1: array of integer; n1,n2: integer);
var
i,j,g:integer;
begin
g:=1;
for i:=1 to n1 do begin
for j:=1 to n2 do begin
if m[i]=m1[j] then g:=0
end;
if g=1 then writeln(m[i]);
end;
end;
type dmas=array of integer;
var m,m1: dmas; n,k,i,v: integer;
begin
i:=0;
v:=0;
while v<>1 do begin
i:=i+1;
readln(m[i]);
writeln('Ïðîäîëæàòü ââîä (0 - äà, 1 - íåò)');
readln(v);
end;
begin
k:=0;
n:=0;
while n<>1 do begin
k:=k+1;
readln(m1[k]);
writeln('Ïðîäîëæàòü ââîä (0 - äà, 1 - íåò)');
readln(n);
end;
end;
begin
SR(m,m1,i,k);
SR(m1,m,k,i);
end;
end.

ну я не знаю, где ошиблась, помогите, пожалуйста smile

skyboy

Дата 22.10.2006, 21:49 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

1. подсветка синтаксиса будет, если воспользуешься кнопкой "Код" с выборязыка подсветки Delphi. Кнопка находится справа над полем редактирования сообщения.
2. скажи, что не так работает. тогда тебе смогут помочь те, у кого под рукой нет компилятора Delphi/Pascal

Palladin

Дата 22.10.2006, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17

тут всё довольно просто, компилятора нет, но вроде как зделал правильно smile

Пользователь вводит два массива. с помощью процедуры нужно найти все элементы не входящие одновременно в эти последовательности. Например, даны две последовательности 1 3 5 6 и 4 5 3 56 ответ1 6 4 56

Вообщем ты делаеш задание не правильно(вернее не совсем , т.к. процедурой тебе надо тоьлко лиш найти все элементы входящие одновременно и туда и туда, вот тебе решение типа как у тебя)

Код


program Project4;

{$APPTYPE CONSOLE}

uses
  SysUtils;
procedure SR();
var
i,j,k,n1,n2,n3,t:integer;
a,b,c:array[1..100]of integer;
begin
Writeln('Vvedite kol-vo elementov 1-go massiva: ');
Readln(n1);
Writeln('Vvedite kol-vo elementov 2-go massiva: ');
Readln(n2);

Writeln('vvedite perviy massiv:');
for i:=1 to n1 do 
begin
Write('a[',i,']= ');
Readln(a[i]);
end;

Writeln('Vvedite vtoroy massiv: ');
for j:=1 to n2 do
begin
Write('b[',j,']= ');
readln(b[j]);
end;
t:=0;
k:=1;
for i:=1 to n1 do
for j:=1 to n2 do
begin
if a[i]<>b[j] then t:=t+1; end;
if t=n2 then 
begin
c[k]:=b[j]; inc(k); t:=0;
end;
t:=0;

n3:=k;
Writeln('---------------Ответ----------------');
Writeln;
if n3>0 then begin writeln('ТАКИЕ ЭЛЕМЕНТЫ ЕСТЬ: ')
Writeln;
for k:=1 to n3 do
Write(c[k],'   ');
end
else
Writeln('Таких элементов нет:(');
readln;
end;

Отпиши правильно или нет smile

Я вроде с циклом морознул но проверить это не могу, компилятора нет smile

P.S. Тебе повезло мне просто нечего делать сейчас smile

Добавлено @ 23:24
Я в процедуре всю программу сделал smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

XupyprMV

Дата 23.10.2006, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 16.10.2006
Где: Сыктывкар, Россия

Репутация: нет
Всего: нет

RooR, не-а... всё таки ты наделал ошибок (с операторными скобками)

Не знаю, по мне проще занести всё в один массив....

Кстати SysUtils можно не подключать... вы ж его не используете smile

Вот что получилось у меня:

Код


program Project4;

{$APPTYPE CONSOLE}

const N=100; // maximalnoe chislo elementov
var i,j,n1,n2,x:integer;
    a:array[1..N]of integer;
    q:boolean;
begin
 writeln('Vvedite kol-vo elementov 1-go massiva: ');
 readln(n1);
 writeln('Vvedite perviy massiv:');
 for i:=1 to n1 do
  begin
   write('a[',i,']= ');
   readln(a[i]);
  end;
 writeln('Vvedite kol-vo elementov 2-go massiva: ');
 readln(n2);
 writeln('Vvedite vtoroy massiv: ');
 for j:=1 to n2 do
  begin
   write('b[',j,']= ');
   readln(x);
   i:=1;
   q:=true;
   while i<=n1 do
    if a[i]=x then
     begin
      a[i]:=a[n1];
      dec(n1);
      q:=false;
     end else inc(i);
   if q then
    begin
     inc(n1);
     a[n1]:=x;
    end;
  end;
 Writeln('---------------Otvet----------------');
 Writeln;
 if n1=0 then writeln('Elementov net')
         else
          for i:=1 to n1 do
           Write(a[i],'   ');
 readln;
end.

Palladin

Дата 23.10.2006, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17

Цитата(XupyprMV @ 23.10.2006, 11:12

)

RooR, не-а... всё таки ты наделал ошибок (с операторными скобками)

я же писал что пишу это на форуме, не проверял ни разу smile

2XupyprMV, Алгоритм мой заюзал гад smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »