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 :((
Những câu hỏi liên quan
mn giúp em với ạ em cần gấp
lập trình thực hiện các công việc sau :
- nhập từ bàn phím dãy N số nguyên
- đếm các phần tử chẵn trong dãy số
- tìm trong dãy số một phần tử có giá trị bằng k ( k được nhập từ bàn phím)
Xem chi tiết
uses crt;
var n,i,k,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('So phan tu chan trong day so la: ',dem);
write('Nhap so k='); readln(k);
kt:=0;
for i:=1 to n do
if a[i]=k then kt:=i;
if kt=0 then writeln('Khong co phan tu nao trong day bang ',k)
else writeln('Trong day co phan tu bang ',k);
readln;
end.
Đúng 0
Bình luận (0)
Viết một chương trình thực hiện các công việc sau:
- Nhập từ bàn phím 1 dãy A gồm N số nguyên (với N được nhập từ bàn phím).
- Sắp xếp dãy số đó theo chiều giảm dần.
- In ra mà hình tất cả các phần tử chẵn
- Tìm và đưa ra chỉ số của phần tử có gía trị = K (với K là số nguyên và được nhập từ bàn phím).
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[1000];
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
sort(a+1,a+n+1);
for (i=n; i>=1; i--) cout<<a[i]<<" ";
return 0;
}
Đúng 0
Bình luận (0)
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)S : 0; For i : 1 to N do S : S+a[i]; A. In ra màn hình của mảng A B. Đếm các phần tử của mảng A C. Tính tổng các phần tử của mảng A D. Không thực hiện việc nào trong 3 việc trên
Đọc tiếp
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)
S := 0;
For i := 1 to N do S := S+a[i];
A. In ra màn hình của mảng A
B. Đếm các phần tử của mảng A
C. Tính tổng các phần tử của mảng A
D. Không thực hiện việc nào trong 3 việc trên
Giải giúp mình bài tập tin này với ạ. Cho 1 dãy số nguyên m gồm 5 phần tử.Em hãy viết chương trình: a)Nhập giá trị cho các phần tử của dãy số. b)In các phần tử của dãy số trên cùng 1 dòng.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)k : 1 ;for i : 2 to N do if a[i] a[k] then k : i; A. Tìm phần tử nhỏ nhất trong mảng B. Tìm phần tử lớn nhất trong mảng C. Tìm chỉ số của phần tử lớn nhất trong mảng D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
Đọc tiếp
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)
k := 1 ;
for i := 2 to N do
if a[i] > a[k] then k := i;
A. Tìm phần tử nhỏ nhất trong mảng
B. Tìm phần tử lớn nhất trong mảng
C. Tìm chỉ số của phần tử lớn nhất trong mảng
D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)k : 1 ;for i : 2 to N do if a[i] a[k] then k : i; A. Tìm phần tử nhỏ nhất trong mảng B. Tìm phần tử lớn nhất trong mảng C. Tìm chỉ số của phần tử lớn nhất trong mảng D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
Đọc tiếp
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)
k := 1 ;
for i := 2 to N do
if a[i] < a[k] then k := i;
A. Tìm phần tử nhỏ nhất trong mảng
B. Tìm phần tử lớn nhất trong mảng
C. Tìm chỉ số của phần tử lớn nhất trong mảng
D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
bài 1:Viết chương trình nhập vào một mảng số nguyên gồm n phần tử(n<100) nhập từ bàn phím thực hiện các công việc sau:
a)In ra màn hình các phần tử của mảng vừa nhập.
b) Sắp xếp dãy số nguyên theo thứ tự tăng dần.
c) Nhập số nguyên x bất kì.Tính số chắn lớn nhất không được vượt quá x.
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,kt,max,x,j,tam:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Mang ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day tang dan la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Nhap x='); readln(x);
max:=0;
kt:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]<=x) then
begin
if max<a[i] then max:=a[i];
kt:=1;
end;
if kt=0 then writeln('Trong day khong co so le')
else writeln('So chan lon nhat khong vuot qua ',x,' la: ',max);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :
-nhập/xuất mảng
-đếm các số hoàn hảo có trong mảng
-tính tổng các phần tử chẵn trong mảng .
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
Đúng 0
Bình luận (0)
viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :
-nhập/xuất mảng
-đếm các số hoàn hảo có trong mảng
-tính tổng các phần tử chẵn trong mảng .
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
Đúng 1
Bình luận (0)
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
Đúng 0
Bình luận (0)