Tin học [Lớp 8] Sử dụng biến và hằng trong chương trình

Phúc Khải

Học sinh
Thành viên
21 Tháng mười 2017
32
20
21
18
Đồng Nai
có thể làm như sau:
var s,x,y:integer;
begin
assign(input,'vd.inp');reset(input);
assign(output,'vd.out');rewrite(output);
readln(x,y);
s:=x+y;
writeln('ket qua la',s:2);
end.

khi nhập xong bạn phải nhấp tổng hợp Ctrl+F9 để kiểm tra đúng sai đưa vạch nhấp nháy đến dòng chữ vd.inp và nhấp Ctrl+Enter để nhập số
*Khi bạn nhập giá trị của x,y cần viết hai số cách xa nhau tốt nhất là bạn nhập xong số nguyên x thì nhấp Enter rồi viết số nguyên y.Ví dụ nhé:
2
3
sau đó bạn nháy F2 để lưu bạn nháy vào [] khung nho bên trái ứng với tay trái của bạn đó(đó là nút thoát khung ở đây là khung nhận)
và đưa vạch nhấp nháy đến dòng chữ vd.out và nhấp Ctrl+Enter để xem kết quả ví dụ:
nó ra dòng chữ:ket qua la
thế là bạn đã làm xong rồi nhưng có điều cách làm trên là của Free Pascal đó,Pascal mới làm dễ hơn đó!
 

Nguyễn Thánh Tiền

Mr Favoirite 2012
Thành viên
2 Tháng mười 2010
1,931
782
324
Hà Nội
cO VUA
có thể làm như sau:
var s,x,y:integer;
begin
assign(input,'vd.inp');reset(input);
assign(output,'vd.out');rewrite(output);
readln(x,y);
s:=x+y;
writeln('ket qua la',s:2);
end.

khi nhập xong bạn phải nhấp tổng hợp Ctrl+F9 để kiểm tra đúng sai đưa vạch nhấp nháy đến dòng chữ vd.inp và nhấp Ctrl+Enter để nhập số
*Khi bạn nhập giá trị của x,y cần viết hai số cách xa nhau tốt nhất là bạn nhập xong số nguyên x thì nhấp Enter rồi viết số nguyên y.Ví dụ nhé:
2
3
sau đó bạn nháy F2 để lưu bạn nháy vào [] khung nho bên trái ứng với tay trái của bạn đó(đó là nút thoát khung ở đây là khung nhận)
và đưa vạch nhấp nháy đến dòng chữ vd.out và nhấp Ctrl+Enter để xem kết quả ví dụ:
nó ra dòng chữ:ket qua la
thế là bạn đã làm xong rồi nhưng có điều cách làm trên là của Free Pascal đó,Pascal mới làm dễ hơn đó!
đề bài x=5, y nhập từ bàn phím
 

Phúc Khải

Học sinh
Thành viên
21 Tháng mười 2017
32
20
21
18
Đồng Nai
var x:integer;
begin
assign(input,'vd1.inp');reset(input);
assign(output,'vd1.out');rewrite(output);
read(x);
writeln('so nguyen x la',x);
end.
 

Phúc Khải

Học sinh
Thành viên
21 Tháng mười 2017
32
20
21
18
Đồng Nai
bạn nhập ở pascal đó, nhập xong bạn sẽ hiểu, áp dụng thêm phần mình chỉ ở đề trước;
phần mình làm chỉ nhập x mà thôi, còn bạn muốn mình chỉ thì nói với mình;
var x:integer(nghĩa là x thuộc số nguyên);
assign(input,'vd1.inp');reset(input); (phần này bạn hiểu chưa?)
assign(output,'vd1.out');rewrite(output);
read(x)(là hàm để máy đọc giá tri của x);
writeln('so nguyen x la',x);(khi bạn làm xong , nhập x xong ,thì vào ;bạn vào xem kết quả như mình chỉ ở trên thì nó ra dòng chữ 'so nguyen x la', còn x là số bạn nhập vào nó sẽ đưa ra cho bạn)
end.
 

Diệm Linh Cơ

Học sinh chăm học
Thành viên
13 Tháng chín 2017
314
96
94
18
Khánh Hòa
À đúng rồi, cũng muốn làm bạn với bạn lắm, Bạn tên thật là gì vậy ?,Còn tớ tên Khải nên tiếng anh đọc bị tui bạn trọc quài à (Khai) không biết vì sao ba mẹ đặt như vậy nữa;
tớ nói cụ thễ về mình luôn:
tên mình Phúc Khải(tên thật)
tuổi :13
học lớp 8
trường THCS Phú Túc
cao 1m68
Tớ rất muốn làm bạn với bạn , còn bạn thấy thế nào?
bạn muốn làm bạn vs mình ak? Hôm qua cô mới bày cách làm bài này=.= thật sự là k hề giống lun á nhất là cái chữ assign của bạn đó :r50 z thui nka =.= ( à mình tên là vy ) hân hạnh đc gặp.
 

