Nội dung của bài học bài dưới đây sẽ Cấu trúc chương trình giúp các em tìm hiểu về cấu trúc của chương trình đơn giản và có kỹ năng nhận biết được các thành phần của một chương trình đơn giản,... Để biết rõ hơn về nội dung chi tiết, mời các em cùng theo dõi nội dung bài học.
[ < Phần khai báo > ]
< Phần thân >
Program Ten_Chuong_trinh;
Trong đó: Tên chương trình là tên do người lập trình đặt theo đúng quy định về tên
Ví dụ: Program Tinh_tong;
Uses < Danh sách thư viện >;
Trong đó:
Ví dụ:
Uses crt;
Thư viện CRT cung cấp các chương trình có sẵn để làm việc với màn hình văn bản và bàn phím.
#include
#include
Phần khai báo hằng có dạng:
CONST < Tên hằng > = < Giá trị của hằng >;
Ví dụ:
Turbo Pascal | C/C++ |
CONST Max=100; Pi=3.1416; Lop=‘A’; Dieukien=True; | const int Max=100; const float Pi=3.1416; |
Bảng 1. Ví dụ khai báo Hằng trong ngôn ngữ lập trình Pascal và ngôn ngữ lập trình C++
Ví dụ:
Với Pascal, phần khai báo biến có dạng:
Var < Danh sách biến >:< kiểu dữ liệu >;
Tạo bởi dãy lệnh trong phạm vi được xác định bởi cặp dấu hiệu BEGIN (mở đầu) và END (kết thúc), sau END có dấu chấm.
Ví dụ:
Phần thân trong chương trình Pascal:
Begin
[ < Dãy lệnh > ];
End.
Xét một vài ví dụ về chương trình đơn giản:
Ví dụ 1:
Chương trình sau thực hiện việc đưa ra màn hình thông báo “Xin chao cac ban!”
Trong Pascal | Trong C++ |
program Vi_du; begin writeln ( 'Xin chao cac ban!' ); end. | #include void main () { printf ( 'Xin chao cac ban!' ); } |
|
|
Bảng 2. Ví dụ chương trình đơn giản
Ví dụ 2:
Chương trình Pascal đưa ra thông báo "Xin chao cac ban!" và "Moi cac ban lam quen voi Pascal!"
begin
writeln ( 'Xin chao cac ban!’);
writeln ( ‘Moi cac ban lam quen voi Pascal ');
end.
Hãy chỉ ra phần khai báo, phần thân và có thể khai báo lại các biến trong chương trình sau:
Program Giai_PTB2;
Uses crt;
Var a, b: real;
c: real;
D: real;
x1, x2: real;
begin
clrscr;
write ('Nhap a, b, c’); readln(a, b, c);
D:= b*b – 4* a*c;
If D < 0 then write ('PT vo nghiem')
Else if D = 0 then write ('N.kep x = ', -b/ (a*2));
Else
Write(‘x1 = ’, x1:8:3, ‘x2 = ’, x2:8:3);
Readln;
End.
Gợi ý trả lời:
Sau khi học xong bài 3 của chương trình môn Tin học lớp 11, các em cần ghi nhớ:
[ < Phần khai báo > ]
< Phần thân chương trình >
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 11 Bài 3 cực hay có đáp án và lời giải chi tiết.
Phát biểu nào sau đây là đúng?
Từ khóa USES dùng để:
Khai báo hằng nào là đúng trong các khai báo sau:
Câu 4-10: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 11 DapAnHay
Phát biểu nào sau đây là đúng?
Từ khóa USES dùng để:
Khai báo hằng nào là đúng trong các khai báo sau:
Phần thân chương trình bắt đầu bằng ….và kết thúc bằng …?
Chọn câu phát biểu hợp lí nhất?
Chọn câu phát biểu hợp lí nhất?
Chọn câu phát biểu hợp lí nhất?
Xét chương trình Pascal dưới đây:
PROGRAM vi_du;
BEGIN
Writeln ('Xin chao cac ban');
Writeln('Moi cac ban lam quen voi Pascal');
END.
Chọn phát biểu sai?
Chọn câu đúng trong các câu sau:
Chọn câu phát biểu hợp lí nhất?
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Câu trả lời của bạn
uses crt;
var s:string;
d,kt,i:integer;
begin
clrscr;
write('nhap xau S:'); readln(s);
d:=length(s);
kt:=0;
for i:=1 to d do
if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then
begin
kt:=1;
write(s[i]:4);
end;
if kt=0 then writeln('Khong co ky tu nao la chu cai trong xau');
readln;
end.
Câu trả lời của bạn
uses crt;
var b:array[1..100]of integer;
m,i:integer;
begin
clrscr;
write('nhap m='); readln(m);
for i:=1 to m do
begin
write('b[',i,']='); readln(b[i]);
end;
writeln('cac so chan va la boi cua 4 la: ');
for i:=1 to m do
if (b[i] mod 2=0) and (b[i] mod 4=0) then write(b[i]:4);
readln;
end.
Câu trả lời của bạn
- Giống nhau: Cả thủ tục và hàm đều là chương trình con, cấu trúc giống như một chương trình trừ dòng đầu tiên và kết thúc bằng END; (thay vì END.). Cả thủ tục và hàm có thể chứa các tham số (tham số giá trị và tham số biến), cùng tuân theo quy định về khai báo và sử dụng các loại tham số này.
- Khác nhau:
+ Việc thực hiện hàm luôn trả về giá trị kết quả thuộc kiểu xác định và giá trị đó được gán cho tên hàm.
+ Lời gọi hàm có thể làm tham gia vào biểu thức khác như một toán hạng.
Câu trả lời của bạn
uses crt;
begin
clrscr;
writeln('A=',x-y-20);
readln;
end.
Câu trả lời của bạn
Program DapAnHay;
var a: array[1..100] of string;
i: integer;
begin
write('Nhap so ban trong to cua minh : '); readln(n);
for i:=1 to n do
begin
write('Nhap ho va ten cua ban thu ',i,' : '); readln(a[i]);
end;
writeln('Danh sach cac ban hoc sinh trong to la : ');
for i:=1 to n do writeln(a[i]);
readln
end.
Câu trả lời của bạn
program tinh;
uses crt;
const g=9.8;
var u,u1,h:real;
begin
write(' Nhap h: ');readln(h);
u1:=2*g*h;
u:=sqrt(u1);
writeln(' Ket qua la: ',u);
readln;
end.
Biện luận và xuất nghiệm đơn thức bậc hai
uses crt;
var a,b,c,delta: integer;
x,x1,x2: real;
begin
clrscr;
writeln('Nhap he so a,b,c cua phuong trinh:');
readln(a,b,c);
delta:=b*b-4*a*c;
x:=(-b) / 2*a;
x1:=((-b) - sqrt(delta)) / (2*a);
x2:=((-b) + sqrt(delta)) / (2*a);
if (delta>=0) then
if delta >0 then writeln('Phuong trinh co hai nghiem phan biet:',x1:0:1,' , ',x2:0:1)
else writeln('Phuong trinh co nghiem kep:',x)
else writeln('Phuong trinh vo nghiem');
readln
end.
Câu trả lời của bạn
Dòng 6 sửa lại là writeln('Nhap he so a; b; c cua phuong trinh:');
Câu trả lời của bạn
uses crt;
var n,i:integer;
s:real;
{---------------------------chuong-trinh-con----------------------------}
function gthua(x:integer):real;
var i:integer;
gt:real;
begin
gt:=1;
for i:=1 to x do
gt:=gt*i;
gthua:=gt;
end;
{---------------------------chuong-trinh-chinh-----------------------------}
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while s<=30000 do
begin
s:=s+gthua(i);
i:=i+1;
end;
writeln(s:4:2);
readln;
end.
Câu trả lời của bạn
uses crt;
var m,n,t,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
write('Nhap m='); readln(m);
until m<n;
t:=0;
for i:=m to n do
if (i mod 3=0) and (i mod 5=0) then t:=t+i;
writeln('Tong cac so chia het cho 3 va 5 trong khoang tu ',m,' toi ',n,' la: ',t);
readln;
end.
Câu trả lời của bạn
var a,b: real;
begin
write('Nhap a,b: '); readln(a,b);
if a < b then writeln(a:5:2) else if a > b then writeln(b:5:2) else writeln('Khong co');
end.
Câu trả lời của bạn
uses crt;
var i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');
for i:=5 to n do
if (i mod 2=0) and (i mod 7=0) then write(i:4);
writeln;
writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');
dem:=0;
for i:=5 to n do
if i mod 7=0 then
begin
write(i:4);
inc(dem);
end;
writeln;
writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);
readln;
end.
Câu trả lời của bạn
uses crt;
var i,t,kt,j:integer;
begin
clrscr;
t:=0;
for i:=999 downto 100 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln('Tong cac so nguyen to trong day la: ',t);
readln;
end.
Câu trả lời của bạn
Câu trả lời của bạn
#include <bits/stdc++.h>
using namespace std;
int main() {
double x, y;
cin >> x;
if(x<0) {cout << "Khong co y thoa man bieu thuc tren";}
if(x>=0)
{y=cbrt(x)+sqrt(x)+1;
cout << y << endl;}
return 0;
}
Câu trả lời của bạn
uses crt;
begin
writeln('Xin chao cac ban');
writeln('Moi ban den voi Pascal');
readln;
end.
Câu trả lời của bạn
#inckude <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1;i<=n; i++)
if (i%2==0) t=t+i;
cout<<t;
return 0;
}
Câu trả lời của bạn
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<max(a,b);
return 0;
}
Var a,b: integer;
Begin
Writeln(‘Nhap a va b: ’); readln(a, b); a:= sqr(b); b:=sqrt(a);
Writeln(‘Gia tri moi cua a= ’,a,‘ cua b= ’,b);
Readln; End.
Chạy chương trình trên giá trị của a và b sẽ:
A. a = b 2 , b : giữ nguyên;
B. a : giữ nguyên, b = a 2 ;
C. a = b;
D. Không tính được.
Câu trả lời của bạn
Chạy chương trình trên giá trị của a và b sẽ không tính được kết quả
Đáp án D
Câu trả lời của bạn
#include <bits/stdc++.h>
using namespace std;
long long s,i;
int main()
{
s=0;
for (i=1; i<=100; i++)
if (i%2==1) s=s+i*i;
cout<<s;
return 0;
}
Câu trả lời của bạn
program bai1;
var mP,mO:longint;
lc:char;mol:real
begin
write('Ban muon tinh so mol cua P hay O ');
readln(lc);
if lc='P' then
begin
write('So mol cua P la ');readln(mP);
mol:=mP/M(PTK của P tự tính nha);
write('So mol la ',mol:4:2);
end;
mol của O tương tự
readln
end.
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *