tailieunhanh - Bài tập pascal : Lời giải, đáp án part 2

Để nhanh chóng phổ biến rộng rãi ngôn ngữ này, một bộ công cụ chuyển mã được viết tại Zurich bao gồm một trình biên dịch sang "mã máy ảo" (hay dễ hiểu hơn, mã trung gian giữa mã máy và mã nguồn), và bộ giả lập cho loại mã này. Bộ công cụ này sau đó trở thành hệ thống giả (P-system). Mặc dù hệ thống này được phát triển nhằm tạo ra các trình biên dịch sinh mã máy trên ít nhất một hệ thống, nhưng kết quả đáng kể nhất chỉ là trình thông dịch cho hệ. | mup round exp ln 2 i -1 end readln end. Bai Program Phuong_trinh_bac_hai_nghiern_phuc var a b c delta real BEGIN writefNhap vao he so readln a b c writelnfPhuong trinh f x a x x c b. x O delta b b-4 a c if delta 0 then begin writelnfPhuong trinh co hai nghiêm phuc phan biet writelnC x1 1-b 2 a i sqrt abs delta 2 a writelnf x2 -b 2 a -i sqrt abs delta 2 a end else begin if delta o then writefphuong trinh co nghiem kep x1 x2 -b 2 a else writelnfPhuong trinh co hai nghiêm phan biet x1 -b sqrt delta 2 a x2 -b-sqrt delta 2 a end readln END. Bai Program Bat_phuong_trinh_bac_hai var a b c delta real BEGIN writefNhap vao he so a b c readln a b c 66 writeln Phuong trinh f x a xA2 c b x O delta b b-4 a c if delta 0 then begin if a 0 then writelnfBat phuong trinh tren dung voi moi X thuoc R if a 0 then writelnfKhong co gia tri X nao thoa man bat phuong trinh trên end else if delta o then begin if a 0 then writefBat phuong trinh nghiem dung voi moi X -b 2 a if a 0 then writefBat phuong trinh VO nghiem end else if delta 0 then begin if a 0 then writelnfBat phuong trinh nghiem dung voi moi X -b-sqrt delta 2 a hoac X -b sqrt delta 2 a if a 0 then writelnfBat phuong trinh nghiem dung voi -b-sqrt delta 2 a X . -b sqrt delta 2 a end readln END. Bai Program Phuong_trinh_trung_phuong var a b c delta real BEGIN write Nhap vao he so a b c readln a b c writelnfPhuong trinh f x axA4 bxA2 c O delta b b-4 a c if delta 0 then wrịte phuong trinh VO nghiem 67 else if delta o then begin if -b 2 a 0 then writefphuong trinh co 2 nghiem x1 - sqrt -b 2 a x2 sqrt -b 2 a else writefPhuong trinh VO nghiem end else delta 0 begin if -b sqrt delta 2 a 0 then writeln x1 sqrt -b sqrt delta 2 a x2 -sqrt -b sqrt delta 2 a else write Phuong trinh VO nghiem if -b-sqrt delta 2 a 0 then writeln x3 sqrt -b sqrt delta 2 a x4 -sqrt -b sqrt delta 2 a end readln END. Bai Program He_2_an var a b c d ptq dt real BEGIN writefNhap vao gia tri a b p readln a b p write Nhap vao gia tri c d