Bài 2. Làm quen với chương trình và ngôn ngữ lập trình

Ý bạn là cách đặt tên trong chương trình ?

Cách đặt tên trong chương trình :

+ Tên phải ngắn gọn, dễ nhớ và dễ hiểu

+ Tên khác nhau tương ứng với những đại lượng khác nhau.

+ Tên không được trùng với từ khóa

+ Tên không được bắt đầu bằng chữ số và không được chứa kí tự trống

Tên là một dãy ký tự được dùng để đặt cho hằng, biến, chưng trình, nhãn hoặc kiểu dữ liệu mới… Tên được phép viết dài nhất 127 ký tự, nhưng trên thực tế chì có 63 ký tự đầu là có nghĩa. Tên được viết theo các quy định sao:

– Tên phải bắt đầu là một chữ cái.

– Không được dùng các ký tự đặc biệt.

– Không được để các khoảng trống ở giữa các ký tự.

ý bạn nói là trong lập trình pasacl hả

- Từ khóa là: những từ dành riêng, dùng để sử dụng cho những mục đích nhất định

-Tên là một dãy liên tiếp không quá 127 kí tự, bao gồm chữ cái, chữ số hoặc dấu gạch dưới

CHÚC BẠN HỌC TỐT!

Phân biệt:

- Từ khóa do ngôn ngữ lập trình quy định.
Tên do con người đặt dùng để phân biệt các đại lượng khác nhau trong chương trình.
+ Tên khác nhau tương ứng với những đại lượng khác nhau.
+ Tên không được trùng với từ khóa
+ Tên không được bắt đầu bằng chữ số và không được chứa kí tự trống
+ Tên phải ngắn gọn, dễ nhớ và dễ hiểu

thiếu hai dấu chấm phẩy ";" ở:

sửa thành:

TB: real;

A: array [1..100] of real;

lại thiếu dấu chấm phẩy ở ba chỗ nữa lần lượt là:

và và

Sửa lại thành:

readln (a[i]);

TB:=0;

TB:=TB/n;

Cần có thêm readln trên end. để dừng chương trình lại để xem.

ví dụ từ khóa else, then, begin

Tên : program: CT_chuong_trinh_dau_tien

Từ khóa : Begin;end;..

VD: -tên:hinh_tron,writeln,... từ khóa: program,const, end....Cách đặt tên trong chương trình:Tên phải bắt đầu là một chữ cái.– Không được dùng các ký tự đặc biệt.– Không được để các khoảng trống ở giữa các ký tự.

Câu 1: 

uses crt;

var a,s,p:real;

begin

clrscr;

repeat

write('Nhap do dai canh hinh vuong:'); readln(a);

until a>0;

p:=4*a;

s:=sqr(a);

writeln('Chu vi hinh vuong la: ',p:4:2);

writeln('Dien tich hinh vuong la: ',s);

readln;

end.

Câu 2: 

uses crt;

var a,b,t,s,h:real;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

t:=a+b;

h:=a-b;

s:=a*b;

writeln('Tong la: ',t:4:2);

writeln('Hieu la: ',h:4:2);

writeln('Tich la: ',s:4:2);

readln;

end.

Câu 3: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

uses crt;

var x,y:integer;

begin

clrscr;

write('Nhap x='); readln(x);

write('Nhap y='); readln(y);

if x mod y=0 then writeln(x,' chia het cho ',y)

else writeln(x,' khong chia het cho ',y);

readln;

end.

uses crt;

var n,dv,ch:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (10<=n) and (n<=99);

dv:=n mod 10;

ch:=n div 10;

writeln('Tong cac chu so la: ',dv+ch);

readln;

end.

program bai1;

uses crt;

var a:longint; tiendien:real;

begin

clrscr;

readln(a);

if a<=100 then tiendien:=a*1000;

if a<=150 then tiendien:=100*1000+2000*(a-100);

if a<=200 then tiendien:=100*1000+2000*50+2500*(a-150);

if a>=200 then tiendien:=100*1000+2000*50+2500*50+3000*(a-200);

Writeln('so tien dien trong thang la:',tiendien:9:0,'VND');

readln;

END.

câu 5 :

không hơp lệ

1: không có câu lệnh

2 : lệnh begin phải đứng sau program

các tên hợp lệ là:

A) a

B) Tamgiac

G) b1

h) abc