Zadaci iz Paskala...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

pixxel ::Nije ni 199 - 1^2+9^2+9^2 < 199
Al sam lupio

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

FarscapeFan ::nisma siguran da li postoji neki broj koji zadovoljava taj uslov
sa matematičke strane gledano

Izvini koji uslov? Da neki trocifreni broj bude veći od kvadrata zbira svojih cifara?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

da ,jer izgleda u stvari da bilo koji trocifren broj
u stvari ispunjava taj uslov

(ako je tako definisan zadatak, nije mi jasno čemu služi , da se
metodom grube sile, programski, dokaže da svi brojevi to ispunjavaju ? )


to je ono kad se stavi u petlju i redom se ispituje , i što je jači procesor , brže završi program.(jednostavnije rečeno... )

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 12 Okt 2009 7:27

FarscapeFan ::da ,jer izgleda u stvari da bilo koji trocifren broj
u stvari ispunjava taj uslov

(ako je tako definisan zadatak, nije mi jasno čemu služi , da se
metodom grube sile, programski, dokaže da svi brojevi to ispunjavaju ? )


to je ono kad se stavi u petlju i redom se ispituje , i što je jači procesor , brže završi program.(jednostavnije rečeno... )

Mislim da sam u prvom postu i napisala da bilo koji trocifreni broj ispunjava taj uslov... Ona je takav zadatak prepisala iz zbirke... Verovatno zbog korišćenja div i mod

Dopuna: 08 Dec 2009 8:27

Ponovo mi je potrebna pomoć... Juče su mi rekli da u sredu imamo test iz Paskala.. Što nije dobro...

Imam 15 zadataka i potrebne su mi ideje... Znaću da napišem program ali ne znam onaj glavni deo postavka...Naredbe kao naredbe same po sebi znam... Ako je neko voljan da mi pomogne bila bih mu zahvalna...

razgranate
1. Dat je ceo broj n. Napisati program za određivanje prve i posledjne cifre datog broja.
2. Dat je ceo broj n . Napisati program za ispitivanje da li dati broj sadrži tri jednake cifre.
3. Dat je ceo broj n . Napisati program za ispitivanje da li je učitani broj deljiv sa 5 i sa 7 a nije deljiv sa 3.
4. Dati su brojevi a, b i x. Napisati program za izračunavanje vrednosti funkcije
x*x-4*x+2.3 x<0
y=5sinx+e (x*x*x-3) 0<=x>3
lnx-sqrt(x*x-2.3434) 3<x
5. Cigla je dimenzija a,b i c. Napisati program za ispitivanje da li se cigla može provući kroz metalni okvir oblika kvadrata čija je dužina stranice x ( Vrednost a,b,c i x je iz standardne ulazne datoteke.
6. Napisati program za rešavanje bikvadratne jednačine.
a*x*x*x*x +b*x*x+c=0
7. Prava je zadata u ravni koordinatama tačaka Ai B. Napisati program da li se data tačka M nalazi na pravoj AB tj ispod, iznad, levo, desno u odnosu na pravu AB.
8. Petougao je zadat u ravni koordinatama svojih tačaka. Napisai program za ispitivanje da li je zadati petougao pravilan.
9. Trougao je zadat u ravni koordinatama svojih temena. Za datu tačku M ispitati da li pripada unutrašnjosti trougla ili ne.
10. Zadat je redni broh dana u godini i godina. Napisati program za određivanje rednog broja meseca kojem pripada dan kao i redni broj dana u mesecu.
11. Dati su brojevi a, b i x. Napisati program za ispitivanje da li važi a<=x>=b

linijske:
12. Dat je realni broj a. Ne koristeći druge operacije osim operacije množenja izračunati
a) a na 4 i a na 20 pomoću 5 operacija
b) a na 3 i a na 10 pomoću 4 operacije.
13. Date su veličine a,b i c tako da predstavljaju stranice trougla, Napisati program za određivanje veličine svih uglova trougla.
14. Učitavaju se otpori 5 otpornika R1, R2, R3, R4 i R5.
Napisati program za izračunavanje oorpora koji nastaje
a) paralelnim vezivanjem
b) sekvincijalnim vezivanjem
15. Date su realne veličine z1, z2, t1 i t2. Neka je pomešano z1 litara vode temperature t1 sa z2 litara vide temperature t2. Napisati program za izračunavanje zapremine i temperature vode koja je nastala opisanim mešanjem vode.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nema sanse za sve da se ispise, aj za neke , ima nekih bas prostih, gde se trazi da ubacis formulu ili slicno
U koju ti srednju ides, ja sam u srednjoj radio mnogo lakse zadatke
saten ::
1. Dat je ceo broj n. Napisati program za određivanje prve i posledjne cifre datog broja.

Zadnju cifru dobijas tako sto vidis koji je ostatak pri deljenju sa 10
Prvu cifru, tako sto delis sa 10 dok ne dobijes 0. Zadnji broj koji si dobila pre tog deljenja kad si dobila 0 je prva cifra. Jer ce bilo koji jednocifren broj pri deljenju sa 10(div a ne mod) dati 0
saten ::
2. Dat je ceo broj n . Napisati program za ispitivanje da li dati broj sadrži tri jednake cifre.

