1.Cho đoạn chương trình sau :
S:= 0 ; n:= 0 While S <= 7 do
begin n:= n+1; S:= S+n ; end ;
a)Tính số vòng lặp.
b)Sau khi thực hiện chương trình giá trị biến S bằng bao nhiêu?
Những câu hỏi liên quan
Câu 1: Tìm và sửa lỗi(nếu có) trong đoạn chương trình sau:
Var a, b: real
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If (a+b) := 120 then a =120-b;
Readln
End;
Câu 2: Cho biết kết quả của biến s sau đoạn chương trình sau:
a:=5;
s:=58;
If s>=70 then s:=s+2 else s:=s+a;
câu 1:
Var a, b: real;
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If a+b = 120 then a:=120-b;
Readln
End.
câu 2:
s = 63
Đúng 0
Bình luận (0)
sau khi đoạn chương trình x:=0; y:=5; for i:=1 to 5 do x:=x+2; y:=y+x; cho biết lệnh lặp giá trị x và y và chương trình thực hiện bao nhiêu vòng lặp?
10 tháng 4 2020 lúc 10:06
Hãy chọn kết quả đúng của đoạn chương trình sau.
s := 0; for i:= 1 to 10 do s:=s + i; Write(s);
A. 49
B. 45
C. 50
D. 55
Xin lỗi bạn, kết quả là câu D nhé
Đúng 1
Bình luận (0)
Sau khi thực hiện đoạn chương trình sau giá trị của i bằng bao nhiêu?
i:=1; S=1; While i<6 do S:=S+1
Giúp e đi mn ơi :((
Sau khi thực hiện đoạn chương trình sau giá trị của i bằng bao nhiêu?
i:=1; S=1; While i<6 do S:=S+i;
Giúp e vs ạ, e cảm ơn trước luôn ạ
1) Cho đoạn a sau hãy cho biết lệnh writeln in ra màn hình giá trị của i,j và k là bao nhiêu?
j=1; k=4;
for i:=1to7 do j:=i+1; k:=k+j
writeln(j,k)
2)Với câu lệnh sau chương trình thực hiện bao nhiêu vòng lặp?
S:=0; N:=0;
while3<=10 do
Begin N:N+1; S:=S+N;
End
trong ngôn ngữ lập trình pascal, đoạn chương trình sau thực hiện việc gì
var a : array[0..50] of real ;
k := 0 ;
for i:= 1 to 50 do
if a[i] > a[k] then k:= i;
hình như là thực hiện vị trí
Đúng 0
Bình luận (0)
Cho mảng A gồm có N phần tử các số nguyên không âmN được nhập từ bàn phím. Em hãy viết đoạn chương trình để thực hiện yêu cầu sau:
1.Nhập gtrị cho mảng A
2.Xuất gtrị mảng A ra màn hình
3.Tính tổng gtrị của mảng A
4.Tính tích gtrị của mảng A
5.Tính tổng gtrị các phần tử ở vị trí chẳn
6.Tính tích gtrị các phần tử ở vị trí lẻ
7.Sắp xếp mảng A thành mảng không giảm
8.In ra màn hình các phần tử có gtrị lớn hơn 10
9.Hoàn...
Đọc tiếp
Cho mảng A gồm có N phần tử các số nguyên không âm'N được nhập từ bàn phím'. Em hãy viết đoạn chương trình để thực hiện yêu cầu sau:
1.Nhập gtrị cho mảng A
2.Xuất gtrị mảng A ra màn hình
3.Tính tổng gtrị của mảng A
4.Tính tích gtrị của mảng A
5.Tính tổng gtrị các phần tử ở vị trí chẳn
6.Tính tích gtrị các phần tử ở vị trí lẻ
7.Sắp xếp mảng A thành mảng không giảm
8.In ra màn hình các phần tử có gtrị lớn hơn 10
9.Hoàn chỉnh các đoạn chương trình trên thành 1 chương trình pascal hoàn chỉnh.
uses crt;
var a:array[1..100]of longint;
i,n,t,t1,tam,j:integer;
s,s1:int64;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until n>0;
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
until a[i]>=0;
end;
writeln('Mang A=');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong gia tri cua mang A la: ',t);
s:=1;
for i:=1 to n do
s:=s*i;
writeln('Tich cac gia tri cua mang A la: ',s);
t1:=0;
for i:=1 to n do
if i mod 2=0 then t1:=t1+a[i];
writeln('Tong cac gia tri o vi tri chan la: ',t1);
s1:=1;
for i:=1 to n do
if i mod 2<>0 then s1:=s1*a[i];
writeln('Tich cac gia tri o vi tri le la: ',s1);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Mang A sau khi sap xep la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Cac phan tu co gia tri lon hon 10 la: ');
for i:=1 to n do
if a[i]>10 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1 :Đoạn lệnh sau đây làm nhiệm vụ gì ?
For := 1 to 5 do
Write ('A')
Câu 2 : Tìm lỗi sai trong chương trình sau :
Var : i : real
Begin :
For i := 1 to 100 do
End
Câu 3 : Viết chương trình in ra màn hình tổng của n số tự nhiên đầu tiên ( N nhập từ bàn phím )
#Helpme ?
Câu 1:
Đoạn lệnh trên thực hiện in 5 lần chữ A ( thiếu dấu ; thì đoạn lệnh trên ko chạy được . đề bị thiếu? )
Câu 2 :
Var :(sau var là khai báo biến ko phải dấu :) i : real (thiếu dấu ; )
Begin : (sau begin ko phải là dấu :)
For i := 1 to 100 do
End (sau end là dấu .)
Câu 3:
var A,n.i : integer ;
begin
write('nhap gia tri n:'); readln(n);
for i:=1 to n do A:=A+i;
write('Tong la',A);
readln
end.
Đúng 0
Bình luận (0)