Tin học Viết chương trình Pascal

[Ngố Ngây Ngô]

[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.

1. Viết chương trình Pascal tính tích của 2 số bất kì nhập từ bàn phím
2. Viết chương trình Pascal tính trung bình cộng của 3 số bất kì nhập từ bàn phím

 

[Lục Vân Tiên]

Code đây nha bạn:
1.

program Tinh_tich;
uses crt;
var a,b:longint;
begin
 clrscr;
 write('Cho a = ');readln(a);
 write('Cho b = ');readln(b);
 writeln('Tich cua 2 so ',a,' va ',b,' la: ',a*b);
 readln;
end.

2.

program Trung_binh_cong;
uses crt;  
var a,b,c:longint;
begin
 write('Cho a = ');readln(a);
 write('Cho b = ');readln(b);
 write('Cho c = ');readln(c);
 writeln('TBC cua 3 so ',a,', ',b,' va ',c,' la: ',(a+b+c)/3);
 readln;
end.

 

[Ngố Ngây Ngô]

Code đây nha bạn:
1.

program Tinh_tich;
uses crt;
var a,b:longint;
begin
 clrscr;
 write('Cho a = ');readln(a);
 write('Cho b = ');readln(b);
 writeln('Tich cua 2 so ',a,' va ',b,' la: ',a*b);
 readln;
end.

2.

program Trung_binh_cong;
uses crt;  
var a,b,c:longint;
begin
 write('Cho a = ');readln(a);
 write('Cho b = ');readln(b);
 write('Cho c = ');readln(c);
 writeln('TBC cua 3 so ',a,', ',b,' va ',c,' la: ',(a+b+c)/3);
 readln;
end;

bạn ơi, chương trình của bạn nhanh quá, mình nhập xong a,b, c; chưa kịp nhìn kết quả nó đã trở về rồi
à, ở bài 2, sau end phải là dấu . chứ nhỉ

 

[Lục Vân Tiên]

bạn ơi, chương trình của bạn nhanh quá, mình nhập xong a,b, c; chưa kịp nhìn kết quả nó đã trở về rồi

Mình cho readln rồi mà

à, ở bài 2, sau end phải là dấu . chứ nhỉ

Mình sửa rồi nhé

 

[ĐứcNhật!]

1. Viết chương trình Pascal tính tích của 2 số bất kì nhập từ bàn phím
2. Viết chương trình Pascal tính trung bình cộng của 3 số bất kì nhập từ bàn phím

Bài 1:

Program Tinh_tich;
Uses crt;
Var a,b,tich: Word;
Begin
Writeln('Nhap a va b: '); readln(a,b);
tich:=a*b;
Write('Tich la: ',tich);
Readln
End.

 

[Tâm Minh Minh]

Bài 2
program TBC;
uses crt;
var a,b,c,TBC:real;
Begin
write(‘Hay nhap gia tri cho a:’); Readln(a);
write(‘Hay nhap gia tri cho b:’); Readln(b);
write(‘Hay nhap gia tri cho c:’); Readln(c);
TBC:=(a+b+c)/3
Writeln(‘Trung binh cong cua 3 so la’,TBC);
Readln;
end.