OLM cung cấp gói bải giảng điện tử PPT cho giáo viên đầu năm học

Thi thử và xem hướng dẫn giải chi tiết đề tham khảo 12 môn thi Tốt nghiệp THPT 2025

Tham gia cuộc thi "Nhà giáo sáng tạo" ẫm giải thưởng với tổng giá trị lên đến 10 triệu VNĐ

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
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];                   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 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
#Tin học lớp 11
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.
#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)
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 ?
#Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
4 tháng 11 2019

-110

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

 
#Tin học lớp 11
0
HL
Hoang Linh
6 tháng 5 2022

Cho đoạn chương trình sau:   s1:='abcd';   s2:='acb';     

  if length(s1)>length(s2) then write(s2) else write(s1);

Đoạn chương trình trên đưa ra màn hình kết quả nào sau đây:

A. Abcdacb         B. Acb        C. Abcd                D. Acbabcd  
#Tin học lớp 11
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.
#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)
LB
Lê Băng
8 tháng 5 2020
Câu 1(3đ). Hãy khai báo mảng một chiều lưu trữ 100 phần tử số nguyên có giá trị trong khoảng từ 0 đến 255 bằng cách: a. Trực tiếp; b. Gián tiếp: c. Tham chiếu đến phần tử thứ 50 và gán giá trị bằng 45. Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, a2,..an. Tính tổng các phần tử chăn chia hết cho 3. Câu 3 (3đ). Cho đoạn chương trình sau: a. Với: N=6; k=8 A= 45 56 73 64 55 98 Program Bai3; Type KM-array[1..100] of...
Đọc tiếp

Câu 1(3đ). Hãy khai báo mảng một chiều lưu trữ 100 phần tử số nguyên có giá trị trong khoảng từ 0 đến 255 bằng cách: a. Trực tiếp; b. Gián tiếp: c. Tham chiếu đến phần tử thứ 50 và gán giá trị bằng 45. Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, a2,..an. Tính tổng các phần tử chăn chia hết cho 3. Câu 3 (3đ). Cho đoạn chương trình sau: a. Với: N=6; k=8 A= 45 56 73 64 55 98 Program Bai3; Type KM-array[1..100] of LongInt; Var a:KM; i,N, k:Integer; Begin Write('Nhap N= ');Readln (N); Write('Nhap k= '); Readln (k); For i:-1 to n do Begin Write(Nhap a[',I,']= '); Readln(a[i]); If trunc (sqrt (a(i]))=k then Write (i:6); End; Chương trình sẽ đưa ra kết quả gì? b. Với: N=6; k=5 A= 45 56 73 64 55 98 Chương trình sẽ đưa ra kết quả gì? c. Sửa điều kiện lệnh If thành kiểm tra xem a[i] có là số chính phương hay không? (Số chính phương là: x2 = ai. VD 9 = 32; 16 = 42; 81 = 92) Readln; End.
#Tin học lớp 11
0
TU
Trần Uyên
23 tháng 12 2020

trong ngôn ngữ lập trình pascal chương trình sau có kết quả gì ?

if (5 mod 2 = 0 ) then write(''SAI'') else write ('dung')

A. SAI

B. ĐÚNG

C.CHƯƠNG TRÌNH BỊ LỖI

D.KHÔNG CÓ GÌ CẢ
#Tin học lớp 11
2
HT
Hoàng Tử Hà
23 tháng 12 2020

Thiếu dấu ";"=> chương trình bị lỗi

Đúng(0)
NL
Nguyễn Lê Phước Thịnh
24 tháng 12 2020

Chương trình sẽ bị lỗi vì thiếu dấu ; ở chỗ sau write('dung')

=> Chọn C

Đúng(0)
QT
Quyết Thắng Đỗ
18 tháng 3 2020
Ghi chú dòng lệnh bằng tiếng việt với chương trình giải phương trình bậc hai: Program Giai_PTB2; Uses crt; var a,b,c: real; D, x1, x2: real; begin clrscr; write(' a, b, c: '); readln(a, b, c); D:= b*b-4*a*c; If D<0 then writeln (' Phương trinh vo nghiem.') else begin x1:= (-b-sqrt(D))/(2*a); x2:= -b/a-x1; writeln(' x1= ', x1:8:3, x2= ', x2:8:3); end; ...
Đọc tiếp

Ghi chú dòng lệnh bằng tiếng việt với chương trình giải phương trình bậc hai:

Program Giai_PTB2;

Uses crt;

var a,b,c: real;

D, x1, x2: real;

begin

clrscr;

write(' a, b, c: ');

readln(a, b, c);

D:= b*b-4*a*c;

If D<0 then writeln (' Phương trinh vo nghiem.')

else

begin

x1:= (-b-sqrt(D))/(2*a);

x2:= -b/a-x1;

writeln(' x1= ', x1:8:3, x2= ', x2:8:3);

end;

readln

end.
#Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
18 tháng 3 2020

uses crt: thư viện crt;

var a,b,c:real có nghĩa là khai báo a,b,c kiểu số thực

d,x1,x2: real là khai báo d,x1,x2 kiểu số thực

begin: bắt đầu

write('a,b,c:'); : viết(a,b,c)

readln(a,b,c); : đọc(a,b,c)

d:=b*b-4*a*c; : delta được gán bằng b bình -4 nhân a nhân c

if d<0 then writeln('phuong trinh vo nghiem'): nếu d<0 thì viết('phuong trinh vo nghiem')

else: ngược lại

gán x1,x2 lần lượt là hai nghiệm của phương trình

xuất hai nghiệm đó ra màn hình

xong rồi readln; end. có nghĩa là kết thúc chương trình

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