Program sdfsadfd;uses crt;Var n,i,D,C,k,j,m:longint;a,b:array[0..10005]of longint;BEGINRead(n);For i:=1 to n do beginRea... - Hoc24

Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn

Hãy tham gia nhóm Học sinh Hoc24OLM

Chọn lớp:

Chọn môn:

Gửi câu hỏi ẩn danh

H24

•๖ۣۜNHa•

17 tháng 12 2021 lúc 9:37

Program sdfsadfd;
uses crt;
Var n,i,D,C,k,j,m:longint;
a,b:array[0..10005]of longint;
BEGIN
Read(n);
For i:=1 to n do begin
Read(a[i]);
a[i]:=a[j-1]+a[i];
end;
Read(m);
For i:=1 to m do begin
Read(b[i]);
D:=1; C:=n;
WHile D<C do begin
k:=(D+C) div 2;
If a[k]<b[i] then D:=K+1
else C:=K;
end;
WRite(D,' ');
end;
END.

Viết xong code, chương trình chạy bình thường! nhưng nhập được 1/2 thì exit code 201! Vậy cần sửa chổ nào ạ?

Lớp 8 Tin học

Khách

NT

Nguyễn Lê Phước Thịnh CTV

17 tháng 12 2021 lúc 11:53

cái chố a,b là real nhé bạn

Đúng 0

Bình luận (0)

Các câu hỏi tương tự

NT

Nguyễn Thái Phương Thảo

22 tháng 4 2023 lúc 7:49

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ì?

Lớp 8 Tin học

NT

Nguyễn Thái Phương Thảo

22 tháng 4 2023 lúc 7:52

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

Lớp 8 Tin học

LG

Linh Nguyễn Gia

17 tháng 3 2023 lúc 22:25

Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sauCâu a) i : -1; j: 20;For k: 1 to 5 do If k mod 2 0 then i: i + 1;j : j + i;Writeln(i,‘ ’,j);Câu b)n : 127;m : 0;While n 0 doBegin m : m * 10 + n mod 10; n : n div 10;end;writeln(m);

Đọc tiếp

Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sau

Câu a)

i := -1;

j:= 20;

For k:= 1 to 5 do

If k mod 2 = 0 then i:= i + 1;

j := j + i;

Writeln(i,‘ ’,j);

Câu b)

n := 127;

m := 0;

While n < >0 do

Begin

m := m * 10 + n mod 10;

n := n div 10;

end;

writeln(m);

Lớp 8 Tin học

AK

An Võ Khánh

7 tháng 3 2023 lúc 7:08

j:=1;k=2 For i:=1 to 5 do Begin J:=j+1 K:=k+j Writeln(j,k); End. A.20 B.21 C.22 D.23 Tự luận là nêu cú pháp câu lệnh lặp và chú thích từng thành phần

Lớp 8 Tin học

PN

Phước Nguyễn

26 tháng 4 2022 lúc 10:14

cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:0; For i:2 to 8 do S :S+i b) S:0; n:1;For i:1 to 6 do Begin S:S+n; n:n+i; end;c) S:2;For i:1 to 10 do If(i mod 2)0 then S:S+i;d) S:0; i: 1,5;While S7 do S:S+i;e) S:0; i:1;While i9 do Begin S:S+i; i:i+2; End;f) S:2; i:1;While i 10 doBeginIf (i mod 2) then S:S+i; i:i+1;End;

Đọc tiếp

cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:=0;

For i:=2 to 8 do S :=S+i

b) S:=0; n:=1;

For i:=1 to 6 do

Begin

S:=S+n;

n:=n+i;

end;

c) S:=2;

For i:=1 to 10 do

If(i mod 2)=0 then S:=S+i;

d) S:=0; i:= 1,5;

While S<7 do S:=S+i;

e) S:=0; i:=1;

While i<9 do

Begin

S:=S+i;

i:=i+2;

End;

f) S:=2; i:=1;

While i<= 10 do

Begin

If (i mod 2) then S:=S+i;

i:=i+1;

End;

Lớp 8 Tin học

PN

Phú Nhuận Nguyễn

18 tháng 3 2021 lúc 18:19

uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).

Lớp 8 Tin học

NL

Nguyễn Yến Linh

2 tháng 3 2022 lúc 11:29

