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á[r]
(1)Bài tập pascal Viết chương trình nhập vào số nguyên dương a và b, sử dụng phép tính cộng trừ Hãy tính tổng, hiệu, tích số dư có số đó ar a,b:integer; i:integer; s = 0:integer; dem = 0; begin writeln("nhap vao so a,b"); readln(a,b); writeln("tong: ",a+b); writeln("hieu: ",a-b); for i:= to b s:=s+a; writeln("tich: ",s); while(a>b) 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 tam giác và góc hai cạnh đó, sau đó tính và in màn hình diện tích 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 cạnh và x là góc kẹp 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 dai canh thu nhat: '); Readln(a); Write('Nhap vao 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 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') (2) 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 ax+b=0 :xarbeit01: Code: Uses Crt; Var a,b,x : real; Begin Write('a = '); Readln(a); Write('b = '); Readln(b); If a = Then { Nếu a } If b = Then { Trường hợp a = 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 } Begin x:= -b/a; Writeln('Phuong trinh co End; Readln; End và b = } vo so nghiem') } nghiem') nghiem la :',x:0:2); :xarbeit01: Giải phương trình bậc hai Thuật giải: Nhận các hệ số a, b, c từ người sử dụng Nếu a = không xét vì không còn là tam thức Ngược lại a # delta = b*b - 4*a*c - Nếu delta < thì phương trình vô nghiệm - Ngược lại delta = thì Phương trình có nghiệm kép: x1 = x2 = -b/2a - Ngược lại delta > 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à bậc hai (do này ko có dấu bậc hai nên để cho dễ nhìn) Khai báo các biến sử dụng chương trình PHP Code: var a, b, c : real; x1, x2, delta : real; nhập các hệ số tam thức: PHP Code: Write('a = '); Readln(a); Write('b = ');Readln(b); Write('c = ');Readln(c); Kiểm tra a (3) PHP Code: if a <> then begin end; Tính delta PHP Code: delta := b * b - * a * c; Kiểm tra delta và thực theo thuật toán PHP Code: if delta = then begin end; if delta > then begin end; if delta < 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 - * a * c; if delta < then begin Write('Phuong trinh vo nghiem'); end; if delta = then begin Write('Phuong trinh co nghiem kep: x1 = x2 = ', -b/(2 * a)); end; if delta > 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 (4) 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 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 (5)