OLM ưu đãi đặc biệt gói SVIP 18 THÁNG dành cho nhà trường, đăng kí ngay!

Tham gia chương tình "Học kỳ rực rỡ" cùng OLM cơ hội nhận quà lên tới 2.000.000Đ

Cơ hội nhận 15 ngày VIP dành cho thầy cô nhân dịp đầu năm

K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên
Mua vip
NH
Nguyễn Hùng
6 tháng 4 2020

For i := 1 to T do

Begin

Write ( 'hay nhap gia tri so thuv',i,' la:');

Readln ( M[i] ) ;

End ;

Đoạn chương trình này làm gì

#Hỏi cộng đồng OLM #Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
6 tháng 4 2020

Đoạn chương trình này làm công việc nhập vào T số thực m[i]

Đúng(0)
TD
Trần Đăng Khôi
22 tháng 2 2023 - olm

T:=0
for i:=1 to 100 do T:=T+1/i;
writeln(T)
T:=0;i:=1
write i<=100 do begin T:=T+1/i; i:=i+1 end;
writeln(T)
#Hỏi cộng đồng OLM #Tin học lớp 3
1
NT
Nrưè Trrứ Danh
31 tháng 8 2023

???

Đúng(0)
NT
Nguyễn Thái Phương Thảo
22 tháng 4 2023

Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?
#Hỏi cộng đồng OLM #Tin học lớp 8
0
AL
Anh Lê duy
29 tháng 11 2021
Chương trình sau giải quyết vấn đề gì?  Var   a:array[1..4] of integer;  Begin        For i:=1 to 4 do        Begin           Write('nhap cac phan tu A[',i,']:');            readln (a[i]);        End;        For i:=1 to 3 do        For j:= I+1 to 4 do             If a[i]> a[j] then               Begin                   tg:=a[i];          ...
Đọc tiếp

Chương trình sau giải quyết vấn đề gì?

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

  Begin

        For i:=1 to 4 do

        Begin

           Write('nhap cac phan tu A[',i,']:');

            readln (a[i]);

        End;

        For i:=1 to 3 do

        For j:= I+1 to 4 do

             If a[i]> a[j] then

               Begin

                   tg:=a[i];

                   a[i]:=a[j];

                   a[j]:=tg;

               end;

         For I:=1 to  4 do

         Write(a[i]);

    End.

Select one:

a. sắp xếp các phần tử của mảng theo trật tự tăng dần

b. Tìm Max

c. sắp xếp các phần tử của mảng theo trật tự giảm dần

d. Chương trình có lỗi
#Hỏi cộng đồng OLM #Tin học lớp 11
0
NC
Nhân CFM
11 tháng 5 2020
Program HelloWorld(output); Var a,b :array[1..100] of integer; i,n,s,d:integer; begin write(‘Nhap n= ’); readln(n); For i:=1 to n do Begin Write(‘a[‘,i,’]=’); readln(a[i]); End; s:=0; for i:=1 to n do if (a[i]mod 2=1) then s:=s+a[i]; write(‘tong so le ’,s); d:=0; for i:=1 to n do if (a[i]mod 3=0) then d:=d+1; write(‘so luong so chia het cho 3: ’,d); For i:=1 to n do b[i]:=2*a[i]; For i:=1 to n do write(b[i]:4); readln end. code này sai...
Đọc tiếp

Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);


d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.

code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.
#Hỏi cộng đồng OLM #Tin học lớp 11
1
ML
Minh Lệ
11 tháng 5 2020

Mình kiểm tra thấy nó có sai về lỗi gì đâu. Ý bạn là sai về cách chạy đúng không, bạn gửi đề để mình xem nhé

Đúng(0)
NT
Nguyễn Thái Phương Thảo
22 tháng 4 2023

Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu
#Hỏi cộng đồng OLM #Tin học lớp 8
0
NQ
Như Quỳnh Nguyễn
11 tháng 4 2020
Cho chương trình sau Program Xep_so; Const T = 10; Var M : Array[ 1 . . T ] of Integer; Tg, i, j: Integer; Begin For i: = 1 to T do Begin Write(‘Hay nhap gia tri so thu’ , i , ’la :’); Readln(M[ i ]); End; For i : = 1 to T - 1 do For j : = i + 1 to T do ...
Đọc tiếp

Cho chương trình sau

Program Xep_so;

Const T = 10;

Var M : Array[ 1 . . T ] of Integer;

Tg, i, j: Integer;

Begin

For i: = 1 to T do

Begin

Write(‘Hay nhap gia tri so thu’ , i , ’la :’);

Readln(M[ i ]);

End;

For i : = 1 to T - 1 do

For j : = i + 1 to T do

Begin

If M[ i ] > M[ j ] then

Begin

Tg: = M[ i ];

M[ i ]: = M[ j ];

M[ j ]: = Tg;

End;

End;

Writeln(‘ KET QUA SU CHUONG TRINH CHAY LA:’);

