Darexs

Atrodo 500$

Sveikinu :)

Beje, chebra, ko nebesilankot #Earncash kanale? :D ar bent #uzdarbis.lt pamiršot senus mIRC blevyzgų laikus :/ O aš vis dar ten sėdžiu ir palaikau gyvybę..

Pagarba :)

Viskas aišku tada, prieš tai pagalvojau, kad T-Mix sukūrė atskirą subforumą programuojantiems Free Pascal'iu. :)

Na va visi patenkinti likom :D radom bendrą kompromisą.

Galbūt čia bus pirmas kartas, kada Tau visiškai nepritariu. Kodėl reikia išskirti Free Pascal? Vien dėl moksleivių? Yra bendra skiltis apie programavimą ir jos, manau, užtenka. O jeigu jau imamės tokių veiksmų, tai dar reiktų sukurti skiltis "Turbo Pascal", "C", "C++", "Perl", etc. Dabar bus išskiriami tik tie, kurie programuoja Free Pascal'iu, o kiti programuotojai bus nugrūsti į bendrą skiltį...

 

Free Pascal nėra kažkuo pranašesnis už kitas programavimo kalbas. :)

Čia tik mano asmeninė nuomonė.

Jis tikrai pranašesnis už išvardintas programavimo kalbas, galbūt ne savo galimybėmis, o vertybėmis. Tai kaip ir minėjau yra programuotojo kelio pradžia. Pasaulyje rengiami konkursai, išaiškinantys geriausius programuotojus jaunimo tarpe, ne su C ar C++, o būtent su Free Pascal programa. Reikia puoselėti jaunąją kartą, kuriai priklausau ir aš ir T-Mix ir daugelis čia besilankančių žmonių.

Kiek pamenu, vasario 7 d. :)

Gerai pameni, vasario 7d. vyks antras etapas.

Tikrai neblogas pasiūlymas. Skiltis sukurta. :D

Puikus sprendimas - žinojau, kad pritarsi. :)

Tokius uždavinius, kuriuos kasdien kas nors prašo išspręsti, neišsprendžia tik tie, kurie visiškai nesimokina.

Skiedalai. Pažiūrėk šioje temoje kokį uždavinį įveikė T-Mix http://www.uzdarbis.lt/Pascalis-t70424.html . Čia tik viena pavyzdį pateikiau, bet žinoma yra ir daugiau. Tokie uždaviniai man sunkūs. Aš programuoju laisvalaikiu turėdamas laiko jau 2m. ir pamatęs kaip programuojama T-Mix tikrai jam lenkiuosi. Tu su tokiais teiginiais žemini žmones kurie puoselėja šią programavimo kalbą.

Tai tu taip nedaryk. Vistiek, google ras žymiai daugiau info tokia tematika, nei čia bus prirašyta per šį šimtmetį.

Čia kažkokius skaičiavimus atlikai ar remiesi savo spėjimu, o gal siūlai naudotis Google ir daugiau čia temų susijusių su Free Pascal nerašinėti? Čia jau gaunasi forumo diskriminacija. Tu nevertini šio nuostabaus forumo ir nespręsk GOOGLE atžvilgiu apie jį. Tai du skirtingi dalykai.

tai kur tu forume matai kad butu del 1 programos sukurtas subforumas?

joks ten zmoniu klaidinimas

Čia ne šiaip programa, čia Free Pascal, šį programa mano manimu yra daugumos programuotoju kelio pradžia. Ji naudojama mokslo įstaigose, todėl yra labai svarbi, dėl to manau ji verta atskiros skilties.

del vienos programos nemanau kad reikia nauja subforuma sukurti :)

cia Tinklapių kūrimas -> Programavimas kaip tik tam vieta

Čia gaunasi žmonių klaidinimas. Tinklapių kūrimas ir programavimas Free Pascal neturi nieko bendro.

Dauguma parašo tikėdamiesi ne pagalbos, o pilnos programos parašymo.

 

Vistiek tokiais atvejais nie nieko neišmoksta ir pan.

Nespręsk pagal save apie kitus.

Ner ir dabar taip blogai, kad ten paraso.. :)

Nesutikčiau. Atskira skiltis būtų daug geriau. Šį forumą moksleiviai vertintų dar labiau, jei būtų atsižvelgta į jų interesus, sukuriant skiltį programuotojams.

29

Sveiki,

manau reiktu sukurti naują skiltį skirtą žmonėms programuojantiems Free Pascal programa. Pažiūrėkite forume žmonės ieškantys pagalbos šioje srityje kuria naujas temas visai ten kur joms ne vieta. Pvz: Tinklapių kūrimas -> Programavimas arba Kompiuteriai ir internetas.

Turbūt kyla klausimas, ar verta kurti naują skiltį?

