tailieunhanh - Lý thuyết và bài tập Pascal nâng cao part 2

Tham khảo tài liệu 'lý thuyết và bài tập pascal nâng cao part 2', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 46 Lý thuyết và Bàl tập Pascal begin xmax x max y end if mín y then begin xmin x min y end end writelnCGia tri max max 0 4 tai X xmax wrrtelnCGia tri min min 0 4 tai X xmin read In end. Bài uses crt var x y z xm ym zm integer max longint begin clrscr max 0 for x -50 to 50 do for y -50 to 50 do for z -50 to 50 do begin if sqr x sqr y sqr z 2 7 then if max abs x y z x ỵ y z z x then Cftobngr ií Phánieặnttảri 47 begin xm x ym y zm z max abs x y z x y y z z x end end writeln x xm y ym z zm writeln x y z xy xz yz max writeln sqr x sqr y sqr z 27 read In end. Bài . Program Tong2day uses crt type day array 1 .100 of real var a b c day n i integer begin cìrscr writelnCTinh tong cua 2 day so L . writeCNhap so phan tu 100 readln n writelnf Day 1 for i 1 to n do . f ị 1 begin . writeCday 48 Lý thuyết và Bài tập Pascal readíníaíí end writelnCDay 2 for ì 1 to n do begin write day2 i J readlnfbfi end for i 1 to n do c il a i b i writeCDay tong for i 1 to n do write c i 0 2 writeln readin end. Bài 1-14 Program Bail_14 uses crt type kieumang arrayll .81 of byte var choice integer var numasc byte var chjtiep char var numbin kieumang Begin repeat clrscr GOTOXY 25 2 WritelnCMenu Program GOTOXY 20 5 WriteInC 1. Doi ky tu ra so GOTOXY 20 6 Writeln 2. Doi so ra ky tu1