Zadania z Pascala, HELP!

[Mocu 0]

Witam, mam takie zadania jak poniżej i potrzebuje mieć ich rozwiązania bo muszę się ich nauczyć Pascala w ogóle nie ogarniam Będę bardzo wdzięczny za pomoc.

 

Zestaw 1

 

Zad1. Napisz program wczytujący 2 liczby całkowite i wypisujący na

ekranie ich sumę.

 

Zad2. Napisz program obliczający pole całkowite sześcianu o boku a.

 

Zad3. Napisz program wypisujący wszystkie liczby od 1 do 30 i podający

ich sumę.

 

Zad4. Napisz program losujący liczby od 1 do 6 program wypisuje

wylosowane liczby na ekranie monitora. Program kończy działanie gdy

wylosuje 6.

 

Zestaw 2

 

Zad1. Napisz program wczytujący 2 liczby całkowite i wypisujący na

ekranie ich różnicę.

 

Zad2. Napisz program obliczający objętość sześcianu o boku a.

 

Zad3. Napisz program wypisujący wszystkie liczby od 30 do 1 i podający

ich sumę.

 

Zad4. Napisz program losujący liczby od 1 do 6 program wypisuje

wylosowane liczby na ekranie monitora. Program kończy działanie gdy

wylosuje 1.

 

Zestaw 3

 

Zad1. Napisz program wczytujący 2 liczby całkowite i wypisujący na

ekranie ich iloczyn.

 

Zad2. Napisz program obliczający pole kwadratu o boku a

 

Zad3. Napisz program wypisujący wszystkie liczby od 1 do 30 i podający

ich sumę.

 

Zad4. Napisz program losujący liczby od 0 do 10 program wypisuje

wylosowane liczby na ekranie monitora. Program kończy działanie gdy

wylosuje 0.

[Punisher 0]

Kolejny temat w stylu "zróbcie za mnie" bo coś tam coś tam... Ok, spoko - podaj kwotę i na sobotę mogę ci to zrobić :)

Niestety są to kompletne podstawy, więc pewnie mało kto będzie chętny ci w tym pomóc za uśmiech...

Najlepiej będzie jak sam coś napiszesz i wtedy się zgłoś. Spróbuj - poczytaj trochę i da się to zrobić.

[Mocu 0]

Kolejny temat w stylu "zróbcie za mnie" bo coś tam coś tam... Ok, spoko - podaj kwotę i na sobotę mogę ci to zrobić :)

Niestety są to kompletne podstawy, więc pewnie mało kto będzie chętny ci w tym pomóc za uśmiech...

Najlepiej będzie jak sam coś napiszesz i wtedy się zgłoś. Spróbuj - poczytaj trochę i da się to zrobić.

 

Nie będę tego komentował, bo ręce opadają.

 

 

Wracając do tematu mam kilka napisanych zadań, tylko nie wiem czy są dobre

 

 

ZESTAW 1

1.

 

 

var i,j:integer;

 

begin

read(i);

read(j);

write('Suma podanych liczb wynosi',i+j);

end.

 

 

 

2.

 

 

 

var a:real;

begin

read(a);

if(a<)then write('Bok musi byc wiekszy od 0!!!')

else

write('Pole tego szescianu wynosi',6*a*a);

end.

 

 

 

3.

 

 

var i,a:byte;

begin

a:=1;

for i:=1 to 30 do

begin

writeln(i);

a:=a+i;

end;

writeln('Suma tych liczb wynosi',a);

end.

 

 

 

4.

 

 

uses Crt;

var i:integer;

begin

randomize;

i=random(6);

if(i<>6) then

writeln(i)

else

Halt;

[Bono[UG] 1920]

3. Na początku a powinno być 0 nie 1.

4. Zabrakło pętli. Najwygodniej dać while.

[krzysiek9244 0]

dokładnie troche nie opisałeś co i jak... czy liczby maja być losowane czy podawane przez uzytkownika w zestaie zad1

Zestaw2 zad1

uses crt;
var
a,b,c:integer;
begin
clrscr;
readln(a);
readln(b);
c:=(a/b);
writeln('roznica liczb to',c:4:4); {wyswietla do 4 miejsc po przecinku}
readln;
end.

 

zad 2 zestaw 2

uses crt;
var
a,obj:integer;
begin
clrscr;
writeln('podaj bok szescianu');
readln(a);

obj:=(a*a*a);

writeln('objetosc szescianu o boku ',a,' wynosi ',obj);
readln;
end;

 

zadanie 4 zestaw 2

uses crt;
var
a:integer;
begin
clrscr;
randomize;
repeat
a:=random(6)+1;
write(a,' ');
until a:=1;
readln;
end.

 

zad1 zestaw 3

uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('podaj 2 liczby calkowite);
readln(a);
readln(b);

c:=a*b;
writeln('iloczyn tych liczb to ',c);
readln;
end.