[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Bài 1 :Viết chương trình tạo tệp Sochan.txt(lưu trong ổ đĩa D:/ ) gồm các số nguyên chẵn trong phạm vi từ 1 ->2016 mỗi số tệp ghi trên 1 dòng
Var
a,b,tg:integer;
Procedure nhap;
Begin
write('nhap vao hai so:');readln(a);readln(b);
end;
Procedure xuly;
begin
tg:=a;a:=b;b:=tg;
write('vi tri sau khi doi cho la:',a,' ',b);
end;
BEGIN
nhap;
xuly;
readln
End.Var
x,y,z:integer;
Procedure nhap;
Begin
write('nhap vao ba so:');readln(x);readln(y);readln(z);
end;
Function S(x,y,z:integer;):integer;
Var t:integer;
Begin
t:=x*x*x*x*x+y*y*y*y*y+z*z*z*z*z;
s:=t;
end;
BEGIN
nhap;
Write('tong la:',s(x,y,z));
readln
END.À mà bạn ơi nếu mình cứ viết x*x*x*x*x vậy hoài sao, nếu nó cho x^100 thì mình cũng làm như thế à, mình thấy cách viết này không khả thi lắm, mình đang tìm cách khác đây ^.^, chứ viết thế lười chết được
nhưng sơ đồ vòng lặp viết không khéo là không ra đâu ^.^
Vì là 5 nên em mới làm thế chứ nếu là 100 thì sd vòng lặp là được mà
vòng lặp tính từng x^n, y^n, z^n rồi cộng lại các kết quả đó