Viết chương trình nhập vào họ tên lớp chiều cao, cân nặng của học sinh và in ra màn hình

Bài 4: Sử dụng biến trong chương trình – Câu 6 trang 33 SGK Tin học lớp 8. Hãy cho biết các kiểu dữ liệu của các biến cần khai báo dùng để viết chương trình để giải các bài toán dưới đây :

Hãy cho biết các kiểu dữ liệu của các biến cần khai báo dùng để viết chương trình để giải các bài toán dưới đây :
a. Tính diện tích S của hình tam giác với độ dài một cạnh là a và chiều cao là h (a và h là các số tự nhiên nhập vào từ bàn phím).
b. Tính kết quả c của phép chia lấy phần nguyên và kết quả d của phép chia lấy phần dư của 2 số nguyên a và b.

Lời giải : 

a. Kiểu dữ liệu của biến a là : real

    Kiểu dữ liệu biến h là : real

    Kiểu dữ liệu biến S(diện tích ) là real

b. Kiểu dữ liệu của biến a là : integer

    Kiểu dữ liệu của biến b là : integer

    Kiểu dữ liệu của biến c là : integer

    Kiểu dữ liệu của biến d là : integer

Em hãy cho biết các biến cần phải dùng và kiểu dữ liệu của chúng trong chương trình giải bài toán dưới đây:
Chương trình nhập vào họ tên, chiều cao, cân nặng của học sinh và in ra màn hình chỉ số BMI và đánh giá theo chỉ số BMI (chỉ số BMI là tỉ số giữa cân nặng và bình phương chiều cao).

Trường THCS-THPT ĐINH THIỆN LÝ                                                              TIN HỌC 11

        writeln('DANH SACH HOC SINH NAM DU THI: ');

        writeln('Ho ten:':20,'Lop':5);

        for i:=1 to N do

        if (truong[i].gioitinh='NAM') then

             begin

                write('Ho ten: ',truong[i].hoten:20);

                write('Lop: ',truong[i].Lop:5);

             end;

        //xuat danh sach cac hoc sinh nu du thi

        writeln('DANH SACH HOC SINH NU DU THI: ');

         for i:=1 to N do

           if (truong[i].gioitinh='NU') then

             begin

                write('Ho ten: ',truong[i].hoten:20);

                write('Lop: ',truong[i].Lop:5);

             end;

        //Tìm học sinh chạy nhanh nhất

Minthoigian:=Truong[1].thoigian;

chisomin:=1;

for i:=1 to n do

if truong[i].thoigian < minthoigian then

    Begin

    minthoigian:=truong[i].thoigian;

    chisomin:=i;

    end;

writeln('HOC SINH CHAY NHANH NHAT LA');

Writeln('ho ten' , truong[chisomin].hoten);

writeln('lop: ' , truong[chisomin].lop);

writeln('thanh tich ', truong[chisomin].thoigian:5:1);

end.

BÀI 2

program  baitapchuong4-bai2;

{Ho ten: CHAU YEN TRINH

Ma so: 25

Lop: 11a2}

uses crt;

type hocsinh = record

        hoten:string[30];

        lop:string[4];

        gioitinh:string[3];

        chieucao, cannang: real;

        end;

var suckhoe:array[1..60] of hocsinh;

    l:string;

    n,i,a,b:integer;

    s,caotrungbinh,nangtrungbinh,c:real;

begin

        clrscr;

        write('Nhap ten lop: '); readln(l);

        writeln('So hoc sinh trong lop: ');readln(n);

        for i:=1 to n do

                begin

                        writeln('Thong tin ve hoc sinh thu ',i,': ');

                        write('Ho ten: ');readln(suckhoe[i].hoten);

                        write('Gioi tinh: ');readln(suckhoe[i].gioitinh);

                        write('Chieu cao(cm): ');readln(suckhoe[i].chieucao);

                        write('Can nang(kg): ');readln(suckhoe[i].cannang);

                        readln;

                end;

        s:=suckhoe[1].chieucao;

        for i:=2 to n do s:=s+suckhoe[i].chieucao;

        caotrungbinh:=s/n;

        c:=suckhoe[1].cannang;

        for i:=2 to n do c:=c+suckhoe[i].cannang;

        nangtrungbinh:=c/n;

        writeln('PHIEU KIEM TRA SUC KHOE');

        for i:=1 to n do writeln(suckhoe[i].hoten:30,'   Gioi tinh:',suckhoe[i].gioitinh:3,'   Chieu cao:',

                         suckhoe[i].chieucao:4:2,'   Can nang:',suckhoe[i].cannang:4:2);

        writeln('Chieu cao trung binh cua hoc sinh trong lop: ',caotrungbinh:5:2);

        writeln('Can nang trung binh cua hoc sinh trong lop: ',nangtrungbinh:5:2);

        a:=0;

        for i:=1 to n do if suckhoe[i].chieucao> caotrungbinh then a:=a+1;

        writeln('So hoc sinh cao hon chieu cao trung binh cua toan lop: ',a);

        b:=0;

        for i:=1 to n do if suckhoe[i].cannang> nangtrungbinh then b:=b+1;

        writeln('So hoc sinh nang hon muc can nang trung binh cua toan lop: ',b);

        readln;

end.

Bài 3

program baitapchuong4-bai3;

{Ho ten: Bui Thai Minh Tuan

Ma so: 29

Lop: 11D

}

uses crt;

const max = 200;

type Sach = record

MaSoSach:string[10];

NhanDe:string[50];

TenTacGia:string[30];

NhaXuatBan:string[30];

NamXuatBan:real;

end;

var

Khosach: array[1..Max] of Sach;

N,i,x:Byte;

a,b,d:string[10];

c:real;

begin

clrscr;

write('So luong sach trong kho N = '); readln(N);

for i:=1 to N do

begin

writeln('Nhap so lieu ve quyen sach thu ',i,': ');

write('Ma so sach: '); readln(Khosach[i].MaSoSach);

write('Nhan de: '); readln(Khosach[i].NhanDe);

write('Ten tac gia: '); readln(Khosach[i].TenTacGia);

write('Nha xuat ban: '); readln(Khosach[i].NhaXuatBan);

write('Nam xuat ban: '); readln(Khosach[i].NamXuatBan);

end;

write('Nhap ma so sach muon tim: '); readln(a);

for i:=1 to N do

if Khosach[i].MaSoSach = a then writeln('Sach ne: ',Khosach[i].NhanDe:5, Khosach[i].TenTacGia:5, Khosach[i].NhaXuatBan:5, Khosach[i].NamXuatBan:5:0);

readln;

write('Nhap ten tac gia muon tim: '); readln(b);

for i:=1 to N do

if Khosach[i].TenTacGia = b then writeln('Nhung sach co cung tac gia: ',i:5, Khosach[i].NhanDe:5);

readln;

write('Nam Xuat Ban: '); readln(c);

for i:=1 to N do

if Khosach[i].NamXuatBan = c then writeln('Sach co cung nam sang tac: ',i:5, Khosach[i].NhanDe:5);

readln;

write('Nhap mot tu bat ki: '); readln(d);

for i:=1 to N do

if pos(d,Khosach[i].NhanDe)<>0 then write(i:1, Khosach[i].NhanDe:5);

readln;

end.