vau truc re nhanh

... , b : ‘); Readln(a,b); IF a>b THEN Writeln(‘a la so lon nhat’) ELSE Writeln(‘b la so lon nhat’); Readln; END. PROGRAM SOLON; VAR a,b:integer; BEGIN Write(‘Nhap 2 so a , b : ‘); Readln(a,b); ... VAR a,b:integer; t:real; BEGIN Write(‘Nhap 2 so a , b : ‘); Readln(a,b); IF b<>0 THEN Begin t:=a/b; Writeln(‘Thuong la : ’,t:10:2); End ELSE Writeln(‘Khơng chia duoc’); Readln; END. Bài t ......

Ngày tải lên: 08/07/2013, 01:25

... 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

... so nguyen a’); Read(a); If a mod 2=0 then Write( ‘ a la so chan ’) Readln END. Program kiemtra; Uses Crt; Var a,b,c: integer; BEGIN Clrscr; Write(‘ Nhap vao 3 so nguyen a,b,c); Readln(a,b,c); ... 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’)...

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

... thương 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.

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

... “Phương trình vô nghiệm” Program Giai_PTB2; uses crt; Var a,b,c:real; D,x1, x2 : real; Begin clrscr; write(‘ nhap cac he so a,b,c’); readln(a,b,c); D:=b*b-4*a*c; If D < 0 then Writeln(‘Phuong ... clrscr; write(‘Nam: ‘); readln(N); if (N mod 400 = 0 ) or (( N mod 4 ) and (N mod 100 <> 0)) then SN:=366 else SN:=365; Writeln(‘ So ngay cua nam’, ‘ la ‘,SN); readln End. ... else begin x1:...

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

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

Ngày tải lên: 30/06/2013, 01:27