Bai tap co ban Pascal

<span class='text_page_counter'>(1)</span>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').

<span class='text_page_counter'>(2)</span> Else Readln;. Writeln('So vua nhap vao la so le');. 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 Writeln('Phuong trinh co Else { Trường hợp a=0 và b khác Writeln('Phuong trinh vo Else { Trường hợp a khác 0 } Begin x:= -b/a; Writeln('Phuong trinh co End; Readln; End.. và b = 0 } vo so nghiem') 0 } nghiem'). nghiem la :',x:0:2);. :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..

<span class='text_page_counter'>(3)</span> PHP Code:. if a <> 0 then begin ... end; Tính delta PHP Code:. delta := b * b - 4 * a * c; Kiểm tra delta và thực hiện theo thuật toán. PHP Code:. if delta = 0 then begin ... end; if delta > 0 then begin ... end; if delta < 0 then begin ... end; Chương trình hoàn chỉnh. PHP Code:. var a, b, c, x1, x2, delta : real; begin Write('Chuong trinh giai phuong trinh bac hai'); Write('a = '); Readln(a); Write('b = '); Readln(b); Write('c = '); Readln(c); delta := b * b - 4 * a * c; if delta < 0 then begin Write('Phuong trinh vo nghiem'); end; if delta = 0 then begin Write('Phuong trinh co nghiem kep: x1 = x2 = ', -b/(2 * a)); end; if delta > 0 then begin x1 := (-b - SQRT(delta))/(2 * a); x2 := (-b + SQRT(delta))/(2 * a); Writeln('Phuong trinh co nghiem kep:') Writeln('x1 = ', x1); Writeln('x2 = ', x2); end; end. Viết chương trình tính tổng S = 1+2+...+N..

<span class='text_page_counter'>(4)</span> Cách 1: Dùng vòng lặp FOR. Code: Program TinhTong; Uses crt; Var N,i,S:integer; Begin Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; For i:=1 to N do S:=S+i; Writeln('Ket qua la :',S); Readln; End.. Cách 2: Dùng vòng lặp REPEAT. Code: Program TinhTong; Uses crt; Var N,i,S:integer; Begin Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; i:=1; Repeat S:=S+i; i:=i+1; Until i>N; Writeln('Ket qua la :',S); Readln; End.. Cách 3: Dùng vòng lặp WHILE. Code: Program TinhTong; Uses crt; Var N,i,S:integer; Begin Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; i:=1; While i<=N Do Begin S:=S+i; i:=i+1; End; Writeln('Ket qua la :',S); Readln; End..

<span class='text_page_counter'>(5)</span>