Đuka u snijegu

[Markiša]

Trebala bi mi pomoc oko pascal programa posto iskreno ne razumijem previse to a pod hitno mi je potrebno.

 

Zadatak glasi: Napraviti program koji ce ispisati najveci prim broj koji je manji od zadanog N broja, ili ako je uneseni broj primarni da ga ispise,dakle samo najveci.. N broj se upisuje kada se pokrene program i po mogucnosti ako bi mogao ici i do 100 000.

 

Pokuso sam najbolje sta mogu objasnit sto mi treba i unaprijed se zahvaljujem svakome ko mi moze pruzit nekakvu pomoc.

[nije_zvone]

pascal nemam pojma, mogao bi drug ixy to riješit s pola lijeve ruke.... kad se pojavi. 

moj topik, moj post ima pravo bit na novoj stranici. 

bla. ekstra glupo pitanje, neugodno mi je jer ga pitam, znam da je jednostavno al, ne kužim.

Kod: [Odaberi]

#include <stdio.h>
void main(void)
{
int y = 0;
printf("%d\n", y++);
if (y)
{
int y = 5;
printf("%d\n", y);
}
printf("%d\n", y);
}

kao, treba napisat točan ispis ovog programa.
točan ispis je :

0
5
1

može mi neko objasnit zašto je ovo zadnje 1? 0 i 5 su očiti, al odakle 1?
ovako ja to gledam:

Kod: [Odaberi]

void main(void)
{
int y = 0; //y je definiran kao 0
printf("%d\n", y++); //ispisuje se 0 i zatim povećava (poslije ispisa), y je sad 1.
if (y) //uvijet -> if(Y) -> y=1 -> TRUE -> ulazi u blok naredbi.
{
int y = 5; //unutra y postaje 5, ispiše se 5
printf("%d\n", y);
}
printf("%d\n", y); //izlazi se iz bloka naredbi, y ostaje 5, ispiše se 5
}

 NO OVO NIJE TOČNO ispiše se 1 na kraju.. zakajjjjj.

[des3iny]

Kod: [Odaberi]

void main(void)
{
int y = 0; //y je definiran kao 0
printf("%d\n", y++); //ispisuje se 0 i zatim povećava (poslije ispisa), y je sad 1.
if (y) //uvijet -> if(Y) -> y=1 -> TRUE -> ulazi u blok naredbi.
{
int y = 5; //kreira se nova varijablu y, koja je izvan dosega prethodne varijable y
printf("%d\n", y);  //ispisuje 5
}
printf("%d\n", y); //izlazi se iz bloka naredbi, novi y izlazi iz vidljivosti i ovdje se referencira stari y, koji je 1
}

fix'd

prouči malo pojam scope

za pascal ne znam sintaksu, al zadatak je lagan tako da, ako se nađe pascal programer, nek slobodno napiše

[nije_zvone]

AAAAAAAAA

šema je u tom INT-u, kužim.
kad maknem int u ifu ispada kako sam ja mislio da hoće.
nisam se susreo s tim nikad. fala. 

[progabbeing-ixy]

Evo me. 
Ae, paskal.

@Markiša:

Kod: [Odaberi]

program prim_brojevi;

uses crt;            /*  da mogu koristiti naredbu clrscr  */
var n, br_djel, najveci, i, j: longint;

begin
        clrscr;           /*  čišćenje ekrana pri pokretanju programa  */
        najveci:= 0;
        write ('Unesite broj: ');
        readln (n);

        if (n < 2) then
                writeln ('Ne postoje prim brojevi manji od 2.')
        else begin
        for i:= 2 to n do begin
                br_djel:= 0;
                for j:= 2 to (round(sqrt(i))) do begin
                        if ((i mod j)  = 0) then
                        br_djel:= br_djel + 1;
                end;

        if (br_djel = 0) and (i > najveci) then
                najveci:= i;
        end;

        writeln ('Najveci prim broj manji ili jednak ', n, ' je ', najveci, '.');

        end;

        readln;

end.
Mislim da je ovo to što tražiš.
Javi ako ti ne radi kako treba ili ti nešto nije jasno.

[Dragster]

omg pascal  \/

Ixy je ima neki pristojan compiler za pascal i to za novije windowse? Volio bih onako neko windows-like okruženje pa da se vratim u mladost  

ili još bolje ako na neku šemu proradi klasičan layout ko za turbo pascal i ono, ali meni to nikako ne radi

[Markiša]

Evo me. 
Ae, paskal.

@Markiša:

Kod: [Odaberi]

program prim_brojevi;

uses crt;            /*  da mogu koristiti naredbu clrscr  */
var n, br_djel, najveci, i, j: longint;

begin
        clrscr;           /*  čišćenje ekrana pri pokretanju programa  */
        najveci:= 0;
        write ('Unesite broj: ');
        readln (n);

        if (n < 2) then
                writeln ('Ne postoje prim brojevi manji od 2.')
        else begin
        for i:= 2 to n do begin
                br_djel:= 0;
                for j:= 2 to (round(sqrt(i))) do begin
                        if ((i mod j)  = 0) then
                        br_djel:= br_djel + 1;
                end;

        if (br_djel = 0) and (i > najveci) then
                najveci:= i;
        end;

        writeln ('Najveci prim broj manji ili jednak ', n, ' je ', najveci, '.');

        end;

        readln;

end.
Mislim da je ovo to što tražiš.
Javi ako ti ne radi kako treba ili ti nešto nije jasno.

e Ixy puno puno ti hvala..radi sve bez problema..e spasio si me..jos bi trebao nastrebat sta sve znaci u detalje al to cu naci negdje sam..hvala

[progabbeing-ixy]

np

@Dragster:
Ne znam, vjerojatno postoji neko normalno okruženje za Pascal, al ja nisam "ozbiljno" programirao u Pascalu preko dvije godine.
Al kad ovako programiram jednom il dvaput godišnje, koristim FPC.

[Dragster]

skinuo, instalirao, radi. hvala ixy 



 

eto mi hobija