mô tả thuật toán tính S=1+2+...+50
Bước 1: s←0; i←1;
Bước 2: s←s+i;
Bước 3: i←i+1;
Bước 4: Nếu i<=50 thì quay lại bước 2
Bước 5: Xuất s
Bước 6: Kết thúc
a) Tổng của 50 số tự nhiên đầu tiên
Xác định bài toán:
-Input: 50 số tự nhiên đầu tiên
-Output: Tổng của 50 số đó
Mô tả thuật toán:
-Bước 1: s←0; i←1;
-Bước 2: s←s+i;
-Bước 3: i←i+1;
-Bước 4: Nếu i<=n thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
b) Kiểm tra a là số chẵn hay số lẻ
Xác định bài toán
-Input: Số a
-Output: Kiểm tra xem a là số chẵn hay số lẻ
Mô tả thuật toán
-Bước 1: Nhập a
-Bước 2: Nếu a chia hết cho 2 thì a là số chẵn
không thì a là số lẻ
-Bước 3: Kết thúc
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>0;
if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va 5')
else writeln(a,' khong chia het cho 3 va 5');
readln;
end.
Program HOC24;
var a: integer;
begin
write('Nhap a : '); readln(a);
if (a mod 3=0) and (a mod 5=0) then write(a,' chia het cho 3 va 5') else write(a,' khong chia het cho 3 va 5');
readln
end.
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>0;
if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va chia het cho 5')
else writeln(a,' khong chia het cho 3 va 5');
readln;
end.
theo mình thì bạn nên thêm câu lệnh readln; vào phần trước chữ end. vì làm vậy chương trình sẽ dừng lại để bạn quan sát cho đến khi nhấn phím enter nhé
Bạn ko thêm câu lệnh readln; vào cuối bài à
Nếu có thêm rồi mà vẫn lỗi thì chụp màn hình qua
uses crt;
var a:array[1..100]of real;
n,i:integer;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Nhap diem mon Tin cua hoc sinh thu ',i,'='); readln(a[i]);
end;
for i:=1 to n do
writeln('Diem cua ban thu ',i,'=',a[i]:4:2);
readln;
end.