Giải giúp mình mấy bài pascal 11 nè với

[trungnguyen91tn]

Các bạn giải chi tiết giúp mình nhé mai thi rùi và vẫn chưa biết nhìu..

Bài 1: so sánh câu lệnh while do và for do ,có thể thay thế while do cho for do ko giải thích cho VD
Bài 2 Lập trình tính: (sin^2(x)*cos^2(y))/(x*y(c+d))
Bài 3: nhập từ bàn phím dãy gồm n số: đưa ra màn hình theo thứ tự ngược lại, chia dãy thành 2 dãy nhỏ, 1 dãy chứa số âm, 1 dãy chứa dương
Bài 4: nhập bàn phím 1 xâu thay từ "anh" trong xâu bằng từ "em"

[mr_invincible]

Bài 1: Có thể thay thế while do và for do. Còn giải thích thì rất khó. Nói chung bạn phải đưa ví dụ thì mới chứng minh được

[mr_invincible]

Bài 2:
Var x,y,c,d:real;
Begin
Write('Nhap x,y);
Write('Nhap c,d);
Writeln('Ket qua: ',(sqr(sin(x))*sqr(cos(x)))/(x*y*(c+d));
Readln;
End.

[mr_invincible]

Bài 3:
Var
a,b,c:array[1..100] of integer;
n,i,sb,sc:integer;
Begin
Write('Nhap so phan tu: '); Readln(n);
For i:=1 to n do
begin
Write('Nhap phan tu thu ',i,' cua day: '); Readln(a[i]);
end;
Writeln('Day so theo thu tu nguoc lai: ');
For i:=n downto 1 do Write(a[i],' ');
Readln;
{Chia thành 2 day:}
sb:=0; sc:=0;
For i:=1 to n do
If a[i]<0 then begin inc(sb); b[sb]:=a[i]; end
else begin inc(sc); c[sc]:=a[i]; end;
End.

[mr_invincible]

Bài 4:
Var s,tg:string;
x:integer;
Begin
Write('Nhap xau: '); Readln(s);
While pos('anh',s)<>0 do
begin
x:=pos('anh',s);
delete(s,x,3);
tg:=copy(s,x,length(s)-x+1);
delete(s,x,length(s)-x+1);
s:=s+'em'+tg;
end;
End.

[tranvanho]

có thể thay thế while do cho for do vì
có thể thay for i:=1 to n do bằng
while i<=n do
begin
i:=i+1;
...{các lệnh cần thiết}
end;
ok chứ bạn

[tranvanho]

còn mấy bài kia cũng thuộc dạng gà công nghiệp cả ý mà
giết hết không tha
thằng nào tha...giết

[huonglan1812]

Bài 4 của bạn không chạy được, tôi thử rồi

[=========> Bổ sung bài viết <=========]

Bài 4 bạn có giúp người thì giúp cho trót

[organ]

bài 4 bạn ấy làm đúng rồi nhưng thiếu phần này ở đoạn cuối:
(tiếp phần end; đó)
write('chuoi sau khi thay la: ',s);
readln;
end.
^^

[clicktwo]

may' ban oi... co' ai dang online truc. tiep' hok
Giai giu`m minh` ngay may' ba`i na`y di nha !!!

[xuanhung_cntt]

trong pascal co hỗ trợ sin vá cos không mà tình vậy?

[QuyNam]

Bài 4:


program bai4;
uses crt;
{-- Thủ tục thay thế chuỗi anh bằng em --}
procedure replace(var s:string);
var i:longint;
begin
repeat
delete(s,pos('anh',s),3);
insert('em',s,pos('anh',s));
until pos('anh',s)=0;
end;

var s:string;
begin
clrscr;
write('Nhap s : ');
readln(s);
writeln;
replace(s);
writeln('Chuoi da sua : ',s);
readln;
end.

[zumzumsg]

don gian thoi chi can mo sach giai

[ga_con9x]

bài 4 của cac bạn hơi dài, các bạn thử tham khảo bài lam của mình xem:
program bai_4;
uses crt;
var a,b:string;
i,k:byte;
begin
clrscr;
write('nhap vao mot xau:');
readln(a);
k:=length(a); {gán độ dài xâu bằng 1 biến 'k'}
b:='em'; {gán 1 xâu la:'em'}
while pos('anh',a)<>0 {điều kiện cho vị trí của xâu 'anh'}
begin
delete(a,pos('anh',a),3); {xóa tất cả cac từ 'anh' trong x a}
insert(b,a,pos('anh',a)); {chèn xâu b vào vt vừa xóa}
end;
write(a);
readln
end.
hic có lẽ còn dài hơn , nhưng dễ hiểu phải ko?

[kientamduong]

mr_invincible ơi,anh tự làm những bài này hả.nếu anh còn lên mạng thì Pm em qua nick chat maiyeuem_vp2001 or comment qua tdkien.co.cc nhá.có thể em sẽ nhận anh làm sư phụ đó.em đang học đội tuyển tin học cấp 3,mà em dốt quá ,chả biết j cả,những bài dễ thì làm đc còn những bài khó thì tắc ự luôn,thế nhá,Pp

[hcvtpt]

mr_invincible ơi,anh tự làm những bài này hả.nếu anh còn lên mạng thì Pm em qua nick chat maiyeuem_vp2001 or comment qua tdkien.co.cc nhá.có thể em sẽ nhận anh làm sư phụ đó.em đang học đội tuyển tin học cấp 3,mà em dốt quá ,chả biết j cả,những bài dễ thì làm đc còn những bài khó thì tắc ự luôn,thế nhá,Pp

bạn ở trường nào, tỉnh nào vậy ta