Nhập dãy số thực a. hãy thực hiện công việc nếu các phần tử trùng nhau thì chỉ giữ lại một phần tử. 1. nêu ý tưởng 2. Viết chương trình trong ngôn ngữ Pascal. Mọi người giúp mình lập trình bài này với ạ. Mình tìm kiếm trên mạng chỉ có C++ thôi :((

Loga01

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

channelh037

1 ý tưởng:lưu số được đọc trong 1 biến T , nếu trong mảng A chưa tồn tại phần tử đó thì tăng độ dài mảng A lên 1 và thêm biến b vào phần tử cuối cùng

var a:array[1..32000]of integer;

n,i,j,t,m,:integer;b:boolean;

begin

writeln('nhap so phan tu cua mang');readln(n);

writeln('nhap lan luot cac phan tu cua mang');

m:=0;

for i:=1 to n do begin

readln(t);b:=true;

for j:=1 to m do

if a[j]=t then b:=false;

if b then begin

m:=m+1;

a[m]:=t;

end;

writeln('mang hoan chinh la');

for i:=1 to m do

write(a[i],' ');

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

tuyenbanthan

1. Ý tưởng:

Mình sẽ làm trong lúc nhập luôn, nếu phần tử đó có rồi thì không thêm nó vào mảng.

Ngoài ra còn có cách: cũng như trên nhưng không làm trong bước nhập mà nhập rồi mới đi xóa các phần tử trùng.

2. Viết chương trình trong ngôn ngữ Pascal.

uses crt;
var n,m,i,kt,j,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
write('Nhap so phan tu: ');readln(n);
for i:=1 to n Do
begin
write('a[',i,']=');readln(t);
kt:=0;
for j:=1 to i-1 do
if t=a[j] then kt:=1;
if kt=0 then begin inc(m); a[m]:=t; end;
end;
for i:=1 to m do write(a[i],' ');
readln;
end.

Có thắc mắc gì thì cứ bình luận ở dưới nhé.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Một ô tô đi với vận tốc 60 km/h từ a đến b hết 2 giờ 15 phút.Cùng lúc đó một mô tô đi với vận tốc bằng 2 phần 3 vận tốc của ô tô a)quãng đường AB=? b)thời gian mô tô đi từ a đến b

Người ta thực thiện công 100J để nén khí trong một xilanh. Biết khí truyền ra môi trường xung quanh nhiệt lượng 20J độ biến thiên nội năng của khí là bao nhiêu? (Tóm tắt giúp em với. Cảm ơn ạ)

“Don’t touch that dog”, he said. → He asked/told me not to touch that dog. Không thêm me ở trên đk

Một lượng khí lí tưởng ở nhiệt độ 27°C được biến đổi qua 2 quá trình theo đồ thị như hình vẽ. Biết V₁=12lít; V₂=4lít; p₁=2.10⁵Pa; p₂=6.10⁵Pa a/ Tìm nhiệt độ (°C) ở trạng thái 3? b/ Vẽ đồ thị biểu diễn các quá trình trên hệ trục tọa độ (V;T)? (Tóm tắt giúp em luôn ạ. Cảm ơn nhiều)

Mọi người giúp em với Đề: Cảm nhận về hai khổ thơ đầu của bài thơ sang thu. Em cảm ơn ạ

Giúp mình với 😭😭😭😭😭😖😖😖😖😖

Giúp mình từ câu 18 đến câu 30 với ạ

Phân biệt bazơđô và bướu cổ do thiếu Iod gây ra

Help me 🙏🙏🙏🙏🙏🙏🙏🙏🙏🙏🙏🙏🙏

nhanh nhanh hộ mình ạ 🐮😊😊😊😊

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến