Những tài liệu gần giống với tài liệu bạn đang xem
Những tài liệu bạn đã xem
Tu lieu pascal
. Giải PT bậc 1 (ax+b=0)VAR A,B:REAL; BEGIN WRITELN(`NHAP A, B: `); READLN(A,B); IF (A=0) AND (B0) THEN WRITELN(`X THUO^.C R`); IF A0 THEN WRITELN(`NGHIEM: X>`,-B/A:0:2); READLN; END. ĐỔI SỐ THÀNH CHỮ (VD: A --> TWO) VAR N:BYTE; BEGIN WRITELN(`NHAP
doc Đăng bởi
tg789tg
