hjc,mới tập viết pascal,có 2 bài mong các PRO giúp

[themars]

đề:bài 1:viết chương trình tính tổng các số lẻ 1+3+5+...+2n+1
bài 2:có 100 bó cỏ,bò đứng ăn 5 bó,bò nằm ăn 3 bó,3 bò già ăn 1 bó.Hỏi có bao nhiêu bò đứng,bò nằm,bò già.
Cảm ơn các PRO

[huyenvt]

Bài 1: Dùng vòng lặp for để tính tổng
Bài 2: Thuật toán như sau :
Gọi x là số bò đứng, y là số bò nằm, z là số bò già ta có hệ phương trình sau :
x+y+z=100
5x+3y+z/3=100
Để giải hệ PT này bằng máy tính ta sử dụng 3 vòng lặp For lồng nhau. Đoạn chương trình biểu diễn giải thuật như sau:
For x:=1 to 100 Do
For y:=1 to 100-x do
For z:=1 to 100-x-y do
If(x+y+z=100)and(5*x+3*y+z/3=100)then Writeln (' bo dung =',x,'bo nam =',y,'bo gia =',z);
Giải thích : Với mỗi giá trị x, giá trị y sẽ chạy từ 1 đến 100-x và mỗi giá trị x,y này sẽ có các giá trị z chạy từ 1 đến 100-x-y. Các giá trị x,y,z này sẽ thỏa mãn điều kiện của Ì ( tức là nghiệm của hệ PT) thì sẽ được in ra.

[huyenvt]

Bạn hãy tự giải đi mình chưa học về cái vòng lặp này nên mình cũng chưa biết giải nữa . Bài 2 có trong sách học của mình nó ghi như vậy đó . Cậu cứ dựa vào đó mà giải nha. Nhớ post lên cho mình xem nữa nha. Bye

[Tri Duc]

pài nj` đơn giản quá ah` pác huyenvt làm đúng roài đóa

[tranvanho]

bài 1 cũng dễ thui mà
uses crt;
var n,so,tong:integer;
begin
write('nhap n:');readln(n);
for so:=1 to 2*n do
if so mod 2=1 then
tong:=tong+so;
tong:=tong+1;
write('tong cac so tu le tu 1->n la:',tong);
readln;
end.
bài này em mới type trên đây chứ chưa test thử tren máy
có chỗ sai nào thì các bác chỉ giáo nhé

[thuonghcm]

Bài 1: Dùng vòng lặp for để tính tổng
Bài 2: Thuật toán như sau :
Gọi x là số bò đứng, y là số bò nằm, z là số bò già ta có hệ phương trình sau :
x+y+z=100
5x+3y+z/3=100
Để giải hệ PT này bằng máy tính ta sử dụng 3 vòng lặp For lồng nhau. Đoạn chương trình biểu diễn giải thuật như sau:
For x:=1 to 100 Do
For y:=1 to 100-x do
For z:=1 to 100-x-y do
If(x+y+z=100)and(5*x+3*y+z/3=100)then Writeln (' bo dung =',x,'bo nam =',y,'bo gia =',z);
Giải thích : Với mỗi giá trị x, giá trị y sẽ chạy từ 1 đến 100-x và mỗi giá trị x,y này sẽ có các giá trị z chạy từ 1 đến 100-x-y. Các giá trị x,y,z này sẽ thỏa mãn điều kiện của Ì ( tức là nghiệm của hệ PT) thì sẽ được in ra.

Bài trên sai ở chỗ: z/3 , bạn phải thay là z div 3

[huyenvt]

Viết chương trình tính cho bài 2 luôn đi các bạn ơi. Thanhks

[tranvanho]

có cả 2 bài rùi còn viết chi nữa
hả??????????

[huyenvt]

Viết chương trình đầy đủ có cả program nữa hiểu không?. Cái bài 2 là pác chép trong sách ra chứ pác có hiểu gì đâu

[alucar]

bài này lớp 11 phải hem ... thằng thầy tui cũng cho :| viết ra đáp số hình như là 0 đứng 25 nằm 75 già