Tin 8 viết chương trình

[bùi thùy dương29102004]

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

câu 1 : em hãy viết một chương trình giới thiệu bản thân mình
câu 2 : em hãy viết một chương trình nhập hai số a và b tính trung bình và in kết quả ra màn hình

 

[Tiết Liên Tranh]

Program gioithieu;
Uses crt;
Var a,b:integer;
Tb:real;
Begin
Write('ban viet nhung loi gioi thieu ve minh o day ');
Write('nhap so a :');readln(a);
Write('nhap so b :');readln(b);
Tb:=(a+b)/2;
Write('trung binh cong 2 so a b la :',tb);
Readln;
End.

 

[Hạ Mộcc]

Bài 2 nhé:
Program TBC;
Uses crt;
Var a,b,tbc:integer;
Begin
clrscr;
writeln('Moi ban nhap 2 so a,b:'); readln(a,b);
tbc:=(a+b)/2;
writeln('Trung binh cong cua 2 so a va b la:',tbc:10:2);
readln;
end.

 

[Linh's Nguyễn's]

câu 1 : em hãy viết một chương trình giới thiệu bản thân mình
câu 2 : em hãy viết một chương trình nhập hai số a và b tính trung bình và in kết quả ra màn hình

Giồng đề thi của mình vậy nè
câu 1:
program kapapa;
uses crt;
begin
clrscr;
writeln('Chao cac ban');
writeln('Minh ten là...');
writeln('Minh hoc lop ...')
write('Han hanh duoc lam quen');
readln;
end.
câu 2:
program tinhtrungbinhcongabcd;
uses crt;
var a,b,tbc: real;
begin
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
tbc:=(a+b)/2
writeln('trung binh cong cua a va b la:', tbc:10:2);
readln;
end.