PASCAL - Zadaci, resenja, problemi, izazovi...

Da li može neko od vas da mi pomogne oko ovih zadataka iz informatike?

U računar se unosi 2D niz Anxm (n<=30, m<=15) čiji su elementi celi brojevi. Napisati program kojim se omogućava unošenje niza i određivanje prosečne vrednosti (aritmetičke sredine) elemenata 3. reda.

U računar se unosi 2D niz Anxm (n<=35, m<=20) čiji su elementi celi brojevi. Napisati program kojim se omogućava unošenje niza i određivanje prosečne vrednosti (aritmetičke sredine) elemenata 7. kolone.
 
Molim za HITNU pomoć jednom gimnazijalcu!

1. U računar se unosi 2D niz Anxm (n<=30, m <=25), čiji su elementi celi brojevi. Napisati program kojim se omogućava unošenje niza i određivanje prosečne vrednosti (aritm. sredine) elemenata 3. reda.

2. U računar se unosi 2D niz Anxm (n<=35, m <=20), čiji su elementi celi brojevi. Napisati program kojim se omogućava unošenje niza i određivanje prosečne vrednosti (aritm. sredine) elemenata 7. kolone.

Hvala unapred!
 
Kod: 
program gimnazijalac;
var
  A:array[1..30,1..25] of integer;
  n,m,i,j,c:integer;
  prosek:real;
begin
  {popunjavanje niza}
  readln(n,m);
  for i:=1 to n do
    for j:=1 to m do
    begin
       write('Unesi element na poziciji [', i, ',', j,']: ');
       readln(A[i,j]);
    end;
  end;

  {izracunavanje sredine u 3-em redu}
  prosek:=0;
  for i:=1 to n do
    prosek:=prosek+A[3,i];  {za 7-mi red umesto 3 stavi 7, za kolone zameni mesta u [] }
  prosek:=prosek/n;

  writeln('Prosek treceg reda je: ', prosek);
end.


to ti je to valjda
 
c0n3:
a koje voljan da mu saljem poruku i da mi uzvrati poruku s uradjenim zadatkom kada mi bude ispit.... ;)

ahahhahahah SALIM SE.... !!! :hahaha::hahaha:

nego imali ko kakvu literaturu u .pdf formatu ili kakvu bilo vec smao da ima dobro objasnjenje ....:ok:
Kliknite za proširenje...

1)zavisi sta dajes za uzvrat :D

a bolje kupi cabarkapu, extra je objasnjeno sve, koliko se secam nema samo onaj deo sa pokazivacima i datotekama( ima nesto malo) a vise od toga ne znam da li se igde trazi
 
Kada pomenuste pokazivace...

Ima li neko objasnjene dinamicke strukture? Ja sam odradio liste preko zadataka i nesto malo objasnjenja koja im prethode... Na grafove i stabla ni ne pomisljam dok malo ozbiljnije ne prelistam nesto... Trazio sam po net-u ali sve je tipa kako da se napravi, odstampa i oslobodi lista.

Znaci, neki link ili preporuka za knjigu bi dobrodosla.

P.S. Nisam znao da je Cabarkapa pisao o pokazivacima. prelistao sam tu knjigu ali mi nije zapalo za oko...
Hvala u napred
 
Treba mi jedna mala pomoć. Kako u Delphiju da napišem program koji će mi ispisivati moju IP adresu? Imam jednu skriptu za mp3 player na MySpace i podesio sam ga da pesme pušta sa mog servera, tj sa mog kompjutera, ali pošto nemam statičnu IP nego dinamičku, prilikom svake nove konekcije moram da u podešavanjima menjam i IP adrese mog servera. Hteo sam da napravim program koji bi to radio umesto mene, ali ne znam kako da u Delphiju ili Pascalu ili uopšte da izvučem IP adresu i smestim je u neku promenljivu.

Unapred hvala.
 
