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;