3. Viết chương trình nhập thông tin của một học sinh gồm họ tên, quê quán, lớp và lưu vào tệp hocsinh.txt. 4. Viết chương trình hiển thị thông tin đã nhập ở bài 3.
2 câu trả lời
Const Fo='HOCSINH.TXT';
Var g: text;
hoten,quequan,lop: String;
Begin
Assign(g,Fo); Rewrite(g);
Write('Nhap ho va ten: '); Readln(hoten);
Write('Nhap que quan: '); Readln(quequan);
Write('Nhap lop: '); Readln(lop);
Writeln(g,'Ho va ten: ',hoten);
Writeln(g,'Que quan: ',quequan);
Write(g,'Lop: ',lop);
Close(g);
End.
uses crt;
var f:text;
a1,a2,a3:string;
begin
clrscr;
assign(f,'hocsinh.txt');rewrite(f);
readln(a1);
readln(a2);
readln(a3);
write(f,a1,' | ',a2,' | ',a3);
close(f);
readln;
end.
Câu hỏi trong lớp
Xem thêm
