Bài tập cơ bản Pascal

 Bài tập pascal.
Viết chương trình nhập vào 2 số nguyên dương a và b, chỉ sử dụng phép tính cộng trừ. Hãy tính tổng, hiệu, tích hoặc số dư nếu có của 2 số đó
ar a,b:integer;
i:integer;
s = 0:integer;
dem = 0;

begin
writeln("nhap vao 2 so a,b");
readln(a,b);

writeln("tong: ",a+b);

writeln("hieu: ",a-b);

for i:= 1 to b do s:=s+a;
writeln("tich: ",s);

while(a>b) do begin
if (a>b) a:=a-b;
dem:=dem+1;
end;
write("thuong ",a"/",b" co thuong la: ",dem,"du la: ",a);


Bài tập 1: Viết chương trình nhập vào độ dài hai cạnh của tam giác và góc giữa hai cạnh đó, sau đó tính và in ra màn hình diện tích của tam giác Ý tưởng: Công thức tính diện tích tam giác: S = a*b*sin(x)/2 với a,b là độ dài 2 cạnh và x là góc kẹp giữa 2 cạnh a và b. :xarbeit01: Chuơng trình 
Code
Program Tinh_dien_tich_tam_giac;
Var a,b,x,dientich: Real;
Begin
Write(`Nhap vao do dai canh thu nhat: `); Readln(a);
Write(`Nhap vao do dai canh thu hai: `); Readln(b);
Write(`Nhap vao goc giua hai canh: `); Readln(x);
Dientich:=a*b*sin(x)/2;
Writeln(`Dien tich cua tam giac la:`,Dientich:0:2);
Readln;
End.

Bài tập 2: Viết chương trình nhập vào một số nguyên và kiểm tra xem số vừa nhập là số chẵn hay số lẻ :xarbeit01:
Code:
programe ktra_chan_le;
Uses crt;
Var x:integer;
Begin
Write(`Nhap vao mot so nguyen : `); Readln(x);
If x MOD 2=0 Then
Writeln(`So vua nhap vao la so chan`)
Else
Writeln(`So vua nhap vao la so le`);
Readln;
End.
:xarbeit01:

Bài tập 3: Viết chương trình giải phương trình bậc nhất ax+b=0 :xarbeit01:
Code:
Uses Crt;
Var a,b,x : real;
Begin
Write(`a = `); Readln(a);
Write(`b = `); Readln(b);
If a = 0 Then { Nếu a bằng 0 }
If b = 0 Then { Trường hợp a = 0 và b = 0 }
Writeln(`Phuong trinh co vo so nghiem`)
Else { Trường hợp a=0 và b khác 0 }
Writeln(`Phuong trinh vo nghiem`)
Else { Trường hợp a khác 0 }
Begin
x:= -b/a;
Writeln(`Phuong trinh co nghiem la :`,x:0:2);
End;
Readln;
End.
:xarbeit01:

Giải phương trình bậc hai
Thuật giải: 1. Nhận các hệ số a, b, c từ người sử dụng 2. Nếu a = 0 không xét vì không còn là tam thức 3. Ngược lại nếu a # 0 delta = b*b - 4*a*c  - Nếu delta < 0 thì phương trình vô nghiệm - Ngược lại nếu delta = 0 thì Phương trình có nghiệm kép: x1 = x2 = -b/2a - Ngược lại nếu delta > 0 thì phương trình có hai nghiệm phân biệt:  x1 = (-b - sqrt(delta))/(2*a) và  x1 = (-b + sqrt(delta))/(2*a) sqrt: là căn bậc hai (do trong này ko có dấu căn bậc hai nên để như vậy cho dễ nhìn) Khai báo các biến sử dụng trong chương trình.
PHP Code:
var    a, b, c : real;    x1, x2, delta : real;  
nhập các hệ số của tam thức:
PHP Code:
Write(`a = `); Readln(a); Write(`b = `);Readln(b); Write(`c = `);Readln(c);  
Kiểm tra a