Chủ đề / Chương

Bài học

Hãy tham gia nhóm Học sinh Hoc24OLM
Cát Diệu Nguyễn
Bạn nào hk Pascal thì cho mik hỏi nha !!! Viết chương trình nhập dãy gồm n số tự nhiên, sắp xếp chúng theo thứ tự tăng dần và in ra màn hình a, Dãy đã sắp b, Ta gọi khoảng cách của 2 phần tử lền kề là hiệu của 2 số đó. Hãy in ra màn hình tất cả các khoảng cách của 2 phần tử liền kề và cho biết 2 phần tử liền kề có khoảng cách lớn nhất Giúp mik vs nha !!!
Đọc tiếp
Lớp 7 Tin học Phần mềm học tập
Những câu hỏi liên quan
khonopro

Viết chương trình nhập một dãy số gồm n số tự nhiên (n nhập từ bàn phím), sắp xếp chúng theo thứ tự tăng dần và in ra màn hình :

a) Dãy đã sắp

b) Các khoảng cách của hai số liền kề (hiệu của hai số đó )

Xem chi tiết
Lớp 8 Tin học Lập trình đơn giản

Khách
 
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 15:01

#include <bits/stdc++.h>

using namespace std;

int A[1000],n,i;

int main()

{

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

sort(A+1,A+n+1);

for (int i=1; i<=n; i++)

cout<<A[i]<<" ";

cout<<endl;

for (int i=2; i<=n; i++)

cout<<A[i]-A[i-1]<<endl;

return 0;

}

Bình luận (1)
Huy Phạm

1.Viết chương trình nhập vào một dãy số gồm n phần tử.Sắp xếp dãy số theo thứ tự tăng dần sau đó in ra màn hình dãy số đã sắp xếp. 2.Viết chương trình nhập vào một dãy số gồm n phần tử. Sắp xếp dãy số theo thứ tự giảm dần sau đó in ra màn hình dãy số đã sắp xếp.(cứu mk với mai thi r ạ🥲

Xem chi tiết
Lớp 8 Tin học Ôn tập cuối năm

Khách
 
Kiều Vũ Linh
3 tháng 5 2023 lúc 6:12

1)

Var array:[1..1000] of integer;

i,n,t:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] > a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep tang dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Bình luận (0)
Kiều Vũ Linh
3 tháng 5 2023 lúc 6:13

2)

Var array:[1..1000] of integer;

i,n,t:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] < a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep giam dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Bình luận (0)
k_o_t_en

mô tả thuật toán và viết chương trình sắp xếp dãy số A gồm N phần tử(N được nhập từ bàn phím) sắp xếp theo thứ tự tăng dần

(pascal)

Xem chi tiết
Lớp 8 Tin học

Khách
 
Panda

1/Cho một dãy số N phần tử . Viết chương trình sắp xếp các phần tử đã cho theo thứ tự tăng dần (giảm dần)

2/ Viết chương trình chèn thêm 1 số nguyên vào 1 dãy số nguyên đã được sắp xếp theo thứ tự tăng dần sao cho dãy số không thay đổi trật tự sắp xếp

GIÚP MIK VỚI  SẮP KT 1 TIẾT RÙI!!!!!!!!!!!!!........

Xem chi tiết
Lớp 8 Toán Câu hỏi của OLM

Khách
 
Jhon wisk

Viết chương trình pascal nhập vào một mảng số nguyên B số lượng phần tử là m nhập từ bàn phím
+  sắp xếp mảng theo thứ tự giảm dần rồi in mảng đã sắp xếp ra màn hình

Xem chi tiết
Lớp 8 Tin học

Khách
 
Kiều Vũ Linh
25 tháng 4 2023 lúc 7:31

Var a:array[1..1000] of integer;

i,m,tam:integer;

Begin

Write('m = ');readln(m);

For i:=1 to m do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to m do

If a[i] < a[i+1] then

Begin

tam:=a[i];

a[i]:=a[i+1];

a[i+1]:=tam;

End;

Write('Mang sau khi sap xep: ');

For i:=1 to m do

Write(a[i]:8);

Readln;

End.

Bình luận (0)
ádfg

hãy viết 1 chương trình nhập dãy số gồm n số nguyên (n<=100).Viết chương trình sắp xếp các phần tử chẳn lên đầu dãy theo thứ tự tăng dần.các phần tử lẻ ở cuối dãy theo thứ tự giảm dần 

 

 

Xem chi tiết
Lớp 11 Tin học Chương trình con và lập trình có cấu trúc

Khách
 
Nguyễn Lê Phước Thịnh
10 tháng 12 2021 lúc 23:11

#include <bits/stdc++.h>

using namespace std;

long long a[100],b[100],c[100],n,i,dem1,dem2;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

cin>>a[i];

dem1=0;

dem2=0;

for (i=1; i<=n; i++)

{

if (a[i]%2==0) 

{

dem1++;

b[dem1]=a[i];

}

else 

{

dem2=0;

c[dem2]=a[i];

}

}

sort(b+1,b+dem1+1);

sort(c+1,c+dem2+1);

for (i=1; i<=dem1; i++)

cout<<b[i]<<" ";

for (i=dem2; i>=1; i--)

cout<<c[i]<<" ";

return 0;

}

Bình luận (0)
Văn Công Sỹ
Viết chương trình nhập từ bàn phím số nguyên dương N (N100) và dãy A gồm N số nguyên A1, A2, …AN. Tìm và in ra số nhỏ nhất của dãy số vừa nhập? Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Input: Số nguyên dương N và dãy số A gồm N số nguyên dương a1, a2, …, an. Output: In ra Phần tử nhỏ nhất của dãy số đó. Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình.
Đọc tiếp
Xem chi tiết
Lớp 12 Tin học

Khách
 
Văn Công Sỹ
25 tháng 4 2021 lúc 10:28

Làm giúp bài này nhé

 

Bình luận (0)
Bùi Anh Tuấn
25 tháng 4 2021 lúc 19:41

Bình luận (0)
Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 22:19

uses crt;

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

i,n,min,tam,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln('Gia tri nho nhat la: ',min);

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;

for i:=1 to n do write(a[i]:4);

readln;

end.

Bình luận (0)
bui pham phuong Uyen

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.

Xem chi tiết
Lớp 11 Tin học Một số khái niệm về lập trình và ngôn ngữ lập trìn...

Khách
 
Nguyễn Lê Phước Thịnh
27 tháng 1 2021 lúc 13:15

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.

Bình luận (0)
Hùngg Nguyễnn

Viết chương trình nhập vào 1 dãy gồm 30 phần tử sắp xếp dãy đó theo thứ tự tăng dần

Xem chi tiết
Lớp 8 Tin học Bài 9. Làm việc với dãy số

Khách
 
꧁Ŧą∂ღℓ๏νëღ₤ąρเй꧂
21 tháng 4 2021 lúc 12:36

Program Day_So_Giam_Dan;
Begin
Write(‘a[‘,i,’]= ‘);
End;
Readln;

End.

Bình luận (2)
꧁Ŧą∂ღℓ๏νëღ₤ąρเй꧂
21 tháng 4 2021 lúc 12:41
#include <stdio.h> int main(){    int a[100];    int n;    printf("\nNhap so luong phan tu n = ");    do{        scanf("%d", &n);        if(n <= 0){            printf("\nNhap lai n = ");        }    }while(n <= 0);        for(int i = 0; i < n; i++){        printf("\nNhap a[%d] = ",i);        scanf("%d", &a[i]);    }        // Sap xep dung thuat toan sap xep chon    int tg;    for(int i = 0; i < n - 1; i++){        for(int j = i + 1; j < n; j++){            if(a[i] > a[j]){                // Hoan vi 2 so a[i] va a[j]                tg = a[i];                a[i] = a[j];                a[j] = tg;                    }        }    }            printf("\nMang da sap xep la: ");    for(int i = 0; i < n; i++){        printf("%5d", a[i]);    }        } 
Bình luận (0)
Nguyễn Lê Phước Thịnh
21 tháng 4 2021 lúc 19:30

uses crt;

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

i,j,tam:integer;

begin

clrscr;

for i:=1 to 30 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 29 do 

  for j:=i+1 to 30 do 

  if a[i]>a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to 30 do 

  write(a[i]:4);

readln;

end.

Bình luận (0)

Khoá học trên OLM (olm.vn)