PPT Bai tap va thuc hanh 1

Ví dụ 1: Chương trình giải phương trình bậc 2 (trường hợp có hai nghiệm)... In ra màn hình diện tích và chu vi của nó...[r]

TIẾT + 10:

Program

giai_ptb2;

Uses

crt;

Var

a, b, c, d, x1, x2: real;

Begin

Clrscr;

Write(’nhap a b c ’); Readln(a, b, c);

D: = b*b-4*a*c;

X1: = (-b-sqrt(d))/(2*a);

X2: = (-b+sqrt(d))/(2*a);

Writeln(’x1 = ’,x1:6:2,’ x2 = ’,x2:6:2);

Readln

Chúng ta thử với trường hợp cụ thể sau:



Trường hợp 1: a = 1; b = 1; c = 2;

Khi chạy chương trình thấy thơng báo lỗi:

Ivanlid

floating point operation (sử dụng sai thao tác với số thực)

ở delta âm nên hàm sqrt không thực được.



Trường hợp 2: a = 1; b = 2; c = 1;

Khi chạy chương trình cho ta kết quả: x1 = -1.00; x2 =

-1.00;



Trường hợp 3: a = 1; b = -3; c = 2;

Program

tong_tich;

Var

a,b:integer;

Begin

write(‘nhap vao ba so nguyen:’);

readln(a,b);

writeln(‘tong hai so la:’,a+b);

writeln(‘tich hai so la:’,a*b);

readln

Chúng ta thử với trường hợp cụ thể sau:



Trường hợp 1: a = 3; b = 5; chạy chương

trình ta kết quả:

Program hinh_chu_nhat;

Uses Crt;

Var

a,b,s,c: real;

Begin

Clrscr;

Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); Writeln(‘ -‘); Write('Nhap chieu dai='); readln(a);

Write('Nhap chieu rong=');readln(b); s:=a*b;

c:=(a+b)*2;

Writeln('Dien tich hinh chu nhat la:’,s:6:2); Writeln('Chu vi hinh chu nhat:',c:6:2);

Readln;

Program hinh_tron;

Uses Crt;

Var

r,dt,cv:real;

Begin

Clrscr;

Writeln('TINH DIEN TICH & CHU VI HINH TRON:'); Writeln(' -'); Write ('Nhap ban kinh R=');readln(r);

dt:=pi*r*r; cv:=2*pi*r;

Writeln('Dien tich hinh tron la:',dt:6:2); Writeln('Chu vi hinh tron la:',cv:6:2); Readln;