Tin học Viết chương trình

[annguyen112]

[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

 

[The key of love]

Var a : longint;
f : text;
Begin
Assign ( f,'sochan.out');
Rewrite (f);
For a:=1 to 2016 do
If a mod 2=0 then write(f,a,'_');
Close(f);
End.
Em chưa check lại nữa, mong anh/chị nếu sai sửa giúp em nha

 

[annguyen112]

bạn giúp mình làm các câu còn lại dc k ạ

 

[Trâm Nguyễn Thị Ngọc]

Câu 3:

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.

Câu 4.

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.

Chị check xem đúng không ạ

 

[annguyen112]

cảm ơn bạn nhìu nhìu lắm

 

[annguyen112]

bạn xem giúp mình lm câu 2 v đúng chưa

 

[The key of love]

Câu 3:

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.

Câu 4.

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.

Chị check xem đúng không ạ

À 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

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à

nhưng sơ đồ vòng lặp viết không khéo là không ra đâu ^.^

 

[Trâm Nguyễn Thị Ngọc]

À 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

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à

 

[Deathheart]

nhưng sơ đồ vòng lặp viết không khéo là không ra đâu ^.^

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ả đó