NE0:
o tome sam i govorio, ali se nisam seio da sadrzaj procedure stavim u promenljivu, hvala
Kliknite za proširenje...

Kod: 
program IspisujeSvojKod;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  Zs='';
  P1='    writeln(Ls+';
  P2='+Ds);';
  P3='+A+';
  P4='    writeln(P);';
  M1='    Promena(Ls,Ds,A,P);';
  M2='  end;';
  M3='  readln;';
  M4='end.';

procedure Promena(var Ls,Ds,A,P: string);
begin
  if Ls=Zs then
  begin
    Ls:=P1+chr(39);
    Ds:=chr(39)+P2;
    A:=chr(39)+P3+chr(39);
    P:=P4;
  end else
  begin
    writeln(M1);
    writeln(M2);
    writeln;
    writeln(M3);
    writeln;
    write(M4);
  end;
end;

var
    Ls,Ds,A,P:string;
    i:integer;

begin

  Ls:=Zs; Ds:=Zs; A:=chr(39); P:=Zs;

  for i:=1 to 2 do
  begin
    writeln(Ls+'program IspisujeSvojKod;'+Ds);
    writeln(P);
    writeln(Ls+'{$APPTYPE CONSOLE}'+Ds);
    writeln(P);
    writeln(Ls+'uses'+Ds);
    writeln(Ls+'  SysUtils;'+Ds);
    writeln(P);
    writeln(Ls+'const'+Ds);
    writeln(Ls+'  Zs='+A+''+A+';'+Ds);
    writeln(Ls+'  P1='+A+'    writeln(Ls+'+A+';'+Ds);
    writeln(Ls+'  P2='+A+'+Ds);'+A+';'+Ds);
    writeln(Ls+'  P3='+A+'+A+'+A+';'+Ds);
    writeln(Ls+'  P4='+A+'    writeln(P);'+A+';'+Ds);
    writeln(Ls+'  M1='+A+'    Promena(Ls,Ds,A,P);'+A+';'+Ds);
    writeln(Ls+'  M2='+A+'  end;'+A+';'+Ds);
    writeln(Ls+'  M3='+A+'  readln;'+A+';'+Ds);
    writeln(Ls+'  M4='+A+'end.'+A+';'+Ds);
    writeln(P);
    writeln(Ls+'procedure Promena(var Ls,Ds,A,P: string);'+Ds);
    writeln(Ls+'begin'+Ds);
    writeln(Ls+'  if Ls=Zs then'+Ds);
    writeln(Ls+'  begin'+Ds);
    writeln(Ls+'    Ls:=P1+chr(39);'+Ds);
    writeln(Ls+'    Ds:=chr(39)+P2;'+Ds);
    writeln(Ls+'    A:=chr(39)+P3+chr(39);'+Ds);
    writeln(Ls+'    P:=P4;'+Ds);
    writeln(Ls+'  end else'+Ds);
    writeln(Ls+'  begin'+Ds);
    writeln(Ls+'    writeln(M1);'+Ds);
    writeln(Ls+'    writeln(M2);'+Ds);
    writeln(Ls+'    writeln;'+Ds);
    writeln(Ls+'    writeln(M3);'+Ds);
    writeln(Ls+'    writeln;'+Ds);
    writeln(Ls+'    write(M4);'+Ds);
    writeln(Ls+'  end;'+Ds);
    writeln(Ls+'end;'+Ds);
    writeln(P);
    writeln(Ls+'var'+Ds);
    writeln(Ls+'    Ls,Ds,A,P:string;'+Ds);
    writeln(Ls+'    i:integer;'+Ds);
    writeln(P);
    writeln(Ls+'begin'+Ds);
    writeln(P);
    writeln(Ls+'  Ls:=Zs; Ds:=Zs; A:=chr(39); P:=Zs;'+Ds);
    writeln(P);
    writeln(Ls+'  for i:=1 to 2 do'+Ds);
    writeln(Ls+'  begin'+Ds);
    Promena(Ls,Ds,A,P);
  end;

  readln;

