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:
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.
b)
uses crt;
var i,y:integer;
begin
clrscr;
y:=0;
for i:=1 to 100 do
y:=y+i;
writeln('y=',y);
readln;
end.
c)
uses crt;
var y,i:integer;
begin
clrscr;
y:=0;
i:=1;
while y<=3200 do
begin
y:=y+i;
inc(i);
end;
writeln('y=',y);
readln;
end.
1. Tìm ra chỗ sai ( gạch chân ) và giải thích tại sao sai :
a) var a,b:=integer (dấu = không có ở đây)
const c:=4 ;
begin :(dấu : không có ở đây)
a:= 10 (thiếu dấu ;)
b:=a/c;
write('gia tri cua b la ',b);(thiếu dấu ,)
end.
b) var : a: real; b: integer; (sau var không có :)
const c:=4
begin
c:=4.1; (trên đã gán hằng thì không đc sửa)
a:=10;
b:=a/c
write( ' gia tri cua b la ', b ); (thiếu dấu , và ;)
end (thiếu dấu .)
2a) câu a mình không hiểu đề lắm
b) Program Hoandoigiatri;
Uses Srt;
Var x,y,z: real;
Begin
Clrscr;
Write('Nhap gia tri cua x='); readln(x);
Write('Nhap gia tri cua y='); readln(y);
z:=x;
x:=y;
y:=z;
Writeln('Ket qua sau khi hoan doi:x=',x; y=',y);
Readln;
End.
a) var a,b:=integer (sai vì khi khai báo biến dùng dấu 2 chấm ko dc dùng dấu gán, ko có dấu chấm phẩy khi kết thúc).
Sửa: var a, b:integer;
const c:=4 ;
begin : (sai khi bắt đầu không cần dùng dấu 2 chấm)
sửa: begin
a:= 10 (sai ko có chấm phẩy)
sửa a:=10;
b:=a/c;
write( ' gia tri cua b la ' b); (sai thiếu dấu phẩy)
sửa: write('gia tri cua b la',b);
end.
b) var : a: real; b: integer; (sai sau var ko dc dùng hai chấm)
sửa var a: real; b: integer;
const c:=4 (sai thiếu dấu ;)
sửa const c:=4;
begin
c:=4.1; (sai ko nên viết phần này vì ở trên đã gán c:=4 nên ko dc viết thêm)
a:=10;
b:=a/c (sai thiếu dấu ;)
sửa a:=a/c;
write( ' gia tri cua b la ' b ) (sai thiếu dấu phẩy và dấu chấm phẩy)
sửa write('gia tri cua b la',b);
end (sai thiếu dấu chấm)
sửa end.
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap n '); readln(n);
t:=1;
for i:=1 to n do t:=t*2;
write('2^,n,' = ',t);
readln
end.
program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.
a: Input: Số a
Output: Kiểm tra xem a là số chẵn hay lẻ
b:
Bước 1: Nhập a
Bước 2: Nếu a chia hết cho 2 thì xuất a là số chẵn
không thì a là số lẻ
Bước 3: Kết thúc
c:
uses crt;
var a:integer;
begin
clrscr;
readln(a);
if a mod 2=0 then write('a la so chan')
else write('a la so le');
readln;
end.
program CompareNumbers;
var
x, y: real;
begin
// Bước 1: Nhập 2 số thực x và y từ bàn phím
write('Nhap so thuc x: ');
readln(x);
write('Nhap so thuc y: ');
readln(y);
// Bước 2: So sánh x và y, in ra số lớn hơn
if x > y then
writeln('x lon hon y')
else if x < y then
writeln('y lon hon x')
else
writeln('x bang y');
readln;
end.
(khoog bt đúng ko)
a)
- Thuật toán
Bước 1: t:=0;i:=1;
Bước 2: t:=t+i; i:=i+1;
Bước 3: Nếu i<=n thì quay lại bước 2
Bước 4: Xuất kết quả
- Giải
uses crt;
var n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.
b)
-Thuật toán
Bước 1: tam:=x;
bước 2: x:=y;
bước 3: y:=tam;
-giải
uses crt;
var x,y,tam:integer;
begin
clrscr;
write('nhap x='); readln(x);
write('nhap y='); readln(y);
writeln('gia tri ban dau cua x la: ',x);
writeln('gia tri ban dau cua y la: ',y);
{--------hoan-doi-----------}
tam:=x;
x:=y;
y:=tam;
writeln('gia tri sau khi thay doi cua x la: ',x);
writeln('gia tri sau khi thay doi cua y la: ',y);
readln;
end.