[FPS] Programos kūrimas bėda

Sveiki visi,taigi norėčiau paprašyti tiems kurie geba naudotis Pascaliu ir tie kurie nori patikrinti savo gebėjimus naudotis šiap programa pamėginti įveiktį šią užduotėlę:

*Įveskite medelio kainą ir kiekį. Apskaičiuokite, kiek reikės mokėti už medelius. Veiksmų Seka

*Įveskite medelio kainą ir kiekį. Jei žmogus perka daugiau nei 3 medelius, vieną medelį jam dovanoja. Apskaičiuoti, kiek reikės mokėti. Sąlygos sakinys

*Medelių pirkti atėjo N žmonių . Įveskite kiek atėjo žmonių. Taipogi įveskite medelio kaina ir kiekvieno kliento perkamų medelių kiekį. Jei žmogus perka daugiau nei 3 medelius,vieną medelį jam duoda nemokamai. Apskaičiuoti, kiek reikės mokėti. Ciklas For

*Įveskite klientų skaičių, medelio kainą ir kiekvieno kliento perkamų medelių kiekį. Klientų įvedimą nutraukia įvestas nulis. Jei žmogus perka daugiau nei 3 medelius,vieną medelį gauna dovanų . Apskaičiuoti, kiek reikės mokėti.

Ciklas While

* Visi duomenysturi būti išsaugoti faile medeliuduomenys.txt. Pirmoje eilutėje yra klientų skaičius, antroje medelių kaina, kitose eilutėse kiekvieno pirkėjo perkamų medelių kiekis. Jei žmogus perka daugiau nei 3 medelius,vieną medelį jam dovanoja. Apskaičiuoti, kiek reikės mokėti. Rezultatus spausdinti į failą.

Kiekvienam veiksmui-etapui sukurti failą:

Seka - seka.pas

Sąlygos sakinys - salyga.pas

Ciklui for - for.pas

Ciklui while - while.pas

Failų,duomenų naudojimui - visifailai.pas

Kas pačiam neišeina? Ar nemoki kintamojo sukurti,failo nuskaityti, sąlygos ar ciklo? Juk čia pas paprasčiausias uždavinys, naudojant pačias pagrindines funkcijas ir sąlygas.

Pačiam neišeina niekas,o dar tokių panašaus pobūdžio reikia sukurti kelias programas. Žiūrinėjausi internete panašaus pobūdžio programų,kad pats pagal jas pasidaryti,nepavyko matomai dėl to,kad dar labai menkos mano žinios šiuo reikalu. Taigi ir nusprendžiau paprašyti jūsų pagalbos,kad padėtumėte išspręst ir pagal šitą galėčiau mokintis pats ir daryti kitas.

Kažkaip nemanau, jog tau niekas neišeina, neišeina jei net nebandai daryti, kitu atveju žinotum kas nesigauna.

O tuo pačiu, nelabai kas ir darys programą už tave, kad tik tau nereiktų nieko daryt :)

Su veiksmų seka viskas aišku, sąlyga taipogi. Su ciklais bei failai bėda. Aš ir neprašau,kad būtent viską padarytų,bet bent maždaug,kad turėčiau pagal ką oreantuotis. O + jeigu žmogus nepatingės ir padarys tai pagelbės ne tik man ,bet ir sau vis pasikartodamas,įveikdamas užduotį.

Jeigu nenorite padėti,tai gal padėtumėt kas nors už simbolinį atlygį dėl kurio galėtumėme susitarti?

program Noname2;
var x,n,k,i,kaina : integer;
begin
 WriteLn('Kiek zmoniu?');
 Readln(n);
 WriteLn('Kaina?');
 Readln(k);
 WriteLn('Medaliu kiekis?');
 Readln(x);

 for i:=1 to n do
 begin
 kaina:=kaina+k*x;
 end;

 if x > 3 then
   kaina:=kaina-k*n;

 writeln('Moketi: ',kaina);

 Readln;
end.

Labai šaunu,dėkoju. QwN dėka užduotis įveikta. AČIŪ