Viết chương trình nhập điểm kiểm tra môn Tin học của 40 học sinh trong 1 lớp. In ra những học sinh đạt điểm giỏi từ 8 trở lên
Cách viết chương trình
program hoten
Uses crt;
var s:string;
i,d:integer;
begin
write['Nhap ho ten: ']; read[s];
for i:=1 to length[s] do inc[d];
writeln['Ho ten nguoi do la: ',s];
write['Ho ten nguoi nay co: ',d,'ki tu'];
Readln;
End.
Cách tương tự
program ten_lop_trg;
uses crt;
begin
clrscr;
writeln[' < tên của bạn > '];
writeln[' '];
writeln[' '];
readln;
end.
Các câu hỏi liên quan
Câu 1:Viết chương trình in ra họ tên của mình?
Câu 2:Viết chương trình tính chu vi và diện tích hình chữ nhật có chiều dài 2 cạnh là a,b[được nhập từ bàn phím]
Câu 3:Viết chương trình tính xem 1 tam giác có là tam giác vuông hay không khi biết 3 cạnh của tam giác[hướng dẫn-nhập 3 cạnh của tam giác vào 3 biến a,b,c;-Nếu a^2=b^2+c^2 hoặc b^2=a^2+c^2 hoặc c^2=a^2+b^2 thì là tam giác vuông và ngược lại]
Câu 4:Viết chương trình xét xem tam giác có là tam giác cân hay không khi biết 3 cạnh[huongs dẫn-Nhập 3 cạnh của tam giác vào 3 biến a,b,c;-Nếu a=b hoặc c=a thì tam giác là tam giác cân và ngược lại]
Câu 5:Dùng lệnh for...do viết chương trình tính tổng của n số tự nhiên đầu tiên với n là số tự nhiên được nhập từ bàn phím
Câu 6:Dùng lệnh for...do tính tổng S=1/2+1/3+1/4+...+1/100
Câu 7:Viết chương trình in ra tất cả các ước của một số n[với n là số được nhập từ bàn phím]
Hướng dẫn:Cho biến i chạy từ 1đến n. Nếu n chia hết cho i thì in ra i
Câu 8:Viết chương trình in ra các số lẻ