Ai giúp mình mấy bài tập pascal lớp 10 về cấu trúc rẽ nhánh này cái, dễ ẹc ý mà..

[pascal]

Bài 1: Lập trình giải hpt: ax + by = c
dx + ey = f
Đây là 1 hệ phương trình nhé, giúp mình nhanh đi.

Bài 2: Nhập 1 số nguyên dương n<1000, đưa ra màn hình số các chữ số và tổng các chữ số của n.

Bài 3: Tiền điện hàng tháng đc tính như sau:
+ 100 số đầu giá m1 đồng/1 số
+ Từ số thứ 101 trở leen giá m2 đồng/1 số.
Nhập m1,m2, số điện năng tiêu thụ S từ bàn phím, tính tổng số tiền điện phải trả.

Giúp mình đc 1 bài mình cũng thanks nhé!!

[thanhtung1991tn]

Bài 1:
Bài này cơ bản mà, co gì đâu. Thấy bài này post lâu rồi mà không ai trả lời nên mình trả lời thôi, chắc là bạn làm được rồi. Chương trình như sau.
var x,y,a1,a2,b1,b2,c1,c2,d,dx,dy:real;
begin
write('nhap a1:= '); readln(a1);
write('nhap b1:= '); readln(b1);
write('nhap c1:= '); readln(c1);
write('nhap a2:= '); readln(a2);
write('nhap b2:= '); readln(b2);
write('nhap c2:= '); readln(c2);
d:=a1*b2-a2*b1;
dx:=c1*b2-c2*b1;
dy:=a1*c2-a2*c1;
x:=dx/d;
y:=dy/d;
writeln('phuong trinh co nghiem la');
writeln(x:2:3);
writeln(y:2:3);
readln;
end.

[thanhtung1991tn]

Bài 2:
Bài này sử dụng vòng lặp for...to...do và câu lệnh điều kiện if...then.
var s,n,i:word;
begin
s:=0;
write('nhap n:= '); radln(n);
if n>=1000 then
writeln('n>1000, khong thoa man, xin moi nhap lai')
else
begin
for i:=1 to n do
s:=s+i;
end;
writeln('tong cua day la: ',s);
readln;
end.

[Sponsored content]