Phúc Khải

Học sinh
Thành viên
21 Tháng mười 2017
32
20
21
18
Đồng Nai
cách của mình cô chỉ theo cách của cô còn cách của bạn là gì vậy? chỉ cho tớ với?
 

Phúc Khải

Học sinh
Thành viên
21 Tháng mười 2017
32
20
21
18
Đồng Nai
à có phải của bạn là turbo pascal đúng không? hèn gì khác là phải rồi! mình là Free Pascal nên khác nhau về cách nhập rồi!
à quên cũng hân hạnh làm quen với bạn!có gì khó bạn có thể hỏi tớ! có gì khó mình sẽ hỏi bạn nha!được không:)
 

Diệm Linh Cơ

Học sinh chăm học
Thành viên
13 Tháng chín 2017
314
96
94
18
Khánh Hòa
à có phải của bạn là turbo pascal đúng không? hèn gì khác là phải rồi! mình là Free Pascal nên khác nhau về cách nhập rồi!
à quên cũng hân hạnh làm quen với bạn!có gì khó bạn có thể hỏi tớ! có gì khó mình sẽ hỏi bạn nha!được không:)
ok mà mình k bt giải đc hay k ak =.= :r30
 

Nguyễn Hữu Tài

Học sinh
Thành viên
10 Tháng tư 2017
22
8
21
19
Tiền Giang
THCS Mai Thị Út
program TinhTong;
uses crt;
var y:integer;
BEGIN
clrscr;
write('Nhap y= '); readln(y);
writeln('Tong la: ',5+y);
readln;
END.
 

Tran Quang Huy

Học sinh
Thành viên
8 Tháng mười 2017
45
7
21
18
Tiền Giang
có thể làm như sau:
var s,x,y:integer;
begin
assign(input,'vd.inp');reset(input);
assign(output,'vd.out');rewrite(output);
readln(x,y);
s:=x+y;
writeln('ket qua la',s:2);
end.

khi nhập xong bạn phải nhấp tổng hợp Ctrl+F9 để kiểm tra đúng sai đưa vạch nhấp nháy đến dòng chữ vd.inp và nhấp Ctrl+Enter để nhập số
*Khi bạn nhập giá trị của x,y cần viết hai số cách xa nhau tốt nhất là bạn nhập xong số nguyên x thì nhấp Enter rồi viết số nguyên y.Ví dụ nhé:
2
3
sau đó bạn nháy F2 để lưu bạn nháy vào [] khung nho bên trái ứng với tay trái của bạn đó(đó là nút thoát khung ở đây là khung nhận)
và đưa vạch nhấp nháy đến dòng chữ vd.out và nhấp Ctrl+Enter để xem kết quả ví dụ:
nó ra dòng chữ:ket qua la
thế là bạn đã làm xong rồi nhưng có điều cách làm trên là của Free Pascal đó,Pascal mới làm dễ hơn đó!
Người ta không biết cái cơ bản thì chỉ cho người ta cái cơ bản giùm. Giải theo kiểu này ai hiểu. Giải theo kiểu nhập từ bàn phím đó (Người ta đã nói rõ rồi) .
Tính tổng 2 số nguyên X và Y,trong đó X=5; Y nhập từ bàn phím
Mà bộ lên diễn đàn để làm quen à.
Code nè:
program Tinh_Tong;
uses crt;
var y:longint;
BEGIN
clrscr;
write('Nhap y=');
readln(y);
writeln('Tong cua x va y=',5+y);
readln;
END.
 
  • Like
Reactions: Diệm Linh Cơ

ka1412

Học sinh chăm học
Thành viên
24 Tháng mười một 2017
874
730
121
Hà Nội
CNN | Life
Người ta không biết cái cơ bản thì chỉ cho người ta cái cơ bản giùm. Giải theo kiểu này ai hiểu. Giải theo kiểu nhập từ bàn phím đó (Người ta đã nói rõ rồi) .

Mà bộ lên diễn đàn để làm quen à.
Code nè:
program Tinh_Tong;
uses crt;
var y:longint;
BEGIN
clrscr;
write('Nhap y=');
readln(y);
writeln('Tong cua x va y=',5+y);
readln;
END.
y:integer chứ bạn
 
Top Bottom