Câu 1: Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số. Độ dài của dãy cũng được nhập từ bàn phím
CT mẫu:
uses crt;
var n,i:integer;
a:array[1..100] of integer;
Begin
clrscr;
write('nhap so phan tu cua day:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('day so da nhap:');
for i:=1 to n do write(a[i]:2);
readln;
end.
giúp mình với mình cảm ơn trước
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?
program Tinh_tong;
uses crt;
var i, n, s: integer;
begin clrscr;
writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');
write('Nhap so n: ');read(n); s:=0;
for i := 1 to n do s := s + i;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln;
readln;
end.
* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while
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.
1.cho đoạn ct sau:
Tong:=30; while tong>10 do tong:=tong-2;
khi kết thúc vòng lặp giá trị của biến tổng là ao nhiêu
2. khai báo biến mảng: Var A:array[1..10] of real;
sử dụng câu lệnh For i:=1 to 5 do readln(a[i]); để gán giá trị cho các phần tử trong biến mảng A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?
Câu 5: Màn hình có nội dung gì khi chạy đoạn lệnh sau?
Program Lap;
Var i: integer;
Begin
For i:=1 to 5 do Writeln(‘A’);
Readln;
End.
Tìm những lỗi sai trong chương trình sau :
program bang_nhan_4 ;
uses crt ;
var i : integer ;
begin
clrscr ;
const
for i:= 1 to 10 do writeln(4, 'x' , 'i' , '=' , 4*i) ;
readln
end.
- 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.
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
Đề bài:
Nhập vào n số tự nhiên,hãy sắp xếp theo thứ tự tăng dần,hiểu thị kết quả lên màng hình.
Bài làm:
Program bt;
Var i,j,n:integer;
Begin
Writeln('Nhap n:=');
Readln(n);
For i:=1 to n do
For j:=i+1 to n-1 do
if 1>j then ??????????(tiếp theo là gì mình không giúp mình với ạ)
*Câu hỏi kèm theo: Bình thường muốn gán hai biến cho nhau thì cần biến trung gian nhưng trong trường hợp nằm trong dãy FOR thì có cần thêm biến trung gian hay không?Vì sao?
