paskalis help

tai va daba sedziu gamibiniam ir man su paskaliu nekaip sekas tai gal kas daba esat isprestu man nesunku pratimuka :P

1. Parasykite programa ritinio turiui (V) ir pavirsiaus plotui (P) rasti zinoma jo aukstis (h) pagrindo spindulys ® ir formules plotui bei turiui apskaiciuoti

plotas = 2*pp+2*(pi)*r*k

pp (pagr.pl) = (pi)r kvadratu

turiui = pagrindo plotas * h

2. parasykite programa kuri skaiciuotu 5 dalyku balu vidurki funkcija arba procedura

jei kas galetu daba parasyt cia ta uzdavini buciau labai dekingas dar numesciau keleta centu :P

Cia tau skubiai reikia? Nu man 7 arba astunta info tai ten nieko nedarau galeciau padaryt tada

program ritinys;

var V, P, Spagr, h, r : integer;

begin

read(h, r);

Spagr := pi * r * r ;

P := 2 * Spagr + 2 * pi * r * h;

V := Spagr * h;

writeln(V, P);

end.

Pascalio namie neturiu tai negaliu patikrint, bet viskas tikrai gerai :P

ct nereik :P

dekui nebereikia pagelbejo vienas zmogus is mirc :P gavau 8:D ir dar pats pirmas padariau jei kam idomu atsakymai tokie buva :P

program ritinys;

uses wincrt;

var p, v, h, r:real;

begin

writeln ('Iveskite ritinio auksti');

read(h);

writeln('Iveskite pagrindo spinduly');

read®;

p:=2*r*pi*h*+2*pi*r*r;

v:=pi*r*r*h;

writeln('Plotas yra');

write(p:4:2);

writeln('Turis yra ');

write(v:4:2);

end.

program vidurkis;

uses wincrt;

var a, b, c, d, e:real;

begin

writeln('iveskite matematikos pazymi');

readln(a);

writeln('iveskite informatikos pazymi');

readln(B);

writeln('iveskite lietuviu pazymi');

readln©;

writeln('iveskite fizikos pazymi');

readln(d);

writeln('iveskite anglu pazymi');

readln(e);

writeln('pazymiu vidurkis');

d:=(a+b+c+d+e)/5;

write(d:2:1);

end.

Nu tai ir gavai astuonis nes reikejo naudoti antrame funkcija arba procedura :wink:

parasykite programa kuri skaiciuotu 5 dalyku balu vidurki funkcija arba procedura