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

[Diệm Linh Cơ]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Tính tổng 2 số nguyên X và Y,trong đó X=5; Y nhập từ bàn phím

 

[pro3182001]

var x,y: integer;
begin
x:=5;
write('Nhap so nguyen Y',y);read(y);
write('Ket qua la',x+y);
end. .

 

[Phúc Khải]

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]

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]

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.

 

[Diệm Linh Cơ]

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.

mình chả hiểu bạn làm gì =.= :r10

 

[Phúc Khải]

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.

 

[Narumi04]

Tính tổng 2 số nguyên X và Y,trong đó X=5; Y nhập từ bàn phím

Làm thế này nhé bạn :>

Ngay chỗ interger, sửa lại thành integer giùm nha :>
Cho mình sửa lại chút là ngay chỗ x:=5, bạn thêm dấu ";" phía sau giùm nha :>

 

[Diệm Linh Cơ]

À đú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]

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]

à 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ơ]

à 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

 

[Phúc Khải]

bạn viết tiếng Việt giùm mình đi mình hổng biết bạn viết gì cảr106

 

[Diệm Linh Cơ]

bạn viết tiếng Việt giùm mình đi mình hổng biết bạn viết gì cảr106

đó k phải Tiếng Việt chứ tiếng gì?

 

[Nguyễn Hữu Tài]

program TinhTong;
uses crt;
var y:integer;
BEGIN
clrscr;
write('Nhap y= '); readln(y);
writeln('Tong la: ',5+y);
readln;
END.

 

[Phúc Khải]

bạn viết hơi gọn nên mình không biết ?

 

[Tran Quang Huy]

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.

 

[ka1412]

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

 

[Tran Quang Huy]

y:integer chứ bạn

Integer hay longint đều được vì y là số nguyên mà.
Nhưng longint lớn hơn integer nên sẽ bao quát đáp án hơn.

 

[Tran Quang Huy]

y:integer chứ bạn

Mà bộ thích lên đây bắt bẻ mình hay gì? Trả thù vụ lần trước hả?