1. Trang chủ
  2. » Giáo án - Bài giảng

phuong trinh bac nhat + so lon nhat

2 239 0
Tài liệu đã được kiểm tra trùng lặp

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 2
Dung lượng 10,66 KB

Nội dung

Phuong trinh bac nhat mot an program phuongtrinh; var a,b : real; begin wirteln('phuong trinh bac nhat co dang ax+b=0'); write('nhap a'); readln(a); write('nhap b'); readln(b); if a<> 0 then write('phuong trinh co nghiem duy nhat x:',(-b/a)); esle {a=0} if b=0 then write('moi gia tri cua x la nghiem phuong trinh'); else { a=0,b khac 0} write('phuong trinh vo nghiem'); readln; end. Tim so lon nhat program lonnhat; var a,b,c ,max:integer; begin write('nhap 3 so'); readln(a,b,c); max :=a; if max <b then max :=b; if max <c then max :=c; write('so lon nhat la',max); readln; end. Tim so nho nhat program nhonhat; var a,b,c ,min:integer; begin write('nhap 3 so'); readln(a,b,c); min :=a; if min>b then max :=b; if min>c then max :=c; write('so lon nhat la',max); readln; end. . Phuong trinh bac nhat mot an program phuongtrinh; var a,b : real; begin wirteln(&apos ;phuong trinh bac nhat co dang ax+b=0'); write('nhap. write(&apos ;phuong trinh vo nghiem'); readln; end. Tim so lon nhat program lonnhat; var a,b,c ,max:integer; begin write('nhap 3 so& apos;); readln(a,b,c);

Ngày đăng: 04/11/2013, 11:11

TỪ KHÓA LIÊN QUAN

w