Nhập 40 số nguyên
In ra màn hình 40 chữ "So thu" từ 1 đến 40
Bài 7. Câu lênh lặp
Các câu hỏi tương tự
chương trình pascal sau đây thực hiện hoạt động nào ?
var i : integer ;
begin
for i:=1 to 1000 do ;
end.
bài 5 dưới đây là một đoạn chương trình Pascal
S:=0;
For i:=0 to 5 do
Begin
S := S + 2;
End;
Khi thực hiện đoạn chương trình trên giá trị của S là bao nhiêu ?
Viết lại chương trình sau cho đúng: PROGRAM Ten-KTGK-DTNT_Buon Ho VAR i: Real; S: integer; Begin S = 0; For i = 1 To 20 Do S:= S+i; Write (‘Tong S =’ , S) End
Giải thích mấy câu lệnh này giúp tui vs Program Tong_chu_so; Var s:string; i:byte; p:integer;{bien luu tong} begin write('Nhap so: ');readln(s); for i:=1 to length(s) do p:=p+ord(s[i]); p:=p-48*length(s); writeln(p); readln End.
BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DOBài 1: SGK 60 Nhập chương trình : uses crt; var N,I:integer; begin clrscr; write (Nhap so N); readln(N); writeln; writeln(Bang nhan,N); writeln; for i:1 to 10 writeln(N,x,i:2, ,N*i:3); readlnend Câu hỏi ôn tập: a. Sau khi nhập đoạn chương trình bài 1. Cho...
Đọc tiếp
BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DO
Bài 1: SGK 60
Nhập chương trình :
uses crt;
var N,I:integer;
begin
clrscr;
write (Nhap so N='); readln(N);
writeln;
writeln('Bang nhan',N);
writeln;
for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);
readln
end
Câu hỏi ôn tập:
a. Sau khi nhập đoạn chương trình bài 1. Cho biết ý nghĩa từng câu lệnh trong chương trình .
b. Nếu giá trị cuối trong lệnh For...do sủa cho 100.thì kết quả như thế nào ?
c. Nếu giá trị đầu và cuối trong lệnh For... do sủa là -10 và 100. thì kết quả như thế nào?
Khi thực hiện các hoạt động lặp, chương trình kiểm tra một điều kiện. Với lệnh lặp:
for < biến đếm > := < giá trị đầu > to < giá trị cuối > do < câu lệnh >;
của Pascal, điều kiện cần phải kiểm tra là gì?
DẠNG 1: TÌM LỖI VÀ SỬA LỖICâu 1.Var s,i: longint;Begin S:0.5 i 1; while s ≤ 5.5 do s s+i; write(‘s ‘,s);end;Câu 2.Var p,i,n: real;Begin Readln(n) p:1; for i1 to n do p p*i/(i+1); write(‘p ‘,p);end;Câu 3.Var a:array[1: 50] of longint;n,s,i: real;Begin Readln(n); For i:1 to n do Readln(a(i));S:0; For i: 1 to n...
Đọc tiếp
DẠNG 1: TÌM LỖI VÀ SỬA LỖI
Câu 1.
Var s,i: longint;
Begin
S:=0.5
i = 1;
while s ≤ 5.5 do
s = s+i;
write(‘s = ‘,s);
end;
Câu 2.
Var p,i,n: real;
Begin
Readln(n)
p:=1;
for i=1 to n do
p= p*i/(i+1);
write(‘p = ‘,p);
end;
Câu 3.
Var a:array[1: 50] of longint;
n,s,i: real;
Begin
Readln(n);
For i:=1 to n do
Readln(a(i));
S:=0;
For i:= 1 to n do
S:= s+a(i);
write(‘s = ‘,s);
end.
giúp mình với mình đang cần gấp
câu 1 cho biết đoạn chương trình pascal sau đây ctrinh thực hiện bao nhiêu vòng lặp
S:=0 ; n:=0;
while S<10 do
begin
n:=n+2
S:=s+n
end
A 3 B4 C 5 D6
- Cho biết chương trình sau đây làm công việc gì ?
Uses crt;
Var
S,i: integer;
Begin
S:=0;
for i:= 1 to 10 do
begin
S:= S + i*i;
writeln('Buoc thu ', i, ' tong S=', S);
end;
readln;
End.