Question

POMOCY !!!
ZADANIA Z METODOLOGII PROGRAMOWANIA (programy do napisania w Dev-Pascalu) :

Zadanie 1
Napisz program który wczyta dwie liczby i poda ich sumę .

Zadanie 2
Napisz program który wczyta dwie liczby całkowite i wyświetli większą liczbę .

Zadanie 3
*Napisz program który wyliczy pierwiastek równania kwadratowego o współczynnikach a,b,c.

Zadanie 4
Napisz program który wypisuje kolejne sumy liczb 1-10 (z użyciem pętli for).

Zadanie 5
Napisz program który obliczy i wyświetli "n" podanych liczb przez użytkownika.

Zadanie 6
Napisz program który czyta kolejne liczby i liczy ich sumę aż do dojścia do 0(zero).

Answer 1

Zad1
program suma;

uses crt;

var a,b,wynik:real;

begin

clrscr;

writeln('Podaj a:');

readln(a);

writeln('Podaj b:');

readln(b);

wynik:=a+b;

writeln('Suma wynosi:', wynik:0:0);

readln;

end.
 
Zad 2
program wieksza;

uses crt;

var a,b:real;

begin

clrscr;

writeln('Podaj a:');

readln(a);

writeln('Podaj b:');

readln(b);

if a>b then

writeln(a:0:0)

else

writeln(b:0:0);

readln;

end.

 

Zad 3

program rownanie;

uses crt;

var a,b,c,delta,wynik, wynik2:real;

begin

clrscr;

writeln('Podaj a:');

readln(a);

writeln('Podaj b:');

readln(b);

writeln('Podaj c:');

readln(c);

delta:=-b-4*a*c

 

if delta<0 then

writeln('Brak pierwiastków');

 

if delta=0 then

begin

wynik:=(-b-delta)/2*a;

writeln('Pierwiastek wynosi:', wynik:0:0);

end

else

begin

wynik:=(-b-delta)/2*a;

wynik2:=(-b+delta)/2*a;

writeln('Pierwiastek wynosi:', wynik:0:0, ' i ', wynik2:0:0);

end;

readln;

end.
 
Zad 4
program petla;

uses crt;

var i:byte;

begin

clrscr;

for i:=1 to 10 do

writeln(i);

readln;

end.

 

Zad 5

niesprecyzowane, pytanie w dyskusji

 

Zadanie 6

program suma_2;

uses crt;

var wynik:real;

a:byte;

begin

clrscr;

wynik:=0

repat

writeln('Podaj liczbe do sumowania:');

readln(a);

wynik:=wynik+a;

until a=0;

writeln('Suma wynosi:', wynik:0:0);

readln;

end.