VPF::[Pascal]Множества+таблицы - Форум программистов

brunetka

Дата 13.9.2007, 20:14 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет... smile

...у меня к вам ооочень большая просьба...помогите мне вот с этой задачкой...
Даны две таблицы по 10 элементов в каждой. Найдите наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу (считая, что хотя бы одно такое число есть)...

заранее благодарна smile

Weightlessness

Дата 14.9.2007, 10:32 (ссылка)

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

Загрузка ...

Новичок

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

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

четверной цикл

Это сообщение отредактировал(а) Weightlessness - 14.9.2007, 10:33

Weightlessness

Дата 15.9.2007, 05:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Знаю как решить задачу на C++, либо могу выложить блок-схему в doc формате.

brunetka

Дата 16.9.2007, 09:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Weightlessness, если мона покажи код на С++...

Weightlessness

Дата 16.9.2007, 10:27 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


#include <stdio.h>
#include <conio.h>

void main()
{
 float a[10][10]={             //элементы первого двумерного массива (таблицы)
                 {},
                 {},
                 ...   
                 {},
                 };
 float b[10][10]={             //элементы второго двумерного массива (таблицы) 
                 {},
                 {},
                 ...
                 };
 float min=999;                 //здесь должно быть число, превосходящее все остальные
 int i, j, k, m;
 int h=0;
 clrscr();

 for(i=0;i<10;i++)
 {
  for(j=0;j<10;j++)
  {
    for(k=0; k<10; k++)
    {
     for(m=0; m<10; m++)
     {
      if(a[k][m]!=b[i][j])
      {
      h++;
      if(a[i][j]<min)
      {
      if(h==100)   min=a[i][j];
      }
     }
    }
   }
   h=0;
  }
 }

 printf("Результат:\t");
 printf("%5.3f", min);

 getch();
}

Это сообщение отредактировал(а) Weightlessness - 16.9.2007, 10:49

brunetka

Дата 18.9.2007, 21:28 (ссылка)

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

Загрузка ...

Новичок

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

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

Я вот тут попыталась написать...немного получилось...вот только програмка работает один раз правильно, один раз неправильно....иногда правильный результат, а иногда нет(((
что я не так написала?

Код


Program lab;
uses crt;
Type
mas = array [0..10,0..10] of integer;
Var
A, B : mas;
nugn : array [0..10] of integer;
i, j, k, z, min, c : integer;
M1 : set of 0..100;
M2 : set of 0..100;
M3 : set of 0..100;
Begin
clrscr;
randomize;
writeln('Pervii massiv');
for i:=1 to 2 do
   begin
   for j:=1 to 5 do
      begin
      A[i,j]:=random(5);
      write(A[i,j]:3);
      end;
   writeln;
   end;
writeln;
writeln('Vtoroi massiv');
for i:=0 to 1 do
   begin
   for j:=0 to 4 do
      begin
      B[i,j]:=random(10);
      write(B[i,j]:3);
      end;
   writeln;
   end;
writeln;
M1:=[];
M2:=[];
M3:=[];
for i:=0 to 1 do
   for j:=0 to 4 do
      begin
      M1:=M1+[A[i,j]];
      M2:=M2+[B[i,j]];
      end;
M3:=M1-M2;
k:=0;
k:=0;
if k in M3 then
writeln(k);
k:=1;
if k in M3 then
writeln(k);
k:=2;
if k in M3 then
writeln(k);
k:=3;
if k in M3 then
writeln(k);
k:=4;
if k in M3 then
writeln(k);
k:=5;
if k in M3 then
writeln(k);
readln;
End.

volvo877

Дата 19.9.2007, 09:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(brunetka @ 18.9.2007, 20:28

)

что я не так написала?

ты путаешься с индексами: если решила, что массив A будет индексироваться от 0, то надо и присваивать ему значения начиная от нулевых индексов, а ты что делаешь?

Цитата

Код


for i:=1 to 2 do
   begin
   for j:=1 to 5 do
      begin
      A[i,j]:=random(5);
      write(A[i,j]:3);
      end;
   writeln;
   end;

Вот так должно работать:

Код


program lab;
uses crt;
Type
mas = array [0..10,0..10] of integer;
Var
  A, B : mas;
  nugn : array [0..10] of integer;
  i, j, k, z, min, c : integer;
  M1 : set of 0..100;
  M2 : set of 0..100;
  M3 : set of 0..100;
Begin
  clrscr;
  randomize;
  writeln('Pervii massiv');
  M1 := [];
  for i:=0 to 1 do begin
    for j:=0 to 4 do begin
      A[i,j]:=random(5);
      write(A[i,j]:3);
      M1 := M1 + [A[i, j]];
    end;
    writeln;
  end;

  writeln;
  writeln('Vtoroi massiv');
  M2:=[];
  for i:=0 to 1 do begin
    for j:=0 to 4 do begin
      B[i,j]:=random(10);
      write(B[i,j]:3);
      M2 := M2 + [B[i, j]];
    end;
    writeln;
  end;
  writeln;

  M3:=M1 - M2;
  for k := 0 to 255 do { все возможные значения, начиная с минимального }
    if k in m3 then begin
      writeln('min = ', k); break;
    end;
  readln;
End.

brunetka

Дата 19.9.2007, 14:31 (ссылка)

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

Загрузка ...

Новичок

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

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

... ррработает ...volvo877, спасибо большое) smile

Guedda

Дата 19.9.2007, 14:50 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

M
Guedda

Модератор: Не забываем отмечать вопрос решенным!!!

Это сообщение отредактировал(а) Guedda - 19.9.2007, 14:50

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

Ll 2

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