1. viết chương trình pascal và hiện kết quả: ' nếu điểm trung bình lớn hơn hoặc bằng 5 -> " Bạn đã trúng tuyển vào trường Trần Hưng Đạo " ' và ' nếu điểm trung bình thấp hơn 5 -> " chúc bạn may mắn lần sau " '

Bài làm

Program bai_lam;

uses crt;

var a:integer;

Begin

Write('nhap diem trung binh mon cua bạn');readln(a);

If a>=5 then write('ban da trung tuyen vao truong Tran Hung Dao');

             else write('chuc ban may man lan sau');

Readln;

End.

2. Viết chuong trình nhập vào 2 số, kiểm tra xem số vừa nhập là số âm hay số dương và in ra màn hình

Bài làm

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a>0 then write('a la so duong');

                   else ('a la so am');

If b>0 then write('b la so duong');

                   else ('b la so am');

Readln;

End.

3. viết chương trình nhập 2 số tự nhiên a,b từ bàn phím và in ra kết quả số lớn nhất

Bài làm

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a>b then write('a la so lon nhat');

                   else ('b la so lon nhat')

Readln;

End.

Program baitap;

Uses crt;

Var tb:real;

Begin

Clrscr;

Write('Nhap diem trung binh:'); Readln(tb);

If tb>=5 then writeln('Ban da trung tuyen vao truong Tran Hung Dao')

               Else writeln('Chuc ban may man lan sau');

_______________________________________________________________________

Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap a va b:'); Readln(a,b);

If a>b then writeln('So lon nhat la ',a);

If a<b then writeln('So lon nhat la ',b);

If a=b then writeln('Hai so do bang nhau');

Readln

End.

________________________________________________________

Program baitap;

Uses crt;

Var a:integer;

Begin

Clrscr;

Write('Nhap so bat ki'); Readln(a);

If a>0 then writeln('Do la so duong');

If a<0 then writeln('Do la so am');

If a=0 then writeln('Khong phai la so duong cung khong phai la so am');