Page 51 - C:\Users\Admin\Desktop\Sach mem upweb\
P. 51
100 Problems & Solutions Trang 51
Begin
can(3, '9', ' ', ' ', ' ', '10', ' ', ' ', ' ');
If (ch='T') then kq(9, st1);
If (ch='P') then kq(10, st1);
If (ch='C') then kq(11, st1);
End
Else If (ch='P') then {CP}
Begin
can(3, '9', ' ', ' ', ' ', '10', ' ', ' ', ' ');
If (ch='T') then kq(10, st2);
If (ch='P') then kq(9, st2);
If (ch='C') then kq(11, st2); End
Else If (ch='C') then {CC}
Begin
can(3, '12', ' ', ' ', ' ', '1', ' ', ' ', ' ');
If (ch='T') then kq(12, st1);
If (ch='P') then kq(12, st2);
If (ch='C') then Writeln('Trả lời sai!');
kq1:=12;
End;
End;
End;
(* Chương trình chính*)
Begin
Clrscr;
play;
Writeln(' Quả thứ', kq1, kq2);
Writeln(' Nhấn Enter kết thúc...');
Readln;
End.
Bài 6/1999 - Giao điểm các đường thẳng
(Dành cho học sinh THPT)
Program Bai6;
(* Tinh so giao diem cua n duong thang 0 trung nhau *)
Uses Crt;
Const
fn = 'P6.INP';
fg = 'P6.OUT';
max = 100;
exp = 0.0001;
Var
a ,b ,c : array[1..max] of real;
n : integer;
sgd : integer;
Procedure Nhap;
Var
f: text;
i: integer;
Begin
Tin học & Nhà trường 100 Đề Toán - Tin học
