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.
Lợi ích đó là:
- rút gọn việc viết phương trình
- có thể sử dụng câu lệnh lặp để thay thế nhiều câu lệnh
- tiết kiệm thời gian và công sức viết chương trình
Câu 7: – Cú pháp câu lệnh lặp với số lần biết trước (for):
for biến := giá_trị_đầu to|downto giá_trị_cuối do câu_lệnh;
while điều_kiện do câu_lệnh;
Câu 8: Viết chương trình tính tổng N số tự nhiên đầu tiên
program TongNso; var N, i, Tong: integer; begin write('Nhap N: '); readln(N); Tong := 0; for i := 1 to N do Tong := Tong + i; writeln('Tong ', N, ' so tu nhien dau tien la: ', Tong); end.
Câu 9: Sử dụng lệnh lặp While..do để tính trung bình n số thực
program TinhTrungBinh; var n, i: integer; x, Tong: real; begin write('Nhap so luong n: '); readln(n); i := 1; Tong := 0; while i <= n do begin write('Nhap so thu ', i, ': '); readln(x); Tong := Tong + x; i := i + 1; end; writeln('Trung binh la: ', Tong / n:0:2); end.
program Tinh_Tong;
var
n, i, A: integer;
begin
write('Nhap n: ');
readln(n);
i := 0;
A := 0;
while i <= (2 * n + 1) do
begin
A := A + i;
i := i + 2;
end;
writeln('Tong cac so le tu 1 den 2*n+1 la: ', A);
readln;
end.
program Tinh_Tong;
var n, A, i: integer;
begin
write('Nhap vao so nguyen duong n: ');
readln(n);
A := 0;
i := 0;
while i <= n do
begin
A := A + 2 * i + 1;
i := i + 1;
end;
writeln('Tong A = 1 + 3 + 5 + ... + (2 * ', n, ' + 1) = ', A);
end.
Program mun;
Uses crt;
Var i:integer;
Begin
For i:=1 to 10 do write ('2 × ', i,' = ', 2*i);
Readln;
End.
P/s: Ko chắc ạ!
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 10 do
writeln('2*',i,'=',2*i);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
i:=1;
while i<=n do
begin
t:=t+a[i];
inc(i);
end;
writeln(t/n:4:2);
readln;
end.
program DiemTrungBinh; var N, i: integer; diem, tong: real; begin write('Nhap so luong diem N: '); readln(N); i := 1; tong := 0; while i <= N do begin write('Nhap diem thu ', i, ': '); readln(diem); tong := tong + diem; i := i + 1; end; writeln('Diem trung binh la: ', tong / N:0:2); end.
uses crt;
var i:integer;
a:array[1..20]of string;
begin
clrscr;
for i:=1 to 20 do readln(a[i]);
for i:=1 to 20 do
writeln('Xin chao, ban thu ',i,' ten la: ',a[i]);
readln;
end.
Program Hoc24;
var i: byte;
begin
for i:=1 to 20 do
writeln('Chao ban thu ',i);
readln
end.
Trả lời: