Matematické Fórum

Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.

Nástěnka
22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.

Nejste přihlášen(a). Přihlásit

#1 06. 12. 2010 20:50

magenta
Zelenáč
Příspěvky: 14
Reputace:   
 

Pascal - matice typu (m,n)

Prosila bych chytré hlavičky o radu. Mám zadanou matici typu (M,N). pomocí TURBO PASCALu mám sestavit program, kde se má vytisknout matice, která se liší od původní tím, že má všechny prvky, jejichž součet indexu je sudý, nahrazeny jejich trojnásobkem. Budu vám vděčná!

Offline

  • (téma jako vyřešené označil(a) magenta)

#2 06. 12. 2010 21:26

vojta01
Příspěvky: 63
Reputace:   
 

Re: Pascal - matice typu (m,n)

Ahoj, nevím, jaký je rozdíl mezi normálním pascalem a turbo pascalem, ale v pascalu bych to napsal takto:

Code:

for i:=1 to M do
begin
   for j:=1 to N do
      if i+j mod 2 = 0 then {součet i+j je sudý}
         write(matice[i,j]*3,' ')
      else
         write(matice[i,j],' ');
   writeln; {odřádkování každého řádku matice}
end;

Offline

 

#3 14. 12. 2010 18:35 — Editoval magenta (14. 12. 2010 18:36)

magenta
Zelenáč
Příspěvky: 14
Reputace:   
 

Re: Pascal - matice typu (m,n)

↑ vojta01:
a nemělo by tam být třeba ARRAY [xxx] OF xxx ?... protože se to používá u pole - matice. Raději se ptám...,
Jinak pro mé účeli se turbo pascal nijak zvášt neliší od normalniho pascalu.

Offline

 

#4 14. 12. 2010 18:48 — Editoval hradecek (14. 12. 2010 18:49)

hradecek
Příspěvky: 772
Pozice: Student
Reputace:   25 
Web
 

Re: Pascal - matice typu (m,n)

↑ magenta:
Kolega ↑ vojta01: ti napísal už iba finálny výpis matice. Takže predpokladal, že si to dáš zrejme ako procedúru alebo tak a telo programu atď. si už dopíšeš ;).
btw: aký je to normálny pascal ? :)))


Netrápte sa nad svojimi problémami s matematikou, môžem vás uistiť, že tie moje sú ešte väčšie. ~~Albert Einstein~~
Jak spozná člověk, že není pitomec ? - Moudrý člověk to nepozná nikdy a blbci je to jedno. ~~Jak přicházejí básnici o iluze~~
Někteří lidi se nikdy nezmění. Anebo se rychle změní a pak se zase rychle změní nazpátek. ~~Homer Simpson~~

Offline

 

#5 30. 12. 2010 23:04

magenta
Zelenáč
Příspěvky: 14
Reputace:   
 

Re: Pascal - matice typu (m,n)

↑ hradecek:

Mám to takhle dobře?

program tiskMatice;

uses crt;
const  {kdyz mam danou matici, muzu si urcit konstanty?}
  m=10
  n=20
type
  tmatice=array[1..m,1..n] of integer;
var   
  i,j: integer;
  matice: tmatice;

begin

   clrscr; {Smaže aktuální obrazovku}
   /randomize; {TO TU ASI NEMA BYT.. když mám tu matici danou, tak nepotřebuju aby se mi tam náhodně dávaly hodnoty, že?}/

   for i:=1 to m do
   begin
      for j:=1 to n do
       if i+j mod 2 = 0 then       {součet i+j je sudý}
            write(matice[i,j]*3,' ')
    else
            write(matice[i,j],' ');
      writeln;               {odřádkování každého řádku matice}
   end;

end.


Pro mě normální znamená nejpoužívanější, nejobvyklejší. Normální člověk neexistuje a přsto to tak taky říkáme :-D  Ale chápu tě, bohužel nejsem programátor...
díky za odpověď

Offline

 

#6 31. 12. 2010 17:14

Dioxid
Příspěvky: 416
Reputace:   13 
 

Re: Pascal - matice typu (m,n)

↑ magenta: Možná by to chtělo ještě přidat nějaký vstup (zadání prvků matice), aby byl program spustitelný. To bych bral buď jako čtení ze souboru nebo z klávesnice (od uživatele).

Z klávesnice by to vypadalo takto (např.):
for i:=1 to m do
   begin
      for j:=1 to n do
         begin
            read(matice[i,j]);
   end;
end;

To by samozřejmě patřilo tam místo toho randomu.
U vstupu ze souboru je to na podobném principu, ale z hlavy si nepamatuji ty konkrétní příkazy pro čtení.


Jsem omylný, proto ne vše, co jsem napsal, je zaručeně správně.
468

Offline

 

#7 07. 01. 2011 19:36

magenta
Zelenáč
Příspěvky: 14
Reputace:   
 

Re: Pascal - matice typu (m,n)

↑ TomDlask:
TAK DÍKY

Offline

 

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson