Cau lenh re nhanh

... Program giai_ptb2; uses crt; var a, b, c: real; D, x1, x2: real; begin clrscr; Write(‘ a = ‘); Readln(a); Write(‘ b = ‘); Readln(b); Write(‘ c = ‘); Readln(c); D := b*b - 4*a*c; if if D > ... .... Thỗ Thỗ... Nóỳu khọng Nóỳu khọng thỗ thỗ.... 1. Caùc vờ duỷ vóử re nhaùnh 1. Caïc vê duû vãö re 1. Caïc vê duû vãö re nhaïnh nhaïnh Nháûp a, b, c D ← b 2 -4ac D ≥ 0 Thäng baïo vä Nghiãûm, ......

Ngày tải lên: 16/06/2013, 01:25

... SỐ 2 ĐAKRÔNG Gv: Phan Xuân Trí Quảng Trị 10.2010 Bo o t fro m CD : Disk boot failure, insert system disk and press enter. Tr­êng: THPT sè 2 ®akr«ng Tæ: To¸n Lý tin– – GV: Phan xu©n trÝ 1. RÏ

Ngày tải lên: 18/10/2013, 20:11

... (a){case 1 : printf(“Mot”); break;case 1 : printf(“MOT”); break;case 2 : printf(“Hai”); break;case 3 : printf(“Ba”); break;case 1 : printf(“1”); break;case 1 : printf(“mot”); break;default : printf(“Khong ... printf(“Mot”); break;case 2 : printf(“Hai”); break;case 3 : printf(“Ba”); break;}} VC&BB1212Câu lệnh switch (đủ)switch (<Biến/BT>){<GT1>:<Lệnh 1>;break;<GT2>:...

Ngày tải lên: 04/09/2012, 15:59

... crt;•Var a, b, c, d, x1, x2: real;Var a, b, c, d, x1, x2: real;•BeginBegin• Clrscr;Clrscr;•Writeln (‘Nhap cac he so a, b, c’);Writeln (‘Nhap cac he so a, b, c’);•Readln (a,b,c);Readln (a,b,c);•d:= b*b ... sqrt(d))/(2*a):0:8);writeln (‘x2=’,(-b - sqrt(d))/(2*a):0:8);• end;end;•readln;readln;•End.End. Ví dụ 2: Ví dụ 2: Tìm số ngày của năm N, biết rằng năm nhuận là Tìm số ... N, sn: integer;Va...

Ngày tải lên: 06/09/2012, 16:57

... Clrscr; Writeln (‘Nam’); readln (N);If (N mod 400 = 0) or ((N mod 4 = 0) and (N mod 100 <> 0)) then sn:= 366 else sn:= 365;Writeln (‘So ngay cua nam’, N, ‘ la ’, sn);Realdn;End.D. Củng cố ... Thuyết trình: (Sau khi học sinh viết chương trình xong nhận xét và chữa bài).5’15’ so a, b, c’);Readln (a,b,c);d:= b*b – 4*a*c;if D<0 then writeln (‘Phuong trinh vo nghiem’)else if D=0 then ......

Ngày tải lên: 10/09/2012, 14:56

... b>a b>a then then Max:=b Max:=b ; ;  Cách 2:  If a>b Then Max:=a  Else Max:=b; Cách nào nhanh hơn,tiện hơn? Vì sao? Cách 2: Tiện hơn, hay hơn vì chỉ sử dụng 1 câu lệnh.   3. 3. Câu

Ngày tải lên: 01/06/2013, 08:47

... End. Ví dụ: Begin Write(’a, b, c’); Readln(a,b,c); D:= b*b-4*a*c; X1:=(-b-sqrt(D))/(2*a); Dãy các lệnh X2:=(-b+sqrt(D))/(2*a); Write(’X1=’,X1:6:2,’X2= ’,X2:6:2); Readln; End. VD: Ta có mệnh đề sau:

Ngày tải lên: 07/06/2013, 01:26

... lệnh… Bài tập 2: Viết CT… BÀI TẬP BÀI TẬP Program gptb2; Var a, b, c, d, x1, x2: real; Begin write(‘nhap a, b, c:’); readln(a, b, c); d:=b*b-4*a*c; if d<0 then writeln(‘Phuong trinh vo nghiem’) ... x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln(‘nghiem x1=’, x1:6:2, ‘x2=’, x2:6:2); end; readln End. Bài toán: Bộ số Pi-ta-go: Biết rằng bộ ba số nguyên dương a, b, c được...

Ngày tải lên: 08/06/2013, 01:26

... LỆNH GHÉP MỘT SỐ VÍ DỤ Program Giảipt_bac2; Var a,b, c,d: Integer; x,x1,x2: Real; BEGIN Write(‘ Nhap vao 3 so a,b,c’); readln(a,b,c); D:=sqr(b)-4*a*c If D<0 then Writeln(‘Phuong trinh vo nghiem’) Else If ... LỆNH GHÉP MỘT SỐ VÍ DỤ Program doicho; Var a,b,tg: Integer; BEGIN Write(‘ Nhap vao 2 so a,b’); readln(a,b); If a>b then {doi cho b cho a} Begin tg:=a; a:=b; b:=tg; Write(‘ Ket q...

Ngày tải lên: 15/06/2013, 01:25

... 2 số đó CAÁU TRUÙC RE NHAÙNH • Program TinhThuong; • Uses crt; • Var a,b: real; thuong: real; • Begin Clrscr(); Write (‘nhap a: ’); readln(a); Write (‘nhap b: ’); readln(b); If (b=0) then ... (b=0) then write (‘ khong chia duoc’) Else begin thuong:=a/b; write (a,‘/’,b,’=’,thuong); end; Readln(); • End. CẤU TRÚC RẼ NHÁNH • I. Rẽ Nhánh – Cho 2 câu: • 1. Chiều mai nếu trời không mưa

Ngày tải lên: 21/06/2013, 01:25