Matematické Fórum

↑ gladiator01: No jde mi o to - nevím jestli jsou si ty jazyky aspoň nějak podobné. Pascal ve škole za chvíli bude povinný, takže ten se budu učit tak, jako tak.
Ale nevím, zda je C++ nebo C jsou s Pascalem nějak podobné. Jestli budu zase začínat od začátku, nebo už budu moci něco použít z Pascalu.
A asi máte pravdu, začnu jen s Pascalem, časem zkusím přidat tedy ten C++.

A jaký ten kompilátor si myslíte že je nejlepší? Stačil by ten Free Pascal IDE ?

↑ Honza Matika:

Doporučuji Python - dynamický prog. jazyk, snadno se v něm dělá a není tak kecaci jako JAVA, C a jim podobné jazyky a vše je komplet zadara.  Pro začátečníka dobré , jelikož se dobře učí .)

↑ Honza Matika:Různé programovací jazyky jsou dobré na různé účely, pokud to s programováním myslíš vážně, je dobré si těch jazyků vyzkoušet víc. Na programování webu ASP.NET nebo PHP, Javascript, na věci matematického charakteru Haskell, na pořádné programování je C++, Java nebo C#. Python taky nené špatný, ale poptávka je dnes hlavně po Java/C++/C#/ASP.NET progrmaátorech.Pokud to myslíš s programováním vážně, nejspíš se budeš muset alespoň dva jazyky naučit. Máš ale pravdu, že ási není úplně dobré se poštět do dvou, dokud ani v jednom neumíš napsat ani jednoduchý program.

Pascal osobně beru jen jako odrazový můstek k jazykům jako C++, C# nebo Java, proto bych neinvestoval peníze do Borlandího překladače a bral bych FreePascal (ikdyž ho neznám).

Pokud děláte v Pascalu, možná budete chtít do budoucna přejít na Delphi, což je "Pascal s okýnky".

↑ Kondr: Dík za tipy, nějaký kompilátor je u nás ve škole. (na Pascal)
Takže si ho budu moct stáhnout zadarmo. Ptal jsem se učitelky, a ta říkala, že třeba v Pascalu se dělá i v Plzni na strojárně.
A prog. jazyky jako Python, Matlab (to nevím jestli je prog. jazyk) neznala.
A z Pascalu by jsme měli přejít do Delphi.

Takže se začnu učit tedy ten Pascal.

Tak díky za rady (všem), snad to někam doprogramuji :-)

↑ Honza Matika:skús ako prostredie dev pascal a nastav ako kompilátor najnovší freepascal prípadne aj ten čo ponúka on (nie GNU pascal ten mi nechcel nič preložiť)
len grafiku aspoň mne v Dev pascale nešlo rozbehať na grafiku aj IDE freepascal nie len kompilátor

↑ Olin: Ježiš, kdybych nebyl tak blbý, tak bych to taky viděl :-) Samozřejmě, že to tam mám. Dík.

↑ Honza Matika: pri vypisu  pomoci writeln jsi zapomnel oddelit carkou retezec a promennou, musi tam byt

    writeln( 'A=', A);
    readln;
    writeln( 'B=', B);

btw: cti, co ti rika kompilator

↑ Honza Matika:
Nebylo by rychlejší

program vymen;
uses crt;
var A,B: integer;
begin
    Writeln('Tento program vymeni mezi sebou 2 cisla');
    Readln;
    Clrscr;
    Writeln( 'Zadej cislo A' );
    Readln (A);
    Writeln( 'Zadej cislo B' );
    Readln (B);
    writeln( 'A=', B);
    readln;
    writeln( 'B=', A);
    readln;
end.

:)

Zdravím znovu nevím, kde mám chybu :-(
Nemůžu to "přeložit" co mi to hlásí.

Program Kvadraticka_Rovnice;
uses crt;
var a,b,c,x_1,x_2,D: real;
begin
   writeln('Program pro vypocet korenu kvadraticke rovnice');
   writeln('Resi rovnici typu ax^2+bx+c=0');
   readln;
   clrscr;
   write('Zadej cislo a ');
   readln(a);
   write('Zadej cislo b ');
   readln(b);
   write('Zadej cislo c ');
   readln(c);
   D := b*b-4*a*c;
   if D>0 then begin
                  x_1:= (-b+sqrt(D))/(2*a);
                  x_2:= (-b-sqrt(D))/(2*a);
                  writeln('x_1= ',x_1:1:3);
                  writeln('x_2= ',x_2:1:3);
   end;
   else writeln('Rovnice nema realne reseni');
   readln;
end.

Dík.

↑ Olin: Děkuji. tak jsem to zkusil pro D=0, ale nejde to. Někde tam je chyba.

Program Kvadraticka_Rovnice;
uses crt;
var a,b,c,x,x_1,x_2,D: real;
begin
   writeln('Program pro vypocet korenu kvadraticke rovnice');
   writeln('Resi rovnici typu ax^2+bx+c=0');
   readln;
   clrscr;
   write('Zadej cislo a ');
   readln(a);
   write('Zadej cislo b ');
   readln(b);
   write('Zadej cislo c ');
   readln(c);
   D := b*b-4*a*c;
   if D>0 then begin
                  x_1:= (-b+sqrt(D))/(2*a);
                  x_2:= (-b-sqrt(D))/(2*a);
                  writeln('x_1= ',x_1:1:3);
                  writeln('x_2= ',x_2:1:3);
   end
   if D=0 then begin
                  x:=(-b)/(2*a);
                  writeln('x= ' ,x:1:3);
   end
   else writeln('Rovnice nema realne reseni');
   readln;
end.

↑ Olin: Jo vlastně. Děkuji.
Ale napadlo mě, bude toto stejné?

end
ELSE
if D = 0 then begin

end;
if D = 0 then begin

↑ Olin: Aha, tak díky moc. Vlastně je to i logické :-))