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

OLM tuyển CTV cộng đồng hỏi đáp, đăng kí ngay!

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
LT
Luân Trần
4 tháng 11 2019

Xét đoạn chương trình sau:

a:=100; write('b='); readln(b);

if (a<=b) then write(-1) else write(1);

if (a=b) then write (0);

Nhập giá trị bao nhiêu cho b để đoạn chương trình nhận được kết quả là -10 ?
#Hỏi cộng đồng OLM #Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
4 tháng 11 2019

-110

Đúng(0)
NK
nguyễn khánh
20 tháng 12 2021

Hãy cho biết giá trị của a và b là bao nhiêu khi kết thúc chương trình sau:
Var  a, b: integer;
Begin
  a:=10 ; b:=6;
  If a<b then begin a :=a+b; a := a- b end;
 Writeln('a = ', a, ' b = ',b);
End.
#Hỏi cộng đồng OLM #Tin học lớp 11
1
ML
Minh Lệ
20 tháng 12 2021

a=10; b=6

Điều kiện a<b -> điều kiện sai vì vậy câu lệnh không được thực hiện giá trị của a và b đều được giữ nguyên là a=10; b=6

Đúng(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
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)
VC
Văn Chí Vĩ
5 tháng 1 2022

Cho biết kết quả chương trình sau và giải thích

program vidu;
uses crt;
var i:integer;
begin
  clrscr;
  i:=15;
  while i>1 do 
  begin
  If i mod 2 =0 then i:=i div 2 else i:=i*3+1;
  Write(i:5);
  End;
  readln;
end.
#Hỏi cộng đồng OLM #Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
5 tháng 1 2022

Chương trình sẽ bị lỗi vì vi i:5 chỉ dành cho số thực, không dành cho số nguyên

Đúng(0)
NT
Nguyễn Thắng
12 tháng 12 2018
phat hien va sua loi cu phap cho chuong trinh: in ra man hinh tong cac so le co trong day so Program tong_so_le; Var N, i : byte; Tong : integer; A: Array(1..250) of Integer ; begin write('Nhap gia tri cho N='); Readln(N); write('nhap gia tri cho day so'); For i=1 to N do Readln(A[i]); Tong :=0; For i :=1 to N do; If (A[i] mod 2<>0) then Tong :=Tong + A[i]; Write('Tong cac so le trong day so la: ',Dem); Readln End. ...
Đọc tiếp

phat hien va sua loi cu phap cho chuong trinh: in ra man hinh tong cac so le co trong day so

Program tong_so_le;
Var N, i : byte; Tong : integer;
A: Array(1..250) of Integer ;
begin
write('Nhap gia tri cho N='); Readln(N);
write('nhap gia tri cho day so');
For i=1 to N do Readln(A[i]);
Tong :=0;
For i :=1 to N do;
If (A[i] mod 2<>0) then Tong :=Tong + A[i];
Write('Tong cac so le trong day so la: ',Dem);
Readln
End.
#Hỏi cộng đồng OLM #Tin học lớp 11
1
TN
Trâm Nguyễn Thị Ngọc
21 tháng 12 2018

Sữa lỗi:

phần khai báo:a:array[1..250] of integer (ngoặc vuông ko phải ngoặc tròn)

Đúng(0)
HN
Hoàng Ngọc Hà
24 tháng 4 2017
Cho chương trình sau: var a,b: integer; procedure KiemTra(var x,y:integer); begin x:=5; t:=y-x; y:=t+3; end; begin a:=3; b:=5; KiemTra(a,b); write (a: 6,b:6); readln end. Yêu cầu: - Xác định: Tham trị, tham biến, tham số hình thức, tham số thực sự, biến cục bộ, biến toàn cục - Lời gọi chương trình con sau có hợp lệ không, vì sao : - KiemTra(5,b); , KiemTra(a-3,b-1); ...
Đọc tiếp

Cho chương trình sau:
var a,b: integer;
procedure KiemTra(var x,y:integer);
begin
x:=5;
t:=y-x;
y:=t+3;
end;
begin
a:=3;
b:=5;
KiemTra(a,b);
write (a: 6,b:6);
readln
end.
Yêu cầu:
- Xác định: Tham trị, tham biến, tham số hình thức, tham số thực sự, biến cục bộ, biến toàn cục
- Lời gọi chương trình con sau có hợp lệ không, vì sao : - KiemTra(5,b); , KiemTra(a-3,b-1);
#Hỏi cộng đồng OLM #Tin học lớp 11
0
A
Abcxyz
17 tháng 3 2021

Đưa ra các câu lệnh sau vào những vị trí cần thiết nhằm đổi chương trình trên để có được chương trình đọc dữ liệu từ bàn phím và ghi dữ liệu vào tệp. Chương trình Var s:string; a:byte; Begin readln(s); a:=length(s); Write(a); readln; End. Câu lệnh f1:text; Assign(f1,'c:\ghixau1.txt'); Rewrite (f1); Write(f1,a); Close(f1); Mong mọi người giúp ạ!Thanks!
#Hỏi cộng đồng OLM #Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
17 tháng 3 2021

var s:string;

f1:text;

a:byte;

begin

assign(f1,'c:\ghixau1.txt'); rewrite(f1);

readln(s);

writeln(f1,s);

close(f1);

End.

Đúng(0)
NC
Nguyễn Cảnh Hùng
24 tháng 8 2019
Cho đoạn chương trình sau:Var g:text;    I:integer;Begin Assign(g, ‘C:\DLA.txt’); Rewrite(g); For i:=1 to 10 do If i mod 2 = 0 then write(g, i); Close(g); ReadlnEnd. Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào? A. 2; 4; 6; 8; 10 B. 1; 3; 5; 9 C. 1; 3; 5; 7; 9 D. 4; 6; 8; 10...
Đọc tiếp

Cho đoạn chương trình sau:

Var g:text;

    I:integer;

Begin

 Assign(g, ‘C:\DLA.txt’);

 Rewrite(g);

 For i:=1 to 10 do

 If i mod 2 = 0 then write(g, i);

 Close(g);

 Readln

End.

Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?

A. 2; 4; 6; 8; 10

B. 1; 3; 5; 9

C. 1; 3; 5; 7; 9

D. 4; 6; 8; 10
#Hỏi cộng đồng OLM #Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
24 tháng 8 2019

Đáp án đúng : A

Đúng(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