Tin học [pascal 11] Viết chương trình

[tryvatly]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1. Một hộ nghèo vay vốn của ngân hàng chính sách, được vay 30 triệu đồng với lãi suất ưu đãi 0,5 % / tháng, lãi không nhập vốn để tính lãi tháng sau nhưng cứ 1 năm lãi suất tăng thêm 10% nữa. Viết CT tính xem sau 5 năm vay vốn người đó phải trả ngân hàng là bao nhiêu?

2.Vé xe khách đi từ a -> b có giá tiền là 60 000 đ/1 người. Chủ xe muốn có chương trình để tính tiền lãi của mỗi chuyến. Biết chi phí xăng, các phục vụ khác hết a đồng, số khách từng chuyến là khác nhau. Em hãy viết CT nhập vào số khách và số tiền chi phí. In ra màn hình tiền lãi của chuyến đó?

3.Viết CT giải và biện luận pt: m.x^2 +(m-2).x+1=0 ?

 

[atlmnt]

var
lai:real;
i,nam:byte;
no:real;
begin
lai:=0.5;
nam:=1;
WHILE nam<=5 do
BEGIN
for i:=1 to 12 do
no:=no+no*lai;
nam:=nam+1;
lai:=lai+10;
END;
write('Tien phai tra:',no);
readln;
end.

Bài 2:
Var sokhach:byte;
chiphi,lai:real;
BEGIN
write('So khach:'); readln(sokhach);
write('Chi phi:'); readln(chiphi);
lai:=60000*sokhach-chiphi;
write('Tien lai:',lai);
readln;
end.
Bài 3:
var delta:real;
BEGIN
delta:=sqr(m-2)-4*m;
if delta<0 then write('Pt vo nghiem');
else if delta=0 then begin
write('Pt co nghiem kep');
write('x1=x2=',-(m-2)/(2*m));
end
else begin
write('Pt co 2 nghiem phan biet');
write('x1=',(-(m-2)+sqrt(delta))/(2*m));
write('x2=',(-(m-2)-sqrt(delta))/(2*m));
end;
readln;
end.