Giải bài tập Pascal *D2T*

Mấy hôm đầu học Pascal em làm được hầu hết các bài tập thầy giao, mấy bữa sau thì lại không làm được vì em không ôn lại lí thuyết nên chả làm đc bài trong khi nhiều bạn khác lại làm xong rồi. <-- Mà hôm đó thầy còn bảo em "thử" làm bài đó coi, ai ngờ, chắc thầy thất vọng vì em lắm c:tire: --> . Hơi buồn nên em lập topic này nếu có bài khó nào thì mấy anh chị giải dùm em nhé

Bài này em giải mãi không được. Trên lớp em mới chỉ học "For ... to / downto ... do" thôi nên em không dám dùng "while ... do". Anh nào giải được bằng "For ... to / downto ... do" thì giúp em với
Bài 7 - trang 51 SGK lớp 11: Nhập từ bàn phím tuổi cha và con (hiện tại tuổi cha lớn hơn hai lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25). Đưa ra màn hình câu trả lời cho câu hỏi "Bao nhiều năm nữa thì tuổi cha gấp đôi tuổi con?"
<-- "Sáng 29/10/2011 em phải thực hành rồi." --> :nosebleed:

bài này bắt buộc dùng while ..do hoặc repeat ... until

em xem bài anh làm nhé

Code:

---



var t1, t2, i:byte;
      begin
                  write (' nhập tuổi bố, con');
                  readln(t1,t2);
                  While t2*2<t1  do
                        begin
                              t1:=t1+1;
                              t2:=t2+1;
                              i:=i+1;
                        end;
                  Write (' so nam la', i+1);         
                  readln;
            end.

---

lên vn-zoom bạn :D
có ngay câu trả lời sau 5 p c:big_smile:

Trích dẫn:

---

Gửi bởi s2_Rain

lên vn-zoom bạn :D
có ngay câu trả lời sau 5 p c:big_smile:

---

Sau 5 phút à bạn. Để mình thử xem sao nhé

Ác, thầy có bài tính x^y với x và y nhập từ bàn phím. Ai viết dùm em chương trình lun với. Khó ác c:amazed:c:amazed:c:amazed:

Trích dẫn:

---

Gửi bởi —¤÷¤* ߀ߵ *¤÷¤—

Ác, thầy có bài tính x^y với x và y nhập từ bàn phím. Ai viết dùm em chương trình lun với. Khó ác c:amazed:c:amazed:c:amazed:

---

Hay thế. Tớ cũng thích làm pascal. Tớ làm bài này thế này, cậu xem lại xem có đc không
var x,y,i,S:integer;
begin
clrscr;
write('moi nhap x.y '); readln(x,y);
S:=1;
for i:=1 to y do S:=S*x;
write('x^y=',S:10);
readln
end.

Trích dẫn:

---

Gửi bởi Smileeeee

Hay thế. Tớ cũng thích làm pascal. Tớ làm bài này thế này, cậu xem lại xem có đc không
var x,y,i,S:integer;
begin
clrscr;
write('moi nhap x.y '); readln(x,y);
S:=1;
for i:=1 to y do S:=S*x;
write('x^y=',S:10);
readln
end.

---

S:longint em

s integer thì đc mấy

Anh nào giúp em bài này với: in ra màn hình tất cả các số n tố từ 1-> 300. em cảm ơn trc :burn_joss_stick:

Nay chỉ học C++ nên anh không nhớ rõ pascal lắm.Em thử cái này xem(Không biết cấu trúc có đúng không.Lâu ngày không học mà c:byebye:):
var n:integer;
begin
clrscr;
for i:=1 to 300 do
write(n:4);
readln
end.

var j:integer;
function nguyento(z:integer):boolean;
var i:integer;
begin
nguyento:=true;
for i:=1 to (sqrt(z)div 1) do
if z mod i=0 then nguyento:=false;
end;begin
clrscr;
for j:=1 to 300 do if nguyento(j) then
write(j:4);
readln
end.