Cho chương trình pascal sau
program kiem_tra;
var x,y : integer;
begin
x:=5;
y:=10;
x:=x+y;
y:=x-y;
end.
hãy cho biết giá trị cuối cùng của biến x và biến y là bao nhiêu
1. Viết thủ tục kiem_tra chứa các dòng lệnh đưa ra màn hình các dòng:
Xin chao cac em hoc sinh lop 11a
Rat vui khi lam quen voi cac em
Chuc cac em mot ngay that hanh phuc!
Trong chương trình chính gọi thủ tục kiem_tra.
Cho chương trình sauProgram KTGKI;Uses crt;Var dt, bankinh: read;Const pi=3,14;BeginClrscr;bankinh:=4,5; dt:=bankinh*bankinh*pi;Writeln(‘ Dien tich hinh tron ban kinh 4,5 la:’,dt:4:1);
Readln;End.a)(1.0 đ) Phần khai báo biến người lập trình đã sai về khai báogì ?Em sửa lại cho đúng.b)(2.0đ) Chỉ ra tên do người lập trình đặt ra trong chương trình trên
Cho chương trình sauProgram KTGKI;Uses crt;Var dt, bankinh: read;Const pi=3,14;BeginClrscr;bankinh:=4,5; dt:=bankinh*bankinh*pi;Writeln(‘ Dien tich hinh tron ban kinh 4,5 la:’,dt:4:1);
Readln;End.a)(1.0 đ) Phần khai báo biến người lập trình đã sai về khai báogì ?Em sửa lại cho đúng.b)(2.0đ) Chỉ ra tên do người lập trình đặt ra trong chương trình trên
cho đoạn chương trình sau hãy viết chương trình pascal cho đoạn chương trình
J:=1;k:=2;i:=0;
Whilei<5 do
begin
I:=i+1; J;=J+1; K:=K+J
End;
writel(j,k);
Viết chương trình Pascal có khai báo và sử dụng biến
Nhập vào chiều cao, cân nặng của một bạn. Hãy viết chương trình Pascal để tính chỉ số BMI của bạn đó.
a. Gõ chương trình, giải thích câu lệnh. Lưu chương trình với tên BMI_TenHS.pas. Dịch và sửa lỗi gõ (nếu có).
b.Chạy chương trình với bộ dữ liệu (Cân nặng, Chiều cao) như sau (68; 1.75); (56;1.67; (75; 1.89). Chú ý: khôngsửdụnglệnhclrscr.
mọi người giúp mình
Sửa lỗi chương trình sau
Program bang_cuu_chuong
Uses crt;
Var N: read;
i: integer;
Begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan ',N)
writeln;
for i:=1 to 10 do
writeln(N,' x ',i:2,' = ',N')
readln
end.
program bang_cuu_chuong ;
Uses crt;
Var N , i : integer ;
Begin
Clrscr ;
write('Nhap so N=');
readln(N);
writeln;
write ('Bang nhan',N) ;
writeln;
for i:=1 to 10 do
writeln(N,'x',i:2,'=',N*i);
readln ;
End.
Chương trình sau khi sửa lỗi:
Program bang_cuu_chuong;
Uses crt;
Var N: real;
i: integer;
Begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan ',N);
writeln;
for i:=1 to 10 do
writeln(N,' x ',i:2,' = ',N);
readln
end.
Viết chương trình tính S=1+2_+100 của chương trình pascal
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+i;
writeln(s);
readln;
end.
#include <iostream>
using namespace std;
int main () {
int tong = 0;
for (int i = 1 ; i <= 100; i++) tong = tong + i;
cout << " Tong S = " << tong;
return 0;
}
Chạy chương trìnhTong S = 5050
so sánh cấu trúc chương trình con với cấu trúc chương trình pascal
Cho chương trình Pascal sau:
Program dientich_duongtron;
uses : crt;
const pi = 3.14;
var dt, r = real;
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng
a) uses crt;
b) var dt, r: real;
c) Thiếu readln(r);
d) dt:= pi*sqr(r);
Lỗi 1: Dòng uses : crt; - Lỗi cú pháp do dấu hai chấm : không cần thiết. Sửa lại thành uses crt;.
Lỗi 2: Dòng var dt, r = real; - Lỗi khai báo biến không đúng cú pháp. Sửa lại thành var dt, r: real;.
Lỗi 3: Dòng clrscr; - Lỗi cú pháp do sử dụng hàm clrscr trong môi trường không hỗ trợ. Nếu muốn xóa màn hình, có thể sử dụng clrscr trong IDE hoặc xóa dòng này nếu không cần thiết.
Lỗi 4: Dòng writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2); - Lỗi cú pháp do sử dụng sai định dạng khi in giá trị. Sửa lại thành writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2:2); để in diện tích với đúng định dạng số thập phân.