hãy biểu diễn đoạn thuật toán dưới đây bằng ngôn ngữ pascal
bước 1 : nhập N, S <-0; i <- 1;
bước 2; nếu i <=N thì chuyển đến bước 3; ngược lại chuyển đén bước 4
bước 3: i:=i+1;S<-S và quay lại bước 2
bước 4: đưa ra tổng S rồi kết thúc
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.
Câu 1:
Cấu trúc lặp: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Giải thích ý nghĩa:
-Biến đếm: Thường là biến kiểu nguyên
-Giá trị đầu, giá trị cuối: thường là một số nguyên
-Câu lệnh: có thể là câu lệnh đơn hoặc câu lệnh ghép(phải bao bọc bởi begin và end)
Câu 2:
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln('Tong la: ',s);
readln;
end.
Trong ngôn ngữ lập trình (NNLT) Pascal chỉ sử dụng dấu ngoặc đơn () để viết các biểu thức số học. Các phép toán +, -, x, : trong toán học sẽ được chuyển dổi thành +, -, *, / trong NNLT Pascal.
Đáp án: C
Trong ngôn ngữ lập trình (NNLT) Pascal:
+ chỉ sử dụng dấu ngoặc đơn () để viết các biểu thức số học.
+ Các phép toán +, -, x, :, trong toán học sẽ được chuyển đổi thành +, -, *, /, trong NNLT Pascal.
+Các phép so sánh ≥, ≤, ≠, >, < , trong toán học sẽ được chuyển đổi thành >=, <=, <>, >, <, trong NNLT Pascal.
Đáp án: D
câu 1:
program AlgorithmExample;
var
T, n: integer;
begin
// Bước 1
T := 8;
n := 1;
// Bước 2
while T < 99 do
begin
// Bước 3
n := n + 3;
T := T * n;
end;
// Bước 4
writeln('Gia tri cua T: ', T);
writeln('Gia tri cua n: ', n);
readln;
end.
câu 2:
program StudentAverage;
var
n, countAboveAverage: integer;
sum, average, score: real;
begin
// Nhập số lượng học sinh
write('Nhap so luong hoc sinh (1-70): ');
readln(n);
// Kiểm tra điều kiện
if (n < 1) or (n > 70) then
begin
writeln('So luong hoc sinh khong hop le.');
readln;
halt;
end;
// Khởi tạo biến
countAboveAverage := 0;
sum := 0;
// Nhập và tính điểm trung bình
for var i := 1 to n do
begin
write('Nhap diem cua hoc sinh ', i, ': ');
readln(score);
sum := sum + score;
// Kiểm tra điều kiện điểm trung bình
if score >= 5.0 then
countAboveAverage := countAboveAverage + 1;
end;
// Tính điểm trung bình
average := sum / n;
// In ra kết quả
writeln('So luong hoc sinh dat diem trung binh tro len: ', countAboveAverage);
writeln('Ti le hoc sinh dat diem trung binh tro len: ', countAboveAverage / n * 100:0:2, '%');
readln;
end.
Lưu ý rằng trong chương trình của câu 2, điểm trung bình được tính và sau đó kiểm tra xem học sinh có đạt điểm
trung bình trở lên hay không.
a. Thuật toán 1 :
Máy tính sẽ thực hiện 10 vòng lặp , khi kết thúc thuật toán giá trị của S = 5.0
Đoạn chương trình Pascal tương ứng:
Quảng cáo
S := 10; x := 0.5;
While S > 5.2 do
S := S – x;
Writeln(S);
b. Thuật toán 2 :
Máy tính sẽ không thực hiện vòng lặp nào do điều kiện không thỏa mãn, khi kết thúc thuật toán giá trị của S = 10
Đoạn chương trình Pascal tương ứng:
S := 10; n := 0;
While S < 10 do
Begin
n := n + 3;
S := S – n
End;
Writeln(S);
uses crt;
var s,i,n:integer;
begin
clrscr;
write('N='); readln(n);
s:=0;
i:=1;
while s<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.