end.
 
Može li mi neko pomoći oko zadataka. Za 5-icu su, Nastava mi je od 12.40. tako da je rok do sutra do tih doba. A zadatak je da pretvorimo stepene u radijane.(1r=57.29578stepeni),tj. napraviti program za tu konverziju.
I drugi je da ako je vrijeme dato u sekundama pretvoti ga u sate,minute i sekunde. Ono što smo radili posljednji čas i što najvjerovatnije treba koristiti je div i mod. Molim vas da mi pomognete,profesor je strog i 5-ica kod njega mi je jako važna.
 
Ovo ti je moja varijanta tvog drugog zadatka, za konverziju vremena. Ponekad se ni sam ne snalazim sa tim div/mod deljenjem, zato sam ovde uglavnom koristio div, ali program ipak radi.
Kod: 
program vreme;
var
  sec, min, sat: longint;
begin
  writeln('Unesite vreme u sekundama:');
  readln(sec);
  min := 0;
  sat := 0;
  if sec < 60
    then
      writeln('Vase uneto vreme je: ',sat,':',min,':',sec)
    else
      begin
        min := sec div 60;
        sec := sec - min * 60;
        if min >= 60
          then
            begin
              sat := min div 60;
              min := min - sat * 60;
            end;
        writeln('Vase uneto vreme je: ',sat,':',min,':',sec);
      end;
  readln;
end.

A ovaj prvi program je josh lakshi od ovog. Samo stavi da ti ulazna promenljiva (ona nepoznata) budu ti stepeni i druga promenljiva koja ce se odnositi na radijane. I dalje je lako, samo stavish da je radijan := stepen * 57.29. Za svaki sluchaj stavi da obe promenljive budu tipa "real".

Pozz :)
 
pls mala pomoc...kad se dekadni zapis nekog broja pocevsi od 1 do zadanog ispise jedan za drugim dobijes nizcifara 123456789101112131415 itd
treba napisati program koji ce izracunati broj cifara u nizu...
e sad ja sam formirao counter sa for ovako n je broj na ulazu
for i:=1 to n do

i tu zapucam svaki put..sta treba da unesem u tom delu naredbe kako bi mi izbacio na izlazu ukupan broj cifara u nizu???
 
mozda bi mogao da probas da izvuces neku formulu, i onda po njoj racunas, ali kad si vec krenuo petljom...
evo ti kod petlje

Kod: 
ukupnoCifara:=0;
for i:=1 to n do
  ukupnoCifara:=ukupnoCifara+brojCifara(n);

funkciju brojCifara(n) napisi sam. nije interesantno ako ti sve uradim :D

cifre broja dobijas deljenjem sa 10, pri cemu je ceo deo cifra, a ostatak ono sto se deli dalje, dok ne dodjes do 0.
trebace ti i jedan brojac koliko se puta petlja izvrsila, samo pazi da brojac ne bude za 1 veci nego sto treba (logicka greska koja se cesto desava ako se ne obrati paznja)
 
Može mala pomoć?? Nikako da skontam gdje griješim, a trebao bi biti lagan zadatak---treba napraviti program koji za učitani niz od 40 brojeva računa posebno zbirove onih na parnim mjestima i onih na neparnim mjestima:

program NizZbirNaPariNeparMj;
type n=array[1..40] of integer;
var x,y,i:integer;
begin
x:=0;
y:=0;
for i:=1 to 40 do
begin
readln(n);
if (i mod 2:=0) then x:=x+n;
if (i mod 2<>0) then y:=y+n;
end;
writeln('Zbir brojeva na parnim mjestima je 'x);
writeln('Zbir brojeva na neparnim mjestima je 'y);
readln;
end.
 
Prijavite se ili registrujte da biste poslali poruku.

Back
Top