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

[ĐứcNhật!]

[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.

Hãy viết một chương trình nhập vào n số nguyên và in ra màn hình tất cả các số chính phương trong n số đó.
P/s: Sử dụng mảng và chương trình con
@trà nguyễn hữu nghĩa

 

[php122002]

Đây bạn nhé

program test; uses crt; var n: integer; procedure print; var i: integer; begin i:=0; while (i*i<=n) do begin write(i*i,' '); inc(i); end; end; begin clrscr; write('Nhap n: '); readln(n); write('Cac so chinh phuong nho hon ',n,' la: '); print; readln end.

[TBODY] [/TBODY]

 

[ĐứcNhật!]

Đây bạn nhé

program test; uses crt; var n: integer; procedure print; var i: integer; begin i:=0; while (i*i<=n) do begin write(i*i,' '); inc(i); end; end; begin clrscr; write('Nhap n: '); readln(n); write('Cac so chinh phuong nho hon ',n,' la: '); print; readln end.

[TBODY] [/TBODY]

Bạn ơi, đề là nhập n số tự nhiên, in ra các số chính phương nhé!

 

[php122002]

Bạn ơi, đề là nhập n số tự nhiên, in ra các số chính phương nhé!

Xin lỗi bạn nha, mình đọc không kĩ do đang có việc
Gửi bạn

program test; uses crt; var n,i: integer; a: array[1..10000] of integer; procedure print; begin i:=0; for i:= 1 to n do if (trunc(sqrt(a))*trunc(sqrt(a))=a) then write(a,' '); end; begin clrscr; write('Nhap n: '); readln(n); write('Nhap ',n,' so: '); for i:=1 to n do read(a); write('Cac so chinh phuong la: '); print; readln end.

[TBODY] [/TBODY]

 

[php122002]

Mình gửi code lên đây code bị đổi lại nên bạn xem trong hình nha

 

[Nguyễn Linh_2006]

Mình gửi code lên đây code bị đổi lại nên bạn xem trong hình nha
View attachment 90035

Xin lỗi bạn nha, mình đọc không kĩ do đang có việc
Gửi bạn

program test; uses crt; var n,i: integer; a: array[1..10000] of integer; procedure print; begin i:=0; for i:= 1 to n do if (trunc(sqrt(a))*trunc(sqrt(a))=a) then write(a,' '); end; begin clrscr; write('Nhap n: '); readln(n); write('Nhap ',n,' so: '); for i:=1 to n do read(a); write('Cac so chinh phuong la: '); print; readln end.

[TBODY] [/TBODY]

Đây bạn nhé

program test; uses crt; var n: integer; procedure print; var i: integer; begin i:=0; while (i*i<=n) do begin write(i*i,' '); inc(i); end; end; begin clrscr; write('Nhap n: '); readln(n); write('Cac so chinh phuong nho hon ',n,' la: '); print; readln end.

[TBODY] [/TBODY]

Bạn học Pascal hả?
Mình học C++. Mong bạn giúp đỡ mình

 

[php122002]

Bạn học Pascal hả?
Mình học C++. Mong bạn giúp đỡ mình

Hi, mình biết sử dụng cơ bản pascal à ^^ Mong bạn cũng giúp đỡ mình nha

 

[Nguyễn Linh_2006]

Hi, mình biết sử dụng cơ bản pascal à ^^ Mong bạn cũng giúp đỡ mình nha

Ừ!
Mà bạn giúp mình luôn bài này! Phiền bạn rồi! pascal cũng đc
In ra ma trận xoắn ốc cỡ n * n

Input: Nhập 1 số nguyên n <= 10
Output: Ma trận xoắn ốc cỡ n*n
Ví dụ
Input: 3
Output: 1 2 3 4 12 13 14 5 11 16 15 6 10 9 8 7

 

[php122002]

Ừ!
Mà bạn giúp mình luôn bài này! Phiền bạn rồi! pascal cũng đc
In ra ma trận xoắn ốc cỡ n * n

Input: Nhập 1 số nguyên n <= 10
Output: Ma trận xoắn ốc cỡ n*n
Ví dụ
Input: 3
Output: 1 2 3 4 12 13 14 5 11 16 15 6 10 9 8 7

Mình chưa hiểu đề lắm bạn ơi

 

[Nguyễn Linh_2006]

Mình chưa hiểu đề lắm bạn ơi

Mình nghe nói là như này: Ma trận xoáy ốc được tạo thành bằng cách điền số 1 vào hàng 1 cột 1, sau đó điền số tăng dần theo chiều kim đồng hồ

 

[Nguyễn Linh_2006]

https://daynhauhoc.com/t/ma-tran-xoan-oc/63680/4
Bạn lên trang này xem thử nha, giờ mình có việc bận tí ^^, có vài trang có trình chấm thử code, bạn tham khảo thử nha!

Ok.
Mơn bạn nhé!