Help Me Giup Em với

[hello2005]

Cả nhà ơi làm ơn giúp em với
hhuhuhu...Em mới học Pascal Mà ồn thầy đẫ cho làm kiểm tra rùi ,Em chẳng biết làm thế nào cả ,Cả nhà giúp em với ::)
hix

Bải Kiểm tra cả em đó ,giúp em nha cả nhà
Help Me :'>

 

[ZhaoyunTS]

Để tớ giúp! Lâu giờ không đụng đến mấy thứ này! Không biết có chính xác không? Có gì test lại nhé.
Program test;
uses crt;
var a,b,c,d:real;
{************************}
procedure min(a,b,c,d:real);
var nhonhat:real;
begin
nhonhat:=a;
if nhonhat>=b then nhonhat:=b;
if nhonhat>=c then nhonhat:=c;
if nhonhat>=d then nhonhat:=d;
writeln(' So nho nhat la:',nhonhat);
end;
{***********************}
procedure tb(a,b,c,d:real):real;
begin
tb:=(a+b+c+d)/4;
writeln('Trung binh cua 4 so ',a,' ',b, ' ',c,' ',d,':',tb);
end;
{***********************}
procedure fx(a,b,c,d:real);
var bieuthuc:real;
begin
bieuthuc:=sqrt(sqr(a+b)-a*c)/(a*d-b*c);
writeln(' Gia tri cua bieu thuc:',bieuthuc);
end;
{**********************}
begin
clrscr;
write('Nhap a:');readln(a);
write('Nhap b:');readln(b);
write('Nhap c:');readln(c);
write('Nhap d:');readln(d);
min(a,b,c,d);
tb(a,b,c,d);
fx(a,b,c,d);
readln;
end.
Xong rồi đó! Nếu chưa học cách viết theo kiểu thủ tục thì lên tớ viết lại cách khác.

 

[korangar]

procedure min(a,b,c,d:real);
var nhonhat:real;
begin
min:=a;
if min>=b then min:=b;
if min>=c then min:=c;
if min>=d then min:=d;
writeln(' So nho nhat la:',min);
end;

Biến nhonhat khai báo nhưng lại ko sử dụng làm gì cả

 

[ZhaoyunTS]

Biến nhonhat khai báo nhưng lại ko sử dụng làm gì cả

Có chút nhầm lẫn ở đây, tớ sẽ edit bài viết lại. Thanks nhiều

 

[hello2005]

::) cac bác giúp em với nha .vi thứ 6 này em nộp rùi :whew:

 

[ZhaoyunTS]

Đã edit lại cái bài trên rồi còn gì? Tức là đúng hết rồi đây.

 

[hello2005]

em cảm ơn bác nhiều !
hiện giờ em đang làm thử bài tập về viết ngày trong tuần ,khi nào lam đc rùi em pos lên cho bác sem giúp em nha ,vì máy của em ko có chương trình pascal nên em ko biết nó sẽ chảy như thế nào ,chỉ có ra trường thì mới bít dc

 

[hello2005]

tính ca X ngũ N nữa .
các anh sem em làm có đúng không
program Test;
uses crt;
var i,n,t1,t2:integer;
t3,x:real;
begin
clrscr;
write(' nhap n'); realn(n);
for i:=0 to n do writeln(i);
for i:=1 to n do writeln(i);
t1:=t1+i;
writeln('tong cua cac so tu i toi n la :',t1);
for i:=1 to n do
t2:= t2 + srq(i);
write (' tong binh phuong cua cac so tu i toi n la:',t1);
if n=0 then write ('giai thua cua n=1');
t3:=1
for i:=1 to n do
t3:= t3*i;
write(' giai thua cua n la ',t3:4:2);
x := exp(i);
write(' x mu n la : ,x:4:2);
writeln(' so chan la :');
for i:=0 to n do
if i mod 2 =0 then write(i)';
writeln (' so le la =');
for i:= 0 to n do
if i mod 2 <>0 then writeln (i);
readln;
end.