For i: = 1 to T do Writeln(M[ i ]);

Readln

End.

A. Cho biết đoạn chương trình này làm gì?
#Hỏi cộng đồng OLM #Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
11 tháng 4 2020

Đúng rồi đó bạn

Đúng(0)
NQ
Như Quỳnh Nguyễn
11 tháng 4 2020

đúng ko ạ

Đúng(0)
NT
Nguyễn Thái Phương Thảo
21 tháng 4 2023

Cho biết chức năng của lệnh for i:=1 to n do begin write('A[',i,']=') readln(A[i]); end;
#Hỏi cộng đồng OLM #Tin học lớp 8
1
ML
Minh Lệ
21 tháng 4 2023

Chức năng của câu lệnh là nhập giá trị cho từng phần tử của mảng A

Đúng(1)
NL
Nụ Lữ
11 tháng 6 2020
Em hiểu gì về đoạn chương trình sau a) Var a array [1......10] of real; b) Begin Writeln ('Nhap day so thuc'); For i:=1 to 10 do Begin Write ('a[',i,']='); Readln (a[i]); End. c) Writeln ('In day cac phan tu:'); For i:=1 to 10 do write (a[i]:5:2);Writeln; d)For i:=10 downto 1 do write (a[i]:5:2);writeln; e) S:=0; For i:=1 to 10 do 'S:=S+a[i]; Write ('S='5:8:2);writeln; Write...
Đọc tiếp

Em hiểu gì về đoạn chương trình sau

a) Var a array [1......10] of real;

b) Begin

Writeln ('Nhap day so thuc');

For i:=1 to 10 do

Begin

Write ('a[',i,']=');

Readln (a[i]);

End.

c) Writeln ('In day cac phan tu:');

For i:=1 to 10 do write (a[i]:5:2);Writeln;

d)For i:=10 downto 1 do write (a[i]:5:2);writeln;

e) S:=0;

For i:=1 to 10 do 'S:=S+a[i];

Write ('S='5:8:2);writeln;

Write ('S=',S/10:
#Hỏi cộng đồng OLM #Tin học lớp 12
0
LP
lê phương linh
5 tháng 3 2023
Tìm và sửa lỗi cho chương trình sau:Bài 1:Program bai 1;Var x; n: integer;Begin        X=12        Write(n:4,x:4);ReadInEnd.Bài 2:Program 2bai;Var i, n, s:real;Begin      S:=0      For i:=0.5 to n do               S=S+i;      Write(s);     ...
Đọc tiếp

Tìm và sửa lỗi cho chương trình sau:

Bài 1:

Program bai 1;

Var x; n: integer;

Begin

        X=12

        Write(n:4,x:4);

ReadIn

End.

Bài 2:

Program 2bai;

Var i, n, s:real;

Begin

      S:=0

      For i:=0.5 to n do

               S=S+i;

      Write(s);

      ReadIn

End.
#Hỏi cộng đồng OLM #Tin học lớp 8
1
KV
Kiều Vũ Linh
6 tháng 3 2023

Bài 1

Lỗi:

1) Program bai 1; => sửa: Program bai1;

2) Var x; n: integer; => sửa: Var x, n:integer;

3) X = 12 => sửa: x:=12;

-------------------

Bài 2

Lỗi

1) Program 2bai; => sửa: Program bai2;

2) Var i, n, s:integer;

3) S:=0 => sửa S:=0;

4) For i:=0,5 to n do => sửa: For i:=1 to 5 do

5) S=S+i; => sửa: S:=S+i;

Đúng(2)
AL
Anh Lê duy
29 tháng 11 2021
Chương  trình sau in ra kết quả gì khi ta nhập các số 1,-2,-4,6,9 ?   Var        A:array[1..5] of integerl;        I:intege;    Begin        For I=1 to 5 do              Begin                Write('so nguyên thứ ',I);                readln(a[I]);             End;        For I=1 to 5 do            If a[I]>=0 then writeln([a],', '); End.Select one:a. -2,-4,6b. 1,6,9c. -2,-4d....
Đọc tiếp

Chương  trình sau in ra kết quả gì khi ta nhập các số 1,-2,-4,6,9 ?

   Var

        A:array[1..5] of integerl;

        I:intege;

    Begin

        For I=1 to 5 do

              Begin

                Write('so nguyên thứ ',I);

                readln(a[I]);

             End;

        For I=1 to 5 do

            If a[I]>=0 then writeln([a],', ');

 End.

Select one:

a. -2,-4,6

b. 1,6,9

c. -2,-4

d. 1,-2,-4,6,9

 
#Hỏi cộng đồng OLM #Tin học lớp 11
0
Bảng xếp hạng
Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên
  • Tuần
  • Tháng
  • Năm
Các khóa học có thể bạn quan tâm
Tổng thanh toán: 0đ (Tiết kiệm: 0đ)
Tới giỏ hàng
Yêu cầu VIP