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à..

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

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à..

Bài gửi  pascal on 2011-01-12, 16:53

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é!!

pascal

Tổng số bài gửi : 1
Join date : 12/01/2011

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: 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à..

Bài gửi  thanhtung1991tn on 2011-10-07, 20:13

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

Tổng số bài gửi : 3
Join date : 30/09/2011
Đến từ : thái nguyên

Xem lý lịch thành viên http://www.hsvd.tk

Về Đầu Trang Go down

Re: 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à..

Bài gửi  thanhtung1991tn on 2011-10-07, 20:27

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.

thanhtung1991tn

Tổng số bài gửi : 3
Join date : 30/09/2011
Đến từ : thái nguyên

Xem lý lịch thành viên http://www.hsvd.tk

Về Đầu Trang Go down

Re: 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à..

Bài gửi  Sponsored content Today at 07:24


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết