Chương trình sẽ in ra nội dung sau:
1
2
3
4
5
6
7
8
9
10
Đúng 1
Bình luận (0)
Phần mềm học tập
Các câu hỏi tương tự
Chương trình pascal sau sẽ in ra màn hình nội dung gì?
Var i: integer;
Begin
For i:=1 to 10 do writeln('Day la lan thu',i); Readln;
End.
Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp?
Var N, i: integer;
Write(‘Nhap so N=’); s:=0;
S: Longint; readln(n);
For i:=1 to n do
Begin
Program tinh_tong;
S:=s+i;
Writeln(‘Tong cua ‘, N, ‘ So tu nhien dau tien s=’, s);
End.
Readln
Câu 2. Hãy liệt kê các lỗi nếu có trong chương trình dưới đây và sửa lại cho đúng.
program tinh tong ;
uses crt ;
var a, b, tong := integer ;
begin
clrscr ;
writeln ( ‘ Nhap so a = ’ );
readln (a) ;
writeln ( ‘ Nhap so b = ’ ) ;
readln (b) ;
tong = a + b ;
writeln ( ‘ Tong cua hai so a va b la: ’ , tong ) ;
readln ;
end
Cho đoạn chương trình dưới đây. Hãy chỉ ra những lỗi sai và sửa lại cho đúng.
Program tinhtong.
Var N, i:=integer
Begin
Write(‘nhap so N =’)
Readln(N)
S=0
For i= 1 to N do S= S+i
Writeln(‘Tong cua ‘,N,’ so tu nhien dau tien S=’,S)
Readln
End
Cùng các bạn trong nhóm thảo luận và trả lời câu hỏi sau:
Xét chương trình sau:
Const
a20;
d TRUE
Var
b: integer; x: real; c: char:
Begin
write ( Hay nhap gia tri cho b: ) ; readln(b) ;
write ( Hay nhap gia tri cho c: ) ; readln(c) ;
...
readln;
End.
Khi thực hiện chương trình, nếu người sử dụng giá trị 18 cho biến b và nhập kí tự k cho biến c thì từng lệnh dưới đây sẽ hiển thị kết quả gì lên màn hình khi đc thay vào chỗ dấu 3 chấm ?(không sử dụng Free Pascal để chạy thử)
Lệnh 1. wr...
Đọc tiếp
Cùng các bạn trong nhóm thảo luận và trả lời câu hỏi sau:
Xét chương trình sau:
Const
a=20;
d= TRUE
Var
b: integer; x: real; c: char:
Begin
write (' Hay nhap gia tri cho b: ') ; readln(b) ;
write (' Hay nhap gia tri cho c: ') ; readln(c) ;
...
readln;
End.
Khi thực hiện chương trình, nếu người sử dụng giá trị 18 cho biến b và nhập kí tự 'k' cho biến c thì từng lệnh dưới đây sẽ hiển thị kết quả gì lên màn hình khi đc thay vào chỗ dấu 3 chấm ?(không sử dụng Free Pascal để chạy thử)
Lệnh 1. writeln ( (36-5*2) div 3) ;
Lệnh 2.writeln ( (8 mod 3) <> 2);
Lệnh 3. writeln (b/6) ;
Lệnh 4. writeln (b/6 :10:2) ;
Lệnh 5. writeln (a/6:10:2) ;
Lệnh 6. writeln (b/6<=a/5) ;
Lệnh 7. writeln (c='K') ;
Lệnh 8. writeln (d) ;
Em hãy dùng Free Pascal để kiểm tra lại ý kiến của mình trong bài tập trên
Viết chương trình nhập vào 1 dãy số gồm n số nguyên dương + In dãy số ra màn hình + Cho biết dãy có bao nhiêu số chẵn Giúp mình nhanh vs m.n mai mình thi r
1. Nêu cách khai báo biến mảng trong pascal? Khi nòa nên dung biến mảng?
2. em hay khai báo 1 biến mảng 50 phần tử kiểu xâu ký tự?
3. Viết chương trình tính tổng chẵn, lẽ của 10 số bất kỳ nhập vào từ bàn phím
4. Viết chương trình kiểm tra 1 số nhập vào là số chẵn hay lẻ thông báo kết quả
5. Hãy cho biết vòng lặp sau chạy mấy lần? vì sao?
a. K:7;
While (K7) Do write(“ lap lan thu may”);
b. H:3;n:6;
While (n 20) Do H:H+n;
c. For F:3 to 23 do readln;
Đọc tiếp
1. Nêu cách khai báo biến mảng trong pascal? Khi nòa nên dung biến mảng?
2. em hay khai báo 1 biến mảng 50 phần tử kiểu xâu ký tự?
3. Viết chương trình tính tổng chẵn, lẽ của 10 số bất kỳ nhập vào từ bàn phím
4. Viết chương trình kiểm tra 1 số nhập vào là số chẵn hay lẻ thông báo kết quả
5. Hãy cho biết vòng lặp sau chạy mấy lần? vì sao?
a. K:=7;
While (K=7) Do write(“ lap lan thu may”);
b. H:=3;n:=6;
While (n<= 20) Do H:=H+n;
c. For F:=3 to 23 do readln;
viết chương trình nhập chiều cao của các bạn trong lớp ,in ra màn hình chiều cao của các bạn trong lớp , chiều cao cao nhất , chiều cao thấp nhất và trung bình của lớp .Biết rằng số lượng học sinh và chiều cao được nhập từ bàn phím .(sau mỗi giá trị đc in chỉ lấy 1 chữ số thập phân). Cho mình biết đáp án vs :D
Đọc tiếp
viết chương trình nhập chiều cao của các bạn trong lớp ,in ra màn hình chiều cao của các bạn trong lớp , chiều cao cao nhất , chiều cao thấp nhất và trung bình của lớp .Biết rằng số lượng học sinh và chiều cao được nhập từ bàn phím .(sau mỗi giá trị đc in chỉ lấy 1 chữ số thập phân).
Cho mình biết đáp án vs :D
Hãy cho biết trong đoạn chương trình sau chương trình thực hiện bao nhiêu vòng lặp?
N:= 0; s:=0
While s<=10 do
Begin
N:=n+1; s:=s+n;
End.
Giúp mk nha mn. Mơn nhiều ạ!