Program na informatyke.

roczniak · Post autor: **roczniak** » 10 lut 2011, o 11:00

W macierzy kwadratowej o rozmiarze podanym przez użytkownika znaleźć element o największej wartości bezwzględnej, a następnie utworzyć macierz o rozmiarze o jeden mniejszym, przez usunięcie wiersza i kolumny, na przecięciu których znajduje się znaleziony element. Wyświetlić macierz przed i po wykonaniu zadania.
Macierz powinna być wypełniona liczbami losowymi z zakresu <-50,50>.

Proszę o pomoc w tym zadaniu. Początek napisałem ale nie wiem czy dobrze więc tez wrzucam:

Kod: Zaznacz cały

program macierz;
 uses crt;
 var a,b,c:ShortInt;
     maci:array [1..10, 1..5] of ShortInt;
begin
 clrscr;
 randomize;
 for a:=1 to 10 do
 for b:=1 to 5 do begin 
 maci[a,b]:=random(100)+1-50;
 end;

Proszę o pomoc w dalszej części zadania.

rtuszyns · Post autor: **rtuszyns** » 10 lut 2011, o 11:05

Można teraz szukać największego elementu przez porównywanie. Spróbuj zapisać kod programu na takie porównywanie...

roczniak · Post autor: **roczniak** » 10 lut 2011, o 11:07

A mógłbyś mi objaśnić w jaki sposób bo zbytnio nie mam pojęcia...

x9ro · Post autor: **x9ro** » 11 lut 2011, o 15:23

Tutaj widze pascala? jesli sie nie myle, hmm niestety programuje w dwóch innych jezykach ale algorytm bedzie wygladal nastpujaca wg niego zrob.

Przede wszystkim lecisz po dwoch petlach zagniezdzonych w sobie nadaj sobie 3 zmienne pomocnicze(nie wiem czy nie za duzo ale narazie nie myslmy o optymalizacji) do jednej bedziesz zapisywal liczbe z porównania do dwóch pozostałych zapiszesz nr kolumny i wiersza w której się znajdują.

zapisze to algorytmem:

Kod: Zaznacz cały

int a;
int b,c;
a = macierz[1,1] ; <-- 1 element mozesz przyjac jako uporzadkowany
// nie wiem od jakis indeksow zaczynaly sie w paskalu macierze  (zaczne od 1)
for i=1 to (tutaj mozesz przyjac zmienna podana przy tworzeniu macierzy) do
  for j =1 to (tutaj to samo) do
    if (macierz[i,j] < 0 ) <-- sprawdzam tutaj czy jest dodatnia czy ujemna bo mowa o bezwzglednych 
      {
           if(a<(macierz[i,j]*(-1))
               a=macierz[i,j];
               b=i; c=j;
      }
   else if (a<macierz[i,j])
         a=macierz[i,j];
         b=i; c=j;

zalozylem ze zawsze znajdzie sie element wiekszy od zero (bezwzgledny)( choc chyba w elsie i tak robie dla zera

to by bylo wyszukiwanie maksa. przepraszam za zmieszany algorytm ale widze ze robisz pascalem a ja preferuje c/c++ badz c# ale powinienies sie skapnac.

Metoda ktora kasuje hmm nie wiem jak to zrobic w pascalu, ale moze da sie apisac metode(nie wiem jak to w pascalu procedure?) ktora zwraca ci taka macierz.

roczniak · Post autor: **roczniak** » 11 lut 2011, o 16:22

Ok. A mógłby mi ktoś napisać to jakoś w programie turbo pascal?? Przepraszam ale nie jestem zbytnio dobrym programistą, a zależy mi na dobrej ocenie z tego i chciałbym oddać cały program. Siedze i nic mi nie wychodzi;/.

rtuszyns · Post autor: **rtuszyns** » 11 lut 2011, o 16:35

Może zacznij od tego, że napisz sobie algorytm, schemat postępowania a potem staraj się przełożyć to na język programowania. I masz 2 zalety tego: robisz coś sam, uczysz się...

A tak a propos wspomnianego przeze mnie porównywania, to bierzesz moduł elementu \(\displaystyle{ a_{11}}\) i porównujesz z modułem elementu \(\displaystyle{ a_{12}}\). Zapisujesz większy pod zmienną jakaś np. \(\displaystyle{ z}\) i sprawdzasz dalej...

Tak mi przyszło na myśl, że można też użyć metody sortowania ale to chyba nie jest zbyt optymalna metoda tutaj...

x9ro · Post autor: **x9ro** » 11 lut 2011, o 16:56

w sortowaniach i tak bierzemy jako operacje dominujaca porównanie, wiec tak czy sial złożoności wychodziły by podobne. Tylko tutaj średnia pewnie była by inna ze wzgledu na jakies wystapienia wyboru jak "else if".

ps. tak jak uzytkownik wyzej próbuj sam zaimplementować algorytm. Chcesz dobrą ocene za coś czego nie umiesz?

roczniak · Post autor: **roczniak** » 12 lut 2011, o 12:15

Ok. A podpowiedzcie jak użyć formuły aby uzyskać wartość bezwzględną tylko to polecenie w turbo pascalu i będę bardzo wdzięczny.

rtuszyns · Post autor: **rtuszyns** » 12 lut 2011, o 12:19

Możesz skorzystać z wbudowanej funkcji (bodajże abs(x)) lub napisać sam

roczniak · Post autor: **roczniak** » 12 lut 2011, o 12:31

Ok. Zabieram się do pracy.

-- 12 lut 2011, o 13:54 --

Mam jeszcze jedno pytanko. Co mam podstawić za wartość do obliczenia wartości bezwzględnej w macierzy?? Mianowicie abs(x) ---> co za x???

-- 12 lut 2011, o 14:02 --

Ok. Już wiem. Sorki, za głupie pytanie.-- 13 lut 2011, o 13:04 --Mam jeszcze tylko jeden problem;/ Oblicza mi wszystko i w ogolę ale wartość bezwzględną tylko dla ostatniej liczby w całej tabeli czyli tej w dolnym prawym rogu. Wiecie jak zrobić dla całej??

x9ro · Post autor: **x9ro** » 13 lut 2011, o 19:40

Wklej kod, być może w złym miejscu masz wstawiona metode. Bądz źle podajesz argument metody.

roczniak · Post autor: **roczniak** » 15 lut 2011, o 14:41

Pisałem, pisałem i napisałem. Mam tylko problem z wartością największą. Wiecie jak ją wyszukać z tych wartości bezwzględnych i usunąć wiersz i kolumnę w której się znajduje????

Post autor: **Afish** » 15 lut 2011, o 20:04

Wiemy, ale powiemy, gdy pokażesz kod. Umiesz znaleźć wartość największą w jednowymiarowej tablicy?

roczniak · Post autor: **roczniak** » 17 lut 2011, o 21:36

Dzięki wszystkim za pomoc. Napisałem sam. Wszystko działa. rtuszyns dzięki za mobilizację.-- 17 lut 2011, o 22:36 --Wszystko przyszło z czasem ;d dostałem 4+ z tego. Zapomniałem się pochwalić:)