VD : Viết chương trình
Tính tổng x+y
Giải pt bậc 2 một ẩn
Giai thừa của n
CODE:
PROGRAM Baitap;
USES crt;
VAR a,b,c:REAL;
n,x,y:INTEGER;
FUNCTION Tinhtong(x,y:INTEGER):INTEGER;
BEGIN
Tinhtong:=x+y;
END;
PROCEDURE GiaiPT(a,b,c:REAL);
VAR D,x1,x2:REAL;
BEGIN
D:= b*b - 4*a*c;
IF D<0 THEN Write('Phuong trinh vo nghiem ! ') ELSE
BEGIN
BEGIN x1:= (-b-sqrt(d)) /(2*a) ;x2:=(-b+sqrt(D))/(2*a); END;
Writeln('x1= ',x1:2:2);
Writeln('x2= ',x2:2:2);
END;
END;
FUNCTION TinhGT(n:BYTE):LONGINT;
VAR gt,i:LONGINT;
BEGIN
gt:=1;
FOR i:=1 TO n DO
gt:=gt*i;
TinhGT:=gt;
END;
BEGIN
Clrscr;
Write('Nhap x va y : ');
Readln(x,y);
Write('Tong la : ',Tinhtong(x,y));
Readln;
Write('Nhap he so a,b,c cua phuong trinh : ');
Readln(a,b,c);
GiaiPT(a,b,c);
Readln;
Write('Nhap n : ');
Readln(n);
Write(n,'!= ',TinhGT(n));
Readln;
END