Valaki leprogramozna nekem 1-2 feladatot Pascalban?

"Bocsi a bénaságomért, lány vagyok."

Ez nem mentség.

Tessék Ada Lovelace-re gondolni az első programozók egyikére (1800-as évek végén).

Vagy ott van az Eniac, amit hölgyek kezeltek:

[link]

Mit nem tudsz megcsinálni?

Kiíratni dolgokat? - ott a write vagy a writeln:

[link]

Végigmenni 1-től 10-ig? - arra szolgálnak a ciklusok:

[link]

[link]

[link]

Négyzetre emelés? - vagy önmagával szorzod a számot:

negyzet := szam * szam;

vagy ott a power függvény:

[link]

esetleg az sqr:

[link]

Négyzetgyök? - sqrt függvény:

[link]

Ez nem úgy működik, hogy "lány vagyok, csináljátok meg a házimat".

Írd le, hogy mi nem megy és kapsz segítséget.

Ha ez nem pálya, akkor meg párezer forintért biztos megcsinálja neked valaki, ha nagyon unatkozik.

De, ez így működik, egy lány könnyen kaphat segítséget pár kedves szóért cserébe... :)

Ezek borzasztó egyszerű feladatok, még tanulni se kell hozzájuk, kaptál fentebb elég linket, azok bőven elegek lesznek. Ha elkezded és megmutatod, hogy mi nem megy, akkor megnézzük mi a gond, de megírni én se fogom neked, mert túl szemérmetlenül próbáltad kihasználni, hogy lány vagy, mintha ezzel bármit megkaphatnál. Valami csábítóbb ajánlatot mondj.

Aki programozással foglalkozik, annak ilyen feladatok nem túl izgalmasak. :)

De biztos lesz önként jelentkező, lelkes fiú, ha azt mondod, hogy adsz neki egy puszit cserébe vagy küldesz neki egy képet magadról.

Hogy egy kicsit előrébb vigyelek, az utolsó programot leírom:

program hazi;

begin

writeln('Hello Pascal!');

end.

Hadd javítsam ki:

writeln('Hello Pascal!');

WriteLn('Hello Pascal!');

Ha már kioktatol helyesen tedd !

Sajnos, én már nem vagyok srác és még a végén rám fognák, hogy pedofil vagyok, de tessék:

program hazi_feladat;

var i : byte;

begin

WriteLn('Számok négyzete 1-től 10-ig');

for i := 1 to 10 do WriteLn(Sqr(i));

WriteLn('Számok négyzetgyöke 1-től 10-ig, 5 tizedesjegyig');

for i := 1 to 10 do WriteLn(Sqrt(i):0:5);

WriteLn('8 + 2 = Tíz');

WriteLn('Hello Pascal!');

ReadLn;

end.