Drąsiai atsakau verta, nes:

1. Pascalis naudojamas mokyklose, todėl besimokantys programuoti turės galimybę atskiroje skiltyje padėti vieni kitiems, įgauti naujų žinių.

2. 80 proc. Valstybinio egzamino užduočių susideda iš programavimo, todėl abiturientai planuojantis laikyti valstybinį egzaminą uzdarbis.lt forume galės tikslingai eiti į tam skirtą skiltį ir rasti reikiamą informaciją.

Jei dar žinote argumentų dėl ko verta kurti šia skilti, parašykite juos :)

32. Duota tipo apibrėžtis ir procedūra:

type rašau = (pieštuku, parkeriu, tušinuku);

spalva = (žalia, mėlyna, raudona,juoda);

procedure dirbu (n : integer; var r : rašau;

var sp : spalva);

var i : integer;

begin

for i := 1 to n do begin

if sp = juoda then sp := žalia;

if r = tušinuku then r :=pieštuku;

if r =pieštuku then sp := succ(sp);

r := succ®

end

end;

Man šita programa nesuprantama, todėl padėti negaliu. Gal yra žmonių kurie darė kažką panašaus, ar bent nutuokia kaip daryti.

Aš tai pat dalyvausiu :) Patekau į kitą etapą. (Šiaulių aps.)

Beje, norėdamas šiek tiek pasiruošti ir aš Kazicko konkursui (Aukštaitija, kitą penktadienį, gal kas dalyvausit? :)), parašiau tą programą, kur klausei, tai įdedu, jei kas norės pasinagrinėti: :D

O gal dalyvauji ir kituose olimpiadose? Nes aš savo rajone antrą vietą užėmiau ir patekau toliau į Šiaulių aps. programuotojų olimpiadą.

aciu uz pagalba darex. bet destyojui netiks, nes su type turi but padaryta

Padariau su type. Jei reiks pagalbos sakyk, nes laisvalaikiu kai neturiu ką veikti mėgstu programuoti.

program zemynai;
const max = 100;
type mas = array [1..max] of string;

//Funkcija
  function nustatom (var ats: mas; salis:string) :string;
  var i: integer;
  begin
  i:=1;
  //EUROPA
  if 'lietuva' = salis then ats[i] := 'Europai';
  if 'latvija' = salis then ats[i] := 'Europai';
  if 'estija' = salis then ats[i] := 'Europai';
  //EUROPA

  //AFRIKA
  if 'nera' = salis then ats[i] := 'Afrikai';
  //AFRIKA

   //AMERIKA
  if 'nera' = salis then ats[i] := 'Amerikai';
  //AMERIKA

   //AZIJA
  if 'nera' = salis then ats[i] := 'Azijai';
  //AZIJA

  //IR T.T.

  end;
//Funkcijos pabaiga

var duomenys:string; zemynas:mas;
begin
writeln('Áveskite valstybës pavadinimà?');
read(duomenys);
nustatom(zemynas,duomenys);
write('Nurodyta valstybë priskirta: ',zemynas[1]);
Readln;
Readln;
end.

Čia pats šitą programą rašei? Aš neesu matęs didesnės nesąmonės.

Sudarykite funkciją, atsakančią į klausimą „Kuriame žemyne yra nurodyta valstybė?" Kiekvienam žemynui (išskyrus Antarktidą ir Australiją) parinkite ne mažiau kaip po 5 žinomas ir ne mažiau kaip po 5 mažai žinomas valstybes.

 

gal galit kas padet? :/

Na galėjai sąlygą truputi aiškiau aprašyti, bet kaip supratau, taip ir padariau. Duomenis susivesi pagal save, keletą pavyzdžių parašiau.

p.s. Jei reiks galiu pataisyti.

program zemynai;

//Funkcija
  function nustatom (var ats: string; salis:string) :string;
  begin
  //EUROPA
  if 'lietuva' = salis then ats := 'Europai';
  if 'latvija' = salis then ats := 'Europai';
  if 'estija' = salis then ats := 'Europai';
  //EUROPA

  //AFRIKA
  if 'nera' = salis then ats := 'Afrikai';
  //AFRIKA

   //AMERIKA
  if 'nera' = salis then ats := 'Amerikai';
  //AMERIKA

   //AZIJA
  if 'nera' = salis then ats := 'Azijai';
  //AZIJA

  //IR T.T.

  end;
//Funkcijos pabaiga

var duomenys, zemynas:string;
begin
writeln('Įveskite valstybės pavadinimą?');
read(duomenys);
nustatom(zemynas,duomenys);
write('Nurodyta valstybė priskirta: ',zemynas);
Readln;
Readln;
end.

40

23

18lt.

30lt.

25lt.