Pascal: školski zadaci

Pokušat ću još jednom:

treba mi najjednostavnije rješenje ( vjerovatno korišteći ASCII tablicu ); uvijet BEZ STRINGA je valjda jer NE smijemo, ponavljam, NE smijemo koristiti string.

Valjda bi išao raditi sa njim da znam i da smijem.

Dakle, najjednostavnije rješenje, rekla je da nam treba ASCII tablica, repeat petlja i niz tipa char.

A ja ne znam to ukomponirati sve zajedno.

Nadam se da si sada razumio zadatak. 

I da, ne mogu ni taj try..except kad to nismo nikad radili.

Ne znam kako to uopće napraviti. Objasnio mi jesi - svaka čast, ali ja to ne bih znao napraviti. Nemam još dovoljno znanja u Pascal-u.

Pa te lijepo molim, ako ti nije teško, ubaci par linija koda u proceduru i rješeno!

Ako napišeš, možda jop i skužim o čemu se radi, ali nema šanse da ja napišem takvo nešto.

Evo procedure da ne tražiš;

Procedure sedma ( var god : niz; zele:integer);

var i :integer; ch:char;

begin

writeln('Upišite godišta za ',zele,' učenika.');

for i := 1 to zele do begin

readln(god[i]);

end;

for i := 1 to zele do begin

write(i:2);

writeln(god[i]:5);

end;

readln;

end;

ljudi pomagajte

imam zadatak owako

za swakog ucenika unosi se ime prezime uspeh iz prwe godine srednje(uspeh1),uspeh2,uspeh,3,uspeh4,bodowi sa prijemnoh,i rang(budzhet ili samofinansiranje).moram da naprawim procedure koje

1.unosi ime i prezime

2.unosi uspehe iz 4godine

3.dortira djake o uspehu na osnowu proseka uspeha prosek=((uspeh1+uspeh2+uspeh3+uspeh)*2);

4.unosi bodowe sa prijemnog

5.sortira ih ponowo ali owaj put konacni rezultat=bodowi sa prijemnog+prosek

i za prwih 20 upisuje da je rang budzhet a za sledecih 10 upisuje rang samofinansiranje

program fax;
uses crt;
type
slog=record
sifra:integer;
ime:string[20];
prezime:string[20];
uspeh1:real;
uspeh2:real;
uspeh3:real;
uspeh4:real;
ukupno:real;
prijemni:real;
konacno:real;
rang:string[20];
end;
type
niz=array [1..40] of slog;
var
znak:char;
i:integer;
x:file of slog;
y:slog;
procedure unos;forward;
procedure konacna;forward;
procedure meni;forward;
procedure unos_uspeha;forward;
procedure rang_lista_uspeha;forward;
procedure uprijemni;forward;
procedure pretraga;forward;
procedure crta;forward;
procedure meni;
begin
repeat
clrscr;
gotoxy(33,4);write('Meni:');
gotoxy(27,8);write('1.Unos maticnih podataka:');
gotoxy(27,10);write('2.Unos uspeha:');
gotoxy(27,12);write('3.Rang lista uspeha:');
gotoxy(27,14);write('4.Unos bodova sa prijemnog ispita:');
gotoxy(27,18);write('5.Pretraga');
gotoxy(27,20);write('6.Ispis neuspelih');
gotoxy(27,22);write('7.KNr');
gotoxy(27,24);write('8.Kraj');
writeln;
writeln('-------------------------------------');
gotoxy(27,26);write('Unesi broj:');
repeat
readln(znak);
until znak in ['1','2','3','4','5','6','7','8'];
case znak of
'1':unos;
'2':unos_uspeha;
'3':rang_lista_uspeha;
'4':uprijemni;
'5':pretraga;
'6':crta;
'7':konacna;
'8':halt;
end;
until (znak='8');
end;
procedure unos;
var k:integer;
c:char;
begin
assign(x,'fax.dat');
rewrite(x);
k:=0;
repeat
with y do begin
writeln('Unesi ime:');
readln(ime);
writeln('Unesi prezime:');
readln(prezime);
sifra:=k;
end;
writeln('Da li zelis jos? (Y/N)');
readln(c);
c:=Upcase(c);
writeln('*******************************************************');
write(x,y);
k:=k+1;
until (c='N');
close(x);
readln;
meni;
end;
procedure unos_uspeha;
var
i,k:integer;
begin
assign(x,'fax.dat');
reset(x);
k:=filesize(x);
i:=0;
while not eof(x) do
begin
read(x,y);
{for i:=0 to k-1 do}
{begin}
with y do
begin
writeln('Unesi uspeh 1. godine: za',y.ime);
writeln(filepos(x));
readln(uspeh1);
seek(x,filepos(x)-1);
write(x,y);
writeln('Unesi uspeh 2. godine:');
readln(uspeh2);
seek(x,filepos(x)-1);
write(x,y);
writeln('Unesi uspeh 3. godine:');
readln(uspeh3);
seek(x,filepos(x)-1);
write(x,y);
writeln('Unesi uspeh 4. godine:');
readln(uspeh4);
seek(x,filepos(x)-1);
write(x,y);
ukupno:=(uspeh1+uspeh2+uspeh3+uspeh4)*2;
writeln('Uspeh: ',ukupno:10:2);
seek(x,filepos(x)-1);
write(x,y);
{end;}
end;
end;
close(x);
readln;
meni;
end;
procedure uprijemni;
var
k:integer;
q:real;
begin
assign(x,'fax.dat');
reset(x);
//read(x,y);
//repeat
//k:=y.sifra;
while not eof(x) do
begin

read(x,y);
//writeln(filepos(x),'==');
writeln('Unesi bodove sa prijemnog za: ',y.prezime);
readln(q);
//writeln(filepos(x),'==');
y.prijemni:=q;
seek(x,filepos(x)-1);
write(x,y);
end;
//until(k=filesize(x));
close(x);
readln;
meni;
end;
procedure rang_lista_uspeha;
var
a:niz;
b:file of slog;
i,j,m:integer;
kanta:slog;
begin
assign(x,'fax.dat');
reset(x);
assign(b,'sorta.dat');
rewrite(b);
i:=0;
while not eof(x) do
begin
read(x,y);
i:=i+1;
a[i]:=y;
end;
m:=i-1;
 for i:=1 to m-1 do
  for j:=i+1 to m do
  if a[i].ukupno<a[j].ukupno then
  begin
  kanta:=a[i];
  a[i]:=a[j];
  a[j]:=kanta;
  end;
  for i:=1 to m do
  write(b,a[i]);
  for i:=1 to m do
  begin
  writeln(i,'.',a[i].ime:10,a[i].prezime:12,a[i].ukupno:12:2);
  end;
  close(x);
  close(b);
  readln;
  meni;
end;
procedure konacna;
var
i,j,m:integer;
b:file of slog ;
a:array[1..40] of slog;
p:slog;
begin
assign(x,'fax.dat');
reset(x);
assign(b,'sorta.dat');
rewrite(b);
while not eof (x) do
begin
read(x,y);
y.konacno:=y.prijemni+y.ukupno;
seek(x,filepos(x)-1);
write(x,y);
end;
reset(x);
read(x,y);
i:=1;
a[i]:=y;
i:=i+1;
m:=y.sifra;
 for i:=1 to m-1 do
  for j:=i+1 to m do
  if a[i].konacno<a[j].konacno then
  begin
  p:=a[i];
  a[i]:=a[j];
  a[j]:=p;
  end;
  write(b,a[i]);
 for i:=1 to m do
writeln(i,'.',a[i].ime:10,a[i].konacno:12:2);
  close(x);
  close(b);
  readln;
  meni;
end;
procedure pretraga;
var
j:string;
begin
assign(x,'fax.dat');
reset(x);
writeln('Unesi ime za pretragu');
readln(j);
while not eof(x) do
begin
read(x,y);
with y do
begin
if ime=j then
begin
writeln(ime);
writeln(prezime);
end;
end;
end;
close(x);
readln;
meni;
end;
procedure crta;
var
z:text;
begin
assign(z,'crta.txt');
rewrite(z);
assign(x,'fax.dat');
reset(x);
while not eof(x) do
begin
read(x,y);
if (y.rang<>'budzet') and (y.rang<>'samofinansiranje') then
writeln(z,y.ime:10,y.prezime:10);
end;
close(x);
close(z);
readln;
meni;
end;
begin
meni;
end.

tesko mi je citat ovako sve jedno ispod drugog,pokusavam naći :/

Može pomoć?Zadatak je ovaj.

EDIT:Riješen problem.

Napiši program koji upisuje zapise oblika : ime,šrezime,prosjek i u datoteku proizvoljnog imena.Zatim se upiše neka ocjena od 1-5 te se iz datoteke trebaju pročitati i ispisati svi učenici koji su prošli s tom ocjenom.

Program prvi;type ucenik = record        ime,prezime:string[20];        prosjek:real;     end;var d:file of ucenik;    uc:ucenik;    broj,i,ocjena:integer;    ime_dat:string[15];beginwriteln('Upisi ime datoteke');readln(ime_dat);assign(d,ime_dat+'.dat');{$I-}reset(d);if IoResult <> 0 then rewrite(d);{$I+}write('Upisi broj ucenika');readln(broj);writeln('Upisi podatke o ucenicima');for i:= 1 to broj do   with uc do      begin         readln(ime);         readln(prezime);         readln(prosjek);         seek(d,i-1);         write(d,uc);      end;writeln('Upisi ocjenu');readln(ocjena);writeln('Ucenici s tom ocjenom su');for i:= 1 to filesize(d) do   with uc do      if round(prosjek) = ocjena then         begin            seek(d,i-1);            read(d,uc);            writeln(ime);            writeln(prezime);            writeln(prosjek);         end;readln;end.

O kojem zadatku je riječ?

"rezultat prebrojavanja po zadanom kriteriju u cijelom polju" - kaj ti tu nije jasno? Ideš od elementa do elementa polja, gledaš da li element zadovoljava zadani kriterij (kriterj je valjda zadan u zadatku, zar ne?) i ako zadovoljva, uvećaš za 1 brojač (varijablu) koja ti služi za bilježenje broja elemenata koji zadovoljavaju zadani kriterij.

EDIT

nvm glup sam

Gramatika? Daj popravi jer je neam pojma kaj ti hoćeš...

Jel moze pomoc?

Napisati program kojim ce se unijeti niz od 50 brojeva, sortirati ti brojevi i ispisati sortirani brojevi!

Hvala 

Evo,ali ovo su zbilja jednostavni zadaci.Razmislite malo prije nego što pitate.

Program forum;
var i,j,pom:integer;
x:array[1..50] of integer;
begin
writeln('Upisi 50 brojeva');
for i:=1 to 50 do
   readln(x[i]);
for i:=1 to 49 do
   for j:=i+1 to 50 do
      if x[i] > x[j] then
         begin
         pom:=x[i];
         x[i]:=x[j];
         x[j]:=pom;
         end;
writeln('Sortirani niz je :');
for i:=1 to 50 do
   write(x[i],'   ');
readln;
end.

Moze li netko rijesit molim vas

preuzet tecajnu listu sa hnb-ove stranice http://www.hnb.hr/tecajn/htecajn.htm (formatiranom obliku) i ucitat u .txt datoteku nad kojim ce program radit program bi trebao preracunavat iz jedne valute u drugu tako da mu das pocetnu valutu, odredisnu i iznos npr 100 AUD u CAD

ako neko zna neka mi pomogne oko ovog zadatka

Kreirati niz od 10 elemenata, zatim unijeti clanove i onda u drugi niz kopirati clanove iz prvog niza koji su veci od 8!

Imam jedno pitanje u vezi pascala. Vezano je uz binarne datoteke. Pokušavam u programu uz proceduru novadatoteka dodati i proceduru postojecadatoteka. Odnosno da otvori tu postojeću datoteku. Uspijem to napraviti bez ikakvih uvjeta a kada pokušam postaviti sa uvjetom(da mi prikaže poruku da datoteka ne postoji te da upisem novo ime, uopće ju ne učita) i treba mi baš to sa procedurom da kasnije koristim u glavnom programu.