Bài tập pascal THPT ai giúp em cái nào

[wfun]

Có thằng em của rau nó nhờ, chả nhẽ bảo anh ko biết, thôi thì lên đây nhờ các cụ lấy le. Bài tâạ như sau:
Viết công thức nhập 2 số nguyên M và M. Tính tổng, hiệu, tích, thương và đưa kết quả ra màn hình.
cụ nào đi qua giúp em với

 

[HienHLC]

var m1,m2 : real;
begin
write ('m1 : '); readln (m1);
write ('m2 : '); readln (m2);
writeln (' Tong :', m1+m2);
writeln (' Hieu :', m1-m2);
writeln (' Tich :', m1*m2);
writeln (' Thuong :', m1/m2);
readln;
end.

15 năm trước em khẳng định bài em làm là đúng, giờ chắc gần đúng

 

[mango]

cụ này nhớ giỏi nhỉ? Mà hình như phần m1/m2 thì cụ cho thêm phần IF (m2==0) THEN .... ELSE .... nhé.

 

[luot_song]

15 năm trước chắc cụ làm trên giấy. Cụ nhớ tài thật

 

[namcuifTài khoản đã xác minh]

var m1,m2 : real;
begin
write ('m1 : '); readln (m1);
write ('m2 : '); readln (m2);
writeln (' Tong :', m1+m2);
writeln (' Hieu :', m1-m2);
writeln (' Tich :', m1*m2);
writeln (' Thuong :', m1/m2);
readln;
end.

15 năm trước em khẳng định bài em làm là đúng, giờ chắc gần đúng

Khai kiểu biến sai rồi, đầu bài y/c số nguyên, nên phải đ/n kiểu biến là interger

 

[acura-mdx-sport]

Khai kiểu biến sai rồi, đầu bài y/c số nguyên, nên phải đ/n kiểu biến là interger

Cụ ý bảo là GẦN đúng rồi còn gì

 

[thegioiauto]

một thời đã xa

 

[bvc]

var m1,m2 : real;
begin
write ('m1 : '); readln (m1);
write ('m2 : '); readln (m2);
writeln (' Tong :', m1+m2);
writeln (' Hieu :', m1-m2);
writeln (' Tich :', m1*m2);
writeln (' Thuong :', m1/m2);
readln;
end.

15 năm trước em khẳng định bài em làm là đúng, giờ chắc gần đúng

Bài thi pascal trường kinh tế em được 9 điểm và hoàn toàn tự làm không thầy thợ,
lâu lâu không dùng đến tự dưng thấy nhớ mò mẫm lại xem sao nào

15 năm trước chắc cụ làm trên giấy. Cụ nhớ tài thật

Đúng thế làm trên giấy thôi, em về cơ quan xây dựng chương trình quản lý tờ khai hải quan bây giờ một số đơn vị xin về vẫn đang dùng tốt

 

[Okane]

E nhớ hồi học lập trình Fortran 77 từ những năm 91-92, sau đó tự học Pascal những năm 93-94, giờ thì chẳng biết dùng để làm j, chẳng nhẽ lập trình tính lô đề hay tính lương phải nộp cho Gấu bao tiền 1 tháng

 

[depzachc14]

var m1,m2 : real;
begin
write ('m1 : '); readln (m1);
write ('m2 : '); readln (m2);
writeln (' Tong :', m1+m2);
writeln (' Hieu :', m1-m2);
writeln (' Tich :', m1*m2);
writeln (' Thuong :', m1/m2);
readln;
end.

15 năm trước em khẳng định bài em làm là đúng, giờ chắc gần đúng

Cụ pro thật, 15 năm trước cụ debug trên giấy thì em chịu rùi ...

 

[yahura]

15 năm mà nhớ được như cụ thì nể thật.

 

[HienHLC]

Hóa ra nhiều cụ cũng có hứng với món này nhỉ.

cụ này nhớ giỏi nhỉ? Mà hình như phần m1/m2 thì cụ cho thêm phần IF (m2==0) THEN .... ELSE .... nhé.

Đúng rùi, phải loại trừ trường hợp chia cho 0

Khai kiểu biến sai rồi, đầu bài y/c số nguyên, nên phải đ/n kiểu biến là interger

Em làm tắt mừ, hình như nếu khai là integer thì phải khai thêm 1 cái biến real nữa để chứa kết quả chứ ko write thẳng ra màn hình được, giờ chả kiếm đâu cái TP để thử lại nữa cả.

Bài thi pascal trường kinh tế em được 9 điểm và hoàn toàn tự làm không thầy thợ,
lâu lâu không dùng đến tự dưng thấy nhớ mò mẫm lại xem sao nào



Đúng thế làm trên giấy thôi, em về cơ quan xây dựng chương trình quản lý tờ khai hải quan bây giờ một số đơn vị xin về vẫn đang dùng tốt

Cụ được 9 cơ à, em học món này hồi lớp 9 học được có nửa năm thì bị thầy đuổi khỏi đội tuyển tin học vì copy ảnh sex vào mạng LAN dùng cáp đồng trục của trường . 5 năm sau khi học đại học em đi thi môn này (Kỹ thuật lập trình) được hẳn 5 điểm trong khi em chả ngó lại chữ nào, lớp em có 5/601 chú qua còn lớp bên cạnh được 1/45 chú

E nhớ hồi học lập trình Fortran 77 từ những năm 91-92, sau đó tự học Pascal những năm 93-94, giờ thì chẳng biết dùng để làm j, chẳng nhẽ lập trình tính lô đề hay tính lương phải nộp cho Gấu bao tiền 1 tháng

Học món lập trình xong được cái tư duy vấn đề nó sáng sủa hơn một chút cụ nhỉ.

Cụ pro thật, 15 năm trước cụ debug trên giấy thì em chịu rùi ...

15 năm mà nhớ được như cụ thì nể thật.

15 năm trước chắc cụ làm trên giấy. Cụ nhớ tài thật

Giấy là giấy thế nào, hồi đấy em được dành riêng 1 máy chip 33MHz có nút Turbo với 2MB ram để học đấy trong khi các bạn khác chỉ được học máy 1MB ram thôi . Căn bản là hồi ấy em đam mê với đầu óc nó còn sáng nên nhớ lâu.

 

[KarinMoon]

cụ superman thật cháu vừa học xong h cũng quên béng cả rồi. Phải ngồi nhớ lâu lâu mới thấm

 

[dongnn]

var m1,m2 : real;
begin
write ('m1 : '); readln (m1);
write ('m2 : '); readln (m2);
writeln (' Tong :', m1+m2);
writeln (' Hieu :', m1-m2);
writeln (' Tich :', m1*m2);
writeln (' Thuong :', m1/m2);
readln;
end.

15 năm trước em khẳng định bài em làm là đúng, giờ chắc gần đúng

Ở dòng thương số cần thêm format cho đầu ra, kẻo nó in ra dạng số mũ thì đọc không được

cụ này nhớ giỏi nhỉ? Mà hình như phần m1/m2 thì cụ cho thêm phần IF (m2==0) THEN .... ELSE .... nhé.

trong pascal không có == đâu nhé, nhầm sang C rồi

 

[emnhaque]

Cái này thì em chịu rồi, học lâu quá rồi, bây h quên béng nó mất. Bác vào diễn đàn của mấy trường THPT ấy. 5 phút là có ngay ấy mà