BÀI THỰC HÀNHTuần 25 (Tiết 1)Bài 1: Cho mãng gồm n phần tử là số thực.a.Tìm hai phần tử liên tiếp nhau có tổng bằng n.b. Tính khoảng cáhc giữa hai vị trí của phần tửlớn nhất và bé nhất đầu tiên trên A.{Chương trình}Program Tuan25_Bai1;Uses crt;VarA: array[1…..100] of real;Max, min : realI, n, Vtmax, Vtmin integer;BeginWriteln(‘nhap n:’); readln(n);For i: 1 to n do;BeginWrite(‘[‘,I,’]’); readln(A[i]);End.i:1;{Tìm hai phần tử liên tiếp nhau có tổng bằng n}While (A[i] + A[i+1]) n) and (i n-1) do...

Đọc tiếp

BÀI THỰC HÀNH

Tuần 25 (Tiết 1)

Bài 1: Cho mãng gồm n phần tử là số thực.

a.Tìm hai phần tử liên tiếp nhau có tổng bằng n.

b. Tính khoảng cáhc giữa hai vị trí của phần tửlớn nhất và bé nhất đầu tiên trên A.

{Chương trình}

Program Tuan25_Bai1;

Uses crt;

Var

A: array[1…..100] of real;

Max, min : real

I, n, Vtmax, Vtmin = integer;

Begin

Writeln(‘nhap n:’); readln(n);

For i: 1 to n do;

Begin

Write(‘[‘,I,’]=’); readln(A[i]);

End.

i:=1;

{Tìm hai phần tử liên tiếp nhau có tổng bằng n}

While (A[i] + A[i+1]) <> n) and (i<= n-1) do i:=i+1

If i>=n then write (‘hai phan tu co chi so la:’,i,’ va’,i+1);

{Tính khoảng cáhc giữa hai vị trí của phần tử lớn nhất và bé nhất đầu tiên trên A}

Max=A[1];

Min:A[1];

For i:1 to n do

If max < A[i] then

Begin

Vtmax:= i; Max:=A[i];

End

If min > A[i] then

Begin

Vtmin: i; Min=A[i];

End

Writeln (‘khoangr cach giua 2 phan tu max vaf min la:’,abs(Vtmax – Vtmin));

Readln;

End

Lớp 8 Tin học Câu hỏi của OLM

DM

Đức Minh

9 tháng 5 2022 lúc 22:20

a) if ab then max:a; else max:b;b) var X: Array[5..10] Of Real; c) X:10; while X:10 do X : X+5; d) for i:1.5 to 10 do m:m + 1;e) if ab then max:a else max:b;f) var X: Array[5.5..10] Of Real; g) X:10; while X10 do X : X+5; h) for i:1.5 to 10 do m:m + 1;III. Hãy viết các câu lệnh, khai báo theo yêu cầu sau: A. Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực.B. Phần tử thứ 5 của mảng A được gán giá trị là 8.C. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên.D. Nhập giá...

Đọc tiếp

a) if a>b then max:=a; else max:=b;

b) var X: Array[5..10] Of Real;

c) X:=10; while X:=10 do X := X+5;

d) for i:=1.5 to 10 do m:=m + 1;

e) if a>b then max:=a else max:=b;

f) var X: Array[5.5..10] Of Real;

g) X:=10; while X>10 do X := X+5;

h) for i:=1.5 to 10 do m:=m + 1;

III. Hãy viết các câu lệnh, khai báo theo yêu cầu sau:

A. Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực.

B. Phần tử thứ 5 của mảng A được gán giá trị là 8.

C. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên.

D. Nhập giá trị cho phần tử thứ 2 trong mảng diem.

IV. Bài tập

Viết chương trình thực hiện các yêu cầu sau:

a. Nhập điểm văn và điểm toán của n học sinh trong một lớp (n nhập từ bàn phím)

b. Tính điểm trung bình của mỗi học sinh (kết quả lấy 1 chữ số thập phân)

help với mai ktr ;-;

Lớp 8 Tin học

VH

Vô khuyết Hoa

22 tháng 3 2023 lúc 21:31

cho đoạn phương tình sau: j:=1;k:=2; begin for i:=1 to 5 do j:=j+1;k:=k+j; end. a. số lần lặp trong đoạn chương trình trên là bao nhiêu b.viết chương tình pascal đầy đủ cho đoạn trích trên c. sau khi thực hiện chương trình trên, biến jvaf k nhận giá trị là bao nhiêu

Lớp 8 Tin học

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

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