Mozes da izdvojis sve cifre u neki niz, da sortiras taj niz i da krenes sa uporedjivanjem. Posto ti nije bitno vreme izvrsavanja programa, za svaki clan u nizu proveris naredna 2 dal su mu jednaka
saten ::
7. Prava je zadata u ravni koordinatama tačaka Ai B. Napisati program da li se data tačka M nalazi na pravoj AB tj ispod, iznad, levo, desno u odnosu na pravu AB.

Nadjes jednacinu prave ( znas iz matematike , koeficijent pravca, bla bla...) Uvrstis M u jednacinu i vidis, ako je =0 onda je na pravoj, ako je <0 onda je ispod, u suprotnom iznad prave
saten ::
8. Petougao je zadat u ravni koordinatama svojih tačaka. Napisai program za ispitivanje da li je zadati petougao pravilan.

Sta mu bese pravilan petougao?
saten ::
9. Trougao je zadat u ravni koordinatama svojih temena. Za datu tačku M ispitati da li pripada unutrašnjosti trougla ili ne.

Uf, koliko vidim ti si u srednjoj skoli, ne znam sta ste radili iz geometrije.
Moze da se uradi na mnogo nacina. Mozes da proveravas da li je tacka sa iste strane sve tri prave. Mozes da triangulises pa preko orjentacije, ali to se ne radi u srednjoj valjda.
Mozda ako je zbir povrsina tacke sa tackama AB , BC, AC veci od povrsine trougla, onda je van logicno, zar ne?
saten ::
12. Dat je realni broj a. Ne koristeći druge operacije osim operacije množenja izračunati
a) a na 4 i a na 20 pomoću 5 operacija
b) a na 3 i a na 10 pomoću 4 operacije.

A^2=a*a
a^4=a^2 * a^2
i tako teras do 20

i tako dalje, tako dalje... ako imas neki od drugih koji bas ne znas da uradis, ti napisi, pa ako ne ja, neko ce ti vec pomoci.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala ti i na ovome što si mi ispisao! Pomoglo mi je mnogo! Jao sam gimnazija i to opšti smer pa sve nam daju teže... ŠTo je i logično jer se ipak kao spremamo za fakultet i ko zna šta će ko da upiše pa nam bukvalno sve treba... Na žalost Paskal je skoro matematika a matematika mi ne ide najbolje, što zbog moje lenjosti da vežbam, što zbog profesorke koja ne ume da nam prenese znanje... No, nije ofra sad da ogovaram profesorku to ću nekom drugom prilikom... Sad ću ja da pogledam ove zadatke još pa ako zapne vikaću...

I još jednom veeeliko hvala

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pozdrav forumaši,treba mi pomoć oko zadatka, ako bi neko mogao da ga uradi.Zadatak treba napisati u Pascal-u, a on glasi:
-----------------------------------------------------------------------------------
Napisati program za školski dnevnik. Podatke organizovati u datoteci Ucenici.DAT korišćenjem sloga sa sledećom strukturom:
Dnevnik = Record
Prezime : string[20];
Ime : string[20];
Predmet : array[1..14];
Izost_Op : integer;
Izost_Ne : integer;
Vladanje : 1..5;
End;
Program organizovati na bazi menija u skladu sa priloženom strukturom programa. Poslove koje treba realizovati su:
-dodavanje novog učenika u datoteku(posao 1)
-objavljivanje statistike za određenog učenika zadavanjem imena(posao 2)
-objavljivanje statistike za sve učenike u obliku tabele(posao 3)
Napomena: Ocena iz vladanja se računa na osnovu broja neopravdanih izostanaka(do 4 izostanka-5, od 5 do 7-4, od 8 do 14-3, od 15 do 20-2, od 21 do 25-1)
------------------------------------------------------------------------------------
Pritom treba napisati program vodeći računa o „kosturu“ koji je dat:
Program seminarski;
Uses
Crt;
Var
KodOp,x:integer;
Procedure proc1;
Begin
End;


Procedure proc2;
Begin
End;

Procedure proc3;
Begin
End;
Begin
Repeat
CirScr;
Writeln(‘1. Posao_1’);
Writeln;
Writeln;
Writeln;
Writeln(’2.posao_2’);
Writeln;
Writeln;
Writeln;
Writeln(’3.posao_3’);
Writeln;
Writeln;
Writeln;
Write(’odaberi posao (za prekid rada unesi 5):’);
Readln(KodOp);
Case KodOp of
1 : begin
ClrScr;
Writeln(’posao 1’);
Readln;
End;
2: begin
ClrScr;
Writeln(’posao 2’);
Readln;
End;
3 : begin
ClrScr;
Writeln(’3.posao 3’);
Readln;
End;
5: begin
End;
Else
Begin
ClrScr;
Witeln(’greska’);
Readln;
End;
End;
End;
Until KodOp=5;
End.

Tabela treba da izgleda ovako:
Ime prezime predmet opravdani neopravdani vladanje
------ ------- ------- ---- - ------ -----

Hvala unapred!!!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Koja verzija Pascala je u pitanju?