Tin học Pascal

[Nguyễn Duy Mạnh]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Kỳ thi chọn HSG môn Tin ,mỗi học sinh làm 3 bài . Tên học sinh là xâu có không quá 30 kí tự .Yêu cầu:
Nhập từ bàn phím :họ tên , điểm của các bài .
Ghi ra tên nhừng HSG (điểm trung bình >=8.0 và không có môn nào dưới 6.6

 

[Ngô Trọng Nhân]

uses crt;

var tong,i:integer;

b1,b2,b3:array[1..10000] of integer;

tb:array[1..10000] of real;

hs:array[1..10000] of string;

x:byte;

begin

clrscr;

write('Tong so hoc sinh: ');readln(tong);

for i:=1 to tong do

begin

clrscr;

repeat

write('ten hoc sinh thu ',i,' : ');readln(hs);

x:=length(hs);

until x<=30;

write('diem bai 1: ');readln(b1);

write('diem bai 2: ');readln(b2);

write('diem bai 3: ');readln(b3);

if (b1>6.6) then

if (b2>6.6) then

if (b3>6.6) then tb:=(b1+b2+b3)/3;

end;

writeln('********************************');

for i:=1 to tong do

if tb>=8 then writeln(hs);

readln;

end.

 

[Nguyễn Thánh Tiền]

nhập bằng readln(sss);

xuất bằng write(aaaa);

 

[Ngô Trọng Nhân]

uses crt;

var tong,i:integer;

b1,b2,b3:array[1..10000] of integer;

tb:array[1..10000] of real;

hs:array[1..10000] of string;

x:byte;

begin

clrscr;

write('Tong so hoc sinh: ');readln(tong);

for i:=1 to tong do

begin

clrscr;

repeat

write('ten hoc sinh thu ',i,' : ');readln(hs);

x:=length(hs);

until x<=30;

write('diem bai 1: ');readln(b1);

write('diem bai 2: ');readln(b2);

write('diem bai 3: ');readln(b3);

if (b1>6.6) then

if (b2>6.6) then

if (b3>6.6) then tb:=(b1+b2+b3)/3;

end;

writeln('********************************');

for i:=1 to tong do

if tb>=8 then writeln(hs);

readln;

end.

Cái trên sai một chút
sửa lại:
uses crt;

var tong,i:integer;

b1,b2,b3:array[1..10000] of integer;

tb:array[1..10000] of real;

hs:array[1..10000] of string;

x:byte;

begin

clrscr;

write('Tong so hoc sinh: ');readln(tong);

for i:=1 to tong do

begin

clrscr;

repeat

write('ten hoc sinh thu ',i,' : ');readln(hs);

x:=length(hs);

until x<=30;

write('diem bai 1: ');readln(b1);

write('diem bai 2: ');readln(b2);

write('diem bai 3: ');readln(b3);

if (b1>6.6) then

if (b2>6.6) then

if (b3>6.6) then tb:=(b1+b2+b3)/3;

end;

writeln('********************************');

for i:=1 to tong do

if tb>=8 then writeln(hs);

readln;

end.

 

[Ngô Trọng Nhân]

Cái trên sai một chút
sửa lại:
uses crt;

var tong,i:integer;

b1,b2,b3:array[1..10000] of integer;

tb:array[1..10000] of real;

hs:array[1..10000] of string;

x:byte;

begin

clrscr;

write('Tong so hoc sinh: ');readln(tong);

for i:=1 to tong do

begin

clrscr;

repeat

write('ten hoc sinh thu ',i,' : ');readln(hs);

x:=length(hs);

until x<=30;

write('diem bai 1: ');readln(b1);

write('diem bai 2: ');readln(b2);

write('diem bai 3: ');readln(b3);

if (b1>6.6) then

if (b2>6.6) then

if (b3>6.6) then tb:=(b1+b2+b3)/3;

end;

writeln('********************************');

for i:=1 to tong do

if tb>=8 then writeln(hs);

readln;

end.

Xin lỗi
máy có vấn đề nên làm lại
uses crt;

var tong,i:integer;

b1,b2,b3:array[1..10000] of integer;

tb:array[1..10000] of real;

hs:array[1..10000] of string;

x:byte;

begin

clrscr;

write('Tong so hoc sinh: ');readln(tong);

for i:=1 to tong do

begin

clrscr;

repeat

write('ten hoc sinh thu ',i,' : ');readln(hs);

x:=length(hs);

until x<=30;

write('diem bai 1: ');readln(b1);

write('diem bai 2: ');readln(b2);

write('diem bai 3: ');readln(b3);

if (b1>6.6) then

if (b2>6.6) then

if (b3>6.6) then tb:=(b1+b2+b3)/3;

end;

writeln('********************************');

for i:=1 to tong do

if tb>=8 then writeln(hs);

readln;

end.