Bài tập điều kiện 1

Bài 1: Viết chương trình nhập hai số thực . Sau đó hỏi phép tính cần thực hiện và in kết quả của phép tính đó .

Nếu là “+” , in kết quả của tổng lên màn hình .

Nếu là “-” , in kết quả của hiệu lên màn hình .

Nếu là “/” , in kết quả của thương lên màn hình .

Nếu là “*” , in kết quả của tích lên màn hình .

Bài 2:Viết chương trình :

Nhập tên

Nhâp số báo danh

Nhập điểm văn , toán , ngoại ngữ

In ra màn hình dưới dạng :

_ Phiếu điểm :

_ Số báo danh :

_ Điểm văn :

_ Điểm toán :

_ Điểm ngoại ngữ :

_ Tổng số điểm :

Bạn đã trúng tuyển ( hoặc Bạn đã không trúng tuyển ) với điều kiện Tổng số điểm >= 15 hay ngược lại .
GIẢI
Bài 1:
uses crt;
var tong:real;
   a,b:integer;
  ch:char;
begin
clrscr;
write('a,b= '); readln(a,b);
write('nhap phep tinh thuc hien trong (+,-,*,/) la : '); readln(ch);
if ch = '+' then tong:= a+b;
if ch = '-'then tong:= a-b;
if ch = '*'then tong:= a*b;
if ch = '/'then tong:= a/b;
write(a,ch,b,' = ',tong:8:2);

readln;
end.
thay a,b:real; cũng được nếu muốn.
Bài 2:
ses crt;
var Ten:string[20];
       SBD:integer;
       Toan,Van,Anh,n:real;
begin
clrscr;
write('nhap Ten '); readln(ten);
write('nhap So bao danh'); readln(SBD);
writeln('nhap diem Toan,Van,Anh'); readln(Toan,anh,van);
n:=Toan+van+anh;
Clrscr;
Writeln (' Phieu Bao Diem ') ;
Writeln (' So bao danh : ', SBD ) ;
Writeln (' Diem van : ', Van ) ;
Writeln (' Diem toan : ', Toan ) ;
Writeln (' Diem ngoai ngu : ', Ngoaingu) ;
Writeln (' Tong diem : ', Tongdiem) ;
if n>=15 then
begin
writeln('ban da trung tuyen!!!');
end
else write('ban da khong trung tuyen!!!');
readln;
end.
Nguồn :Forum : Diễn đàn tin học văn lang-Vạn Ninh