Pascal: školski zadaci

i ovaj ako iko zna 

napisati program koji broji rijec u recenici?

Koristi tipku uredi :D

ja ne radim u pascalu, a što ti nije dosta tip da zadnju znamenku dobiješ sa broj%10  i preko if uvjeta provjeriš je li if(broj % 10 == 3),

ako jest povećaš sumu za taj broj suma += broj.

• /*string6.cpp*//*ispisuje broj rijeci u ucitanoj recenici*/#include<conio.h>#include<stdio.h>#include<string.h>char a[80];int n,i,k=0,br=0,j;void main(void){clrscr();printf("unesi string: ");gets(a);n=strlen(a)-1;/*broji razmake*/for(i=0;i<n;i++)if (a[i]==' ' && a[i+1]!=' ') br++;printf("ucitana recenica ima %d rijeci",br+1);
• getch();}

evo ti ga na, živ dokaz da nije bitan jezik, nego algoritam

kad čovjek zapne na algoritmu, to je vrijedno pomoći, kad neće da uz dani algoritam sam napiše sintaksu

bome to nije

LINK ZA DETERMINANTU - nije baš bilo teško doć do formule, jel da?

LINK ZA INVERZ - a nije ni to bilo teško, također imaš formulom danu inverznu matricu od 3x3 matrice

Kad bi matrica bila reda n onda bi imao jako puno posla jer ne postoji formula za to.

Koliko vidim trebaš unesti matricu reda 3, dakle unest ćeš njezinih 9 elemenata i ono kaj trebaš je ukucat formulu za determinantu. Ako te zanima kako se do nje dođe, rado ću ti pomoći.

Određivanje inverza općenite matrice je jako skup posao za radit na računalu, al i tu imaš sreću što je samo 3x3 matrica pa imaš jednostavan postupak koji je opisan na wikipediji.

S matricama reda n ima jako puno posla i nije nimalo trivijalan problem, što sa matematičke strane, što sa strane računa u računalu

Za inverznu, samo trebaš ove A,B,C itd sa wikipedije izračunat. Kako su ti koeficijenti matrice u polju, vjerojatno možeš te varijable popunit kroz jednu petlju, to bi trebalo proučit. Brute force napravi 9 varijabli , izračunaj ih i potrpaj u matricu.

molim vas pomoc treba mi ovo hitno a ne znam rijesiti ni prvi zadatak,moooooooolim vas tko ovo riješi biti cu mu dozivotno zahvalan

1.Napiši program koji za 7 osoba upisuje ime i broj postignutih bodova na ispitu(0-100)

a)ispisuje imena osoba koje su imale manje od 30 bodova

b)ispisuje ime osobe koja je postigla najviše bodova na ispitu

c)ispisuje postignute bodove od najvećih prema najmanjim

evo kod nekako mi ne ispada tocno pa ako bi netko mogao pogledati kod pa ispraviti

program Untitled;
uses crt;
var ime:array[1..7] of string;
    bod:array[1..7] of integer;
    i,j,brmax,p:integer;
begin
    clrscr;
    writeln('upisi imena, pa bodove za osobe:');
    for i:=1 to 7 do begin
    readln(ime[i]);
    readln(bod[i]);
end;
   writeln('osobe koje su imale manje od trideset bodova su:');
    for i:=1 to 7 do if bod[i]<30 then write(ime[i],' ');
    writeln;
    writeln('po redu su:');
    for i:=1 to 6 do begin
        brmax:=i;
        for j:=i+1 to 7 do if bod[j]>bod[brmax] then brmax:=j;
        p:=bod[brmax];
        bod[brmax]:=bod[i];
        bod[i]:=p;
end;
    for i:=1 to 7 do writeln(bod[i]);
    readln
end.

Čemu ti služi varijabla brmax? Koliko vidim, nisi je ni jedan jedini put upotrijebio. Zar bod[brmax] nije najveći broj bodova? Zar ime[brmax] nije ime onog s najvećim brojem bodova?

Glede c - sortiraš polja i to je to. Evo, recimo primjer s neta:

        FOR i := size - 1 DOWNTO 1 DO
            FOR j := 1 TO i DO
                IF arr[j] > arr[j + 1] THEN BEGIN
                    tmp := arr[j];
                    arr[j] := arr[j + 1];
                    arr[j + 1] := tmp;
                END;

Naravno, s obzirom da imaš dva polja, ti bi na isti način istovremeno morao sortirati dva polja pa bi imaš nešto tipa:

        FOR i := size - 1 DOWNTO 1 DO
            FOR j := 1 TO i DO
                IF arr[j] > bod[j + 1] THEN BEGIN
                    tmp := bod[j];
                    arr[j] := bod[j + 1];
                    arr[j + 1] := tmp;

                    tmpime := ime[j];
                    ime[j] := ime[j + 1];
                    ime[j + 1] := tmpime;
                END;

A osim toga - ako ti po točki tri sortiraš polje, onda ni ne trebaš posebno tražiti maksimalni (ili minimalni) broj, odnosno ime, pošto su ti u sortiranom polju maksimalna ili minimalna vrijednost prvi, odnosno zadnji element polja.

I još jedna napomena - ako ste učili recorde, onda ti nema smisla imati dva polja (jedno polje integera, a drugo polje stringova), nego imaš lijepo jedno polje zapisa, koji u sebi sadrže članove brojbodova: Integer i ime:String. To je zapravo pravilno rješenje - nema smisla vući kroz program dva međusobno zavisna polja.

Zadatak uradjen sa slogovima

Program zad1;
 uses wincrt;
 type osoba=record
       ime:string;
       bodovi:integer;
      end;
 var a:array[1..7] of osoba;
     i,j:integer;
     p:osoba;
 begin
   writeln('Unesite imena osoba i bodove:');
   for i:=1 to 7 do
      begin
        readln(a[i].ime);
        readln(a[i].bodovi);
      end;
    writeln('Osobe koje imaju manje od 30 bodova:');
    for i:=1 to 7 do
      if a[i].bodovi<30 then writeln(a[i].ime,a[i].bodovi:5);
    for i:=1 to 6 do
      for j:=i+1 to 7 do
        if a[i].bodovi<a[j].bodovi then
        begin
          p:=a[i];
          a[i]:=a[j];
          a[j]:=p;
        end;
     writeln('Osoba sa najvise bodova je ',a[1].ime);
     writeln('Spisak uredjen po vrednosti bodova:');
     for i:=1 to 7 do
       writeln(a[i].ime,a[i].bodovi:5);
 end.

Ako ti kompajler nema konstrukcije za error handling (recimo Delphi ima try..finally..end ili try..except..end - ne znam u kojem Pascalu radiš i ima li takve konstrukcije - recimo i Free Pascal bi trebao imati, dok Turbo Pascal, ako se dobro sjećam, nema), onda to moraš zaobilaznim putem - imašovdje primjer. Svodi se na to da učitaš string kojeg potom pretvaraš u broj.

Drugačije rješenje u kom smislu? Ako ćeš učitavati integer podatke pomoću ReadLn-a onda je to to - kod upisivanja nečeg što nije broj dolazi do run-time greške i rušenja programa. Možeš provjeru run-time greški isključiti direktivom za kompajler {$I+}, možeš zatvoriti unose u try..except i try..finally blokove i to je to. Ili možeš pokušati s nekom drugom metodom unosa. A koliko mi je poznato, Pascal baš i nema neke posebne metode za unos - Read, ReadLn, možda ReadKey. Pa sad ti vidi. Ne kužim što očekuješ - da ti se ne bi program rušio ili moraš učitati string pa ga očistiti ili provjeriti od ne-znamenki ili moraš učitavati znak po znak pa gledati je li to znamenka.