Viết chương trình in ra màn hình họ tên lớp của em

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ẻ

Hướng dẫn. Sử dụng biến thực số lẻ đầu tiên=1.Số lẻ sau =số lẻ trước+2

-Cho biến i có giá trị ban đầu =1

-Dùng vòng lặp While...do với điều kiện i