... ',(-b+sqrt(delta))/ (2* a):8 :2) ; writeln('Nghiệm x2= ',(-b-sqrt(delta))/ (2* a):8 :2) ; end else if delta=0 then writeln('Nghiệm kép x1=x2= ',-b/ (2* a):8 :2) else ... OutTextXY(-GetmaxX DIV 4,-GetmaxX DIV 4,'DO THI HINH SIN '); SetColor(Red); OutTextXY(GetmaxX DIV 2- 32 , 2,'Truc x >'); OutTextXY (27 ,-( GetmaxY DIV 2- 5 ),'^ Truc ... Writeln(f,1 ,2, 3) ; (2) write(f,4,5); (3) writeln(f); (4) Close(f); End. Chương trình sẽ tạo ra tệp U:\Vanban.Dat có dạng như sau: * Ðọc dữ liệu từ tập tin văn bản: Việc đọc dữ liệu từ tệp văn bản...