Trang chủ Tin Học Lớp 10 Bài 1: Cho mảng 1 chiều Diem gồm có 10...

Bài 1: Cho mảng 1 chiều Diem gồm có 10 phần tử có kiểu số thực. Em hãy viết đoạn chương trình để thực hiện yêu cầu sau: 1. Nhập giá trị điểm cho mảng 2. Xuất g

Câu hỏi :

Bài 1: Cho mảng 1 chiều Diem gồm có 10 phần tử có kiểu số thực. Em hãy viết đoạn chương trình để thực hiện yêu cầu sau: 1. Nhập giá trị điểm cho mảng 2. Xuất giá trị mång điểm ra màn hình 3. Xuất ra màn hình giá trị điểm của phần tử thứ 3 4. Tìm phần tử có điểm lớn nhất (cho biết vị trí và giá trị điểm số) 5. Tìm phần tử có điểm nhỏ nhất (cho biết vị trí và giá trị diểm số) 6. Sắp xếp mảng Diem thành mång không giảm 7. Sắp xếp mảng Diem thành mång không tăng 8. In ra màn hình vị trí của các phân tử có giá trị lớn hơn 10 9. Hoàn chinh các đoạn chương trình trên thành 1 chương trình pascal hoàn chinh.

Lời giải 1 :

program oken;
uses crt;
var a: array [1..100] of longint;
    i,n,max,min,j,tam:longint;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('diem ban thu ',i,': '); readln(a[i]);
                end;
        write('diem: ');
        for i:=1 to n do
                write(a[i],' ');
        writeln;
        writeln('diem cua ban thu 3: ',a[3]);
        max:=a[1]; min:=a[1];
        for i:=2 to n do
                if a[i]>max then
                        max:=a[i]
                else
                        if a[i]<min then
                                min:=a[i]
                        else
                                if (a[i]=max) and (a[i]=min) then Max:=Min;
        writeln('Max: ',max);
        writeln('Min: ',min);
        write('sap xep mang theo kieu khong giam: ');
        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;
        for i:=1 to n do write(a[i],' ');
        write('sap xep mang theo kieu khong tang: ');
        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],' ');
        writeln;
        write('cac gia tri lon hon 10: ');
        for i:=1 to n do
                if a[i]>=10 then
                        write(a[i],' ');
        readln;
end.

Thảo luận

-- Vào trang cá nhân của mình rồi giúp mình với

Lời giải 2 :

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,vt1,vt2;
    cin>>n;
    int diem[n];
    for(int i=0;i<n;i++){
        cin>>diem[i];
    }
    int be=diem[0],lon=diem[0];
    for(int i=0;i<n;i++){
        cout<<diem[i]<<" ";
        if(be>diem[i]){
            be=diem[i];
            vt1=i;
        }
        if(lon<diem[i]){
            lon=diem[i];
            vt2=i;
        }
    }
    cout<<"\nPhan tu co diem lon nhat la "<<lon<<" o vi tri "<<vt2<<"\nPhan tu co diem be nhat la "<<be<<" o vi tri "<<vt1<<endl;
    for(int i=0;i<n-1;i++){
        for(int j=i+1;j<n;j++){
            if(diem[i]<diem[j]){
                int temp=diem[i];
                diem[i]=diem[j];
                diem[j]=temp;
            }
        }
    }
    for(int i=0;i<n;i++){
        cout<<diem[i]<<" ";
    }
    for(int i=0;i<n-1;i++){
        for(int j=i+1;j<n;j++){
            if(diem[i]>diem[j]){
                int temp=diem[i];
                diem[i]=diem[j];
                diem[j]=temp;
            }
        }
    }
    for(int i=0;i<n;i++){
        cout<<diem[i]<<" ";
    }
    cout<<"\nCac phan tu co gia tri lon hon 10: ";
    for(int i=0;i<n;i++){
        if(diem[i]>10){
            cout<<diem[i]<<" ";
        }
    }
    //samon247
    return 0;
}

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 10

Lớp 10 - Năm thứ nhất ở cấp trung học phổ thông, năm đầu tiên nên có nhiều bạn bè mới đến từ những nơi xa hơn vì ngôi trường mới lại mỗi lúc lại xa nhà mình hơn. Được biết bên ngoài kia là một thế giới mới to và nhiều điều thú vị, một trang mới đang chò đợi chúng ta.

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK