Help help mn và giúp cái này với ae dd vào hết nha

Bạn học cấu trúc lệnh fuction chưa?

Những người đã like zannaghazi bởi bài viết có ích này:

minhtan16

Roi moi hoc tuần rồi

Giúp mình viet phan than chuong trinh đi bai đó khó qua viet phần khai bào biến với phần thân đi làm dc bai nay co giao cho 10đ khỏi kiem tra

Zan ơi đâu rùi giup minh di

Zan hỏi nhầm, cấu trúc Procedure cơ, nếu học rồi thì viết chương trình như sau:
Program baitap;
uses crt;
var n, sum: integer;
g1: real;
procedure GiaiThua(m: integer; var gt: real);
var i:integer
begin
if m= 0 then
gt:= 1
else
gt:= 1;
for i:=1 to m do
gt:=gt*i;
end;
begin(* program *)
write(' ban nhap so can tinh:');
readln(n);
while n>= 0 do
begin
giaithua(n,g1);
writeln(g1);
end;
for i:=1 to m do
sum:= 1/g1 1/gm
writeln('ket qua can tim la', sum);
readln;
end.
Mỏi tay quá, thank mấy phát động viên đi

Những người đã like zannaghazi bởi bài viết có ích này:

minhtan16

minhtan16 đã viết:Zan ơi đâu rùi giup minh di

có đi đâu đâu, lo viết chương trình

Những người đã like zannaghazi bởi bài viết có ích này:

minhtan16

Zan oi minh hoc cau truc roi nhung cô giao bat viet bang cau leng for ..... Do kìa cái này ko có cham diem giup minh lam cau truc leng for ..... Do di

Giúp minh lam theo cau leng for ... Do cua lop 11 nha hình nhu bài dó liên quan đên bài cấu trúc lặp tin học lop 11 đó

Anh thi moi hoc het ki 1 lop 12,chua hoc den pascal,her

Thui bao co giao toi nay den gap anh,hom sau la chu' co 10d ngay ma!hehe