Thứ Hai, 10 tháng 9, 2018

Bài tập Pascal 6


1/Viết chương trình nhập từ bàn phím điểm trung bình môn của bạn Tý. Thông báo ra màn hình bạn Tý là học sinh gì?
Giả sử cách xếp loại học sinh như sau:
Xếp loại
Yêu cầu điểm trung bình các môn học (TBM)
Kém
TBM<3.5
Yếu
3.5<=TBM<5
Trung bình
5<=TBM<6.5
Khá
6.5<=TBM<8
Giỏi
TBM>=8
2/ Viết chương trình nhập từ bàn phím 4 số nguyên. Thông báo ra màn hình giá trị lớn nhất của 4 số trên
ví dụ
sô 1= 30
số 2= 8
số 3=79
số 4= 10
giá trị lớn nhất là 79
3/Viết chương trình nhập từ bàn phím1 số nguyên dương không lớn hơn 10000. Thông báo ra màn hình số đó có bao nhiêu chữ số
ví dụ
nhập số là 2339 thì số này có 4 chữ số
4/Viết chương trình nhập từ bàn phím1 số nguyên dương không lớn hơn 10000. Thông báo ra màn hình chữ số lớn nhất của nó là số nào?
ví dụ
nhập số là 2804 thì chữ số lớn nhất của số này là 8

5 nhận xét:

  1. Bài 1
    var
    x:real;
    begin
    write('nhap x=');readln(x);
    if x<3.5 then
    writeln('Ty la hs kem');
    if (x>=3.5) and (x<5) then
    writeln('Ty la hs yeu');
    if (x>=5) and (x<6.5) then
    writeln('Ty la hs trung binh');
    if (x>=6.5) and (x<8) then
    writeln('Ty la hs kha');
    if x>=8 then
    writeln('Ty la hs gioi');
    readln;
    end.

    Trả lờiXóa
    Trả lời
    1. Var A:integer ;
      Begin
      Writeln(‘nhap so diem’);
      Readln(a);
      If (a<3.5) then
      Writeln(‘kem’);
      If (a=>3.4) and (a<5) then
      Writeln(‘yeu’);
      If (a=>5) and (a<6.5) then
      Writeln(‘trung binh’);
      If (a=>6.5) and (a<8) then
      Writeln(‘kha’);
      If (a=>8) then
      Writeln(‘kha’);
      Readln;
      End.


      Var A:integer ;
      Begin
      Writeln(‘nhap so diem’);
      Readln(a);
      If (a<3.5) then
      Writeln(‘kem’);
      If (a=>3.4) and (a<5) then
      Writeln(‘yeu’);
      If (a=>5) and (a<6.5) then
      Writeln(‘trung binh’);
      If (a=>6.5) and (a<8) then
      Writeln(‘kha’);
      If (a=>8) then
      Writeln(‘kha’);
      Readln;
      End.



      Var A:integer ;
      Begin
      Writeln(‘nhap so diem’);
      Readln(a);
      If (a<3.5) then
      Writeln(‘kem’);
      If (a=>3.4) and (a<5) then
      Writeln(‘yeu’);
      If (a=>5) and (a<6.5) then
      Writeln(‘trung binh’);
      If (a=>6.5) and (a<8) then
      Writeln(‘kha’);
      If (a=>8) then
      Writeln(‘kha’);
      Readln;
      End.


      Var A:integer ;
      Begin
      Writeln(‘nhap so diem’);
      Readln(a);
      If (a<3.5) then
      Writeln(‘kem’);
      If (a=>3.4) and (a<5) then
      Writeln(‘yeu’);
      If (a=>5) and (a<6.5) then
      Writeln(‘trung binh’);
      If (a=>6.5) and (a<8) then
      Writeln(‘kha’);
      If (a=>8) then
      Writeln(‘kha’);
      Readln;
      End.

      Xóa
    2. 2 Var A:integer ;
      Begin
      Writeln(‘nhap so diem’);
      Readln(a);
      If (a<=9) then
      Writeln(‘co 1 so’);
      If (a<=99) then
      Writeln(‘co 2 so’);
      If (a<=999) then
      Writeln(‘co 3 so’);
      If (a<=9999) then
      Writeln(‘co 4 so’);
      If (a<=99999) then
      Writeln(‘co 5 so’);
      If (a<=999999) then
      Writeln(‘co 6 so’);
      Readln;
      End.

      Xóa
    3. Bài 1 và bài 3 em làm đúng rồi đó.Phát huy nhé

      Xóa
  2. program bai4;
    uses crt;
    var

    Trả lờiXóa