Gal pagelbėtumete su pascaliu ?

Visus šiuos uždavinius reikia išspręsti proceduros arba funkcijos būdu.

1. Pasaulyje vis dar labai populiari colinė matavimo sistema: 12 colių sudaro 1 pėdą, 3 pėdos- 1 jardą, 1 colis= 2,54 cm. Parenkite programą, kuri metrinės matavimo sistemos vienetus, t.y. metrus nuo 1 iki 5, parverstų colinės matavimi sistemos vienetais.

Rezultatai

1 metras - 39,37 coliai - 3.28 pėdos - 1,09 jardai

5 metrai - 196,85 coliai - 16,40 pėdos - 5,47 jardai.

2.Gerai užderėjus obuolių derliui, ūkininkai nusprendė gaminti obuolių sultis. Pagamintas sultis išpilstė 5, 2 ir 1 litro talpos indus. Kiekvienas ūkininkas pirmiausia užpildė 5, po to 2 ir po to 1 litro talpos indus. Parenkite programą, kuri apskaičiuotų, kiek 5,2 ir 1 l talpos indų buvo pagaminta.

Pirmoje pradinių duomenų failo eilutėje įrašytas ūkininkų skaičius n. Tolesnėje n eilučių - kiekvieno ūkininko pagamintų sulčių kiekis litrais. Į rezultatų failą turi būti surašyti kiekvieno ūkininko pagamintų obuolių sulčių 5, 2 ir 1 litro talpos indų skaičiai, vienas nuo kito atskirti tarpais. Kiekvienam ūkininkui skiriama viena eilutė.

Pradiniai duomenys Rezultatai

3 9 0 0

45 18 1 0

92 6 1 1

33

Visus šiuos uždavinius reikia išspręsti proceduros arba funkcijos būdu.

 

1. Pasaulyje vis dar labai populiari colinė matavimo sistema: 12 colių sudaro 1 pėdą, 3 pėdos- 1 jardą, 1 colis= 2,54 cm. Parenkite programą, kuri metrinės matavimo sistemos vienetus, t.y. metrus nuo 1 iki 5, parverstų colinės matavimi sistemos vienetais.

 

Rezultatai

 

1 metras - 39,37 coliai - 3.28 pėdos - 1,09 jardai

5 metrai - 196,85 coliai - 16,40 pėdos - 5,47 jardai.

 

2.Gerai užderėjus obuolių derliui, ūkininkai nusprendė gaminti obuolių sultis. Pagamintas sultis išpilstė 5, 2 ir 1 litro talpos indus. Kiekvienas ūkininkas pirmiausia užpildė 5, po to 2 ir po to 1 litro talpos indus. Parenkite programą, kuri apskaičiuotų, kiek 5,2 ir 1 l talpos indų buvo pagaminta.

 

Pirmoje pradinių duomenų failo eilutėje įrašytas ūkininkų skaičius n. Tolesnėje n eilučių - kiekvieno ūkininko pagamintų sulčių kiekis litrais. Į rezultatų failą turi būti surašyti kiekvieno ūkininko pagamintų obuolių sulčių 5, 2 ir 1 litro talpos indų skaičiai, vienas nuo kito atskirti tarpais. Kiekvienam ūkininkui skiriama viena eilutė.

 

Pradiniai duomenys Rezultatai

3 9 0 0

45 18 1 0

92 6 1 1

33

Čia 12kl ?

Kas tiksliai nesigauna ? Su kokiomis problemomis spręsdamas susiduri, nes visos programos nemanau kad kas nors tau rašys. Šioks toks orientyras sprendžiant pačiam.

1. Manau problemų nėra, tiesiog skaityk sąlygą ir versk tuos metrus į colius ir t.t.

2. Paprasčiausia nuskaitai duomenis. Jei itasis ūkininkas turi V sulčių, tuomet į 5 litrų tilps: a = V/5 , jei išpstei jau a litrų sulčių tuomet tą patį darai su kitais.

Nurodyk tiksliai kas nesigauna, tuomet bandysim padėt daugiau.

na joo jau programą visą tau rašyt būtų kažkaip, nelabai, ant kelio užvest ir padėt taip pat galiu :) parodyk savo parašytą programą, gal rasim klaidų padėsim :)

12 klasė čia. Tiesiog žalias aš ant programavimo, net nežinau nuo ko pradėt..

12 klasė čia. Tiesiog žalias aš ant programavimo, net nežinau nuo ko pradėt..

Neturiu ką ir bepridurt :)

http://www.taoyue.com/tutorials/pascal/

Šiaip ne taip kažką padariau, bet vistiek neina galai.. Colius apskaičiuoja gerai, bet jardus ir pėdas - ne ;/ Gal galit pagelbėt?

program Bevardë9;

function sistema(var x:real):real;

begin

x:=10000/254;

sistema:=x;

end;

var peda,jardas,colis,x:real;

i:integer;

begin

for i:= 1 to 5 do

begin

colis:=sistema(x)*i;

peda:=colis/12*i;

jardas:=peda/3*i;

writeln(i,' ',colis:0:2,' ',peda:0:2,' ',jardas:0:2);

end;

Readln;

end.

Šiaip ne taip kažką padariau, bet vistiek neina galai.. Colius apskaičiuoja gerai, bet jardus ir pėdas - ne ;/ Gal galit pagelbėt?

 

program Bevardë9;

function sistema(var x:real):real;

begin

x:=10000/254;

sistema:=x;

end;

var peda,jardas,colis,x:real;

i:integer;

begin

for i:= 1 to 5 do

begin

colis:=sistema(x)*i;

peda:=colis/12*i;

jardas:=peda/3*i;

 

writeln(i,' ',colis:0:2,' ',peda:0:2,' ',jardas:0:2);

end;

 

Readln;

end.

Viskas pas tave beveik gerai, tik durną klaidelę įvėlei ties pedu ir jardu skaiciavimu. Nebereikia tuomet iš i daugint. Rodos gerai veikianti programa:

program Bevardė9;

function sistema(var x:real):real;

begin

x:=10000/254;

sistema:=x;

end;

var peda,jardas,colis,x:real;

i:integer;

begin

for i:= 1 to 5 do

begin

colis:=sistema(x)*i;

peda:=colis/12;

jardas:=peda/3;

writeln(i,' ',colis:0:2,' ',peda:0:2,' ',jardas:0:2);

end;

Readln;

end.

Štai ir mano versija pirmos užduoties:

program UzduotisNr1;

var

coliai, pedos, jardai : real;

metras : integer;

function MetraiToColiai(metrai: real): real;

const colis = 2.54;

begin

MetraiToColiai := (metrai * 100) / colis;

end;

begin

for metras := 1 to 5 do

begin

Coliai := MetraiToColiai(metras);

Pedos := Coliai / 12;

Jardai := Pedos / 3;

writeln('Metrai: ', metras, ' - Coliai: ', coliai:2:2,

' - Pëdos: ', pedos:2:2, ' - Jardai: ', jardai:2:2);

end;

Readln;

end.

O štai ir antra užduotis:

program UzduotisNr2;

var

n, //ukininkai

k, //ciklui kintamasis

kiekis, //bendras litrų kiekis

penki, du, vienas : integer; //talpa litrais

textas : text;

procedure penkiLitr(var litrai:integer);

begin

penki += 1;

litrai -= 5;

end;

procedure duLitr(var litrai:integer);

begin

du += 1;

litrai -= 2;

end;

procedure skaiciavimas(var litrai:integer);

begin

penki := 0;

du := 0;

vienas := 0;

while litrai >= 5 do penkiLitr(litrai);

if litrai >= 2 then

begin

while litrai > 1 do duLitr(litrai);

end;

if litrai = 1 then vienas := 1;

writeln(penki, ' ', du, ' ', vienas);

end;

begin

assign(textas, 'C:\Duomenys.txt'); //Direktoriją ir failo pavadinimą pasikeisk pagal poreikį

reset(textas);

Readln(textas, n);

for k := 1 to n do

begin

readln(textas, kiekis);

skaiciavimas(kiekis);

end;

close(textas);

readln;

end.