Chương trình con có code

Chương trình con có codeChương trình con có codeChương trình con có codeChương trình con có codeChương trình con có codeChương trình con có codeChương trình con có codeChương trình con có codeChương trình con có codeChương trình con có codeChương trình con có codeChương trình con có code

CHƯƠNG TRÌNH CON Người viết : Trần Quang Linh Nguồn Tài Liệu : Thầy Lê Văn Hưng Thủ Tục và Hàm Bài Tập : Bài 1 Dùng thủ tục giải và biện luận phương trình bậc hai ax^2+bx+c=0. Bài Làm: program bai_1; uses crt; var a,b,c: longint; procedure giai_2 (a1,b2,c3 :longint); var d : longint; begin if a1 = 0 then writeln(' khong phai phuong trinh bac hai') else begin d:= b2*b2-4*a1*c3; if d < 0 then writeln('Phuong trinh vo nghiem') else if d = 0 then writeln(' x1 = x2 = ',-b2/2*a1) else writeln(' x1 = ',(-b2+sqrt(d))/(2*a1),' x2= ',(-b2-sqrt(d))/(2*a1)); end; end; begin clrscr; writeln(' nhap a,b,c '); readln(a,b,c); giai_2(a,b,c); readln end. Bài 2 Hãy viết lại thủ tục Insert đối với một chuỗi kí tự cho trước tùy ý. Bài Làm: program bai_2; uses crt; var xaucon,xaume:string; sl: byte; procedure demo_insert(s1,s2:string; vt:byte); var ra:string; i:byte; begin ra:=''; if vt = 1 then ra:=s1+s2 else if vt > length(s2) then ra:=s2+s1 else begin for i:=1 to (vt-1) do ra:=ra+s2[i]; ra:=ra+s1; for i:=vt to length(s2) do ra:=ra+s2[i]; end; s2:=ra; write('KET QUA :',s2); end; Begin clrscr; writeln(' THU TUC INSERT !!!'); write('nhap xau can chen:'); readln(xaucon); write('nhap xau chen vao:'); readln(xaume); write('nhap vi tri chen:'); readln(sl); demo_insert(xaucon,xaume,sl); readln end. Bài 3 Xây dựng thủ tục sau: - - Thủ tục nhập vào 3 cạnh tam giác. Thủ tục kiểm tra xem có phải tam giác hay không? Đúng thì tính diện tích tam giác. Thủ tục tính đường trung tuyến tam giác. Bài Làm : Program bai_3; uses crt; var a,b,c:real; procedure nhapvao(a,b,c:real); begin write('nhap canh thu nhat cua tam giac :'); readln(a); write('nhap canh thu hai cua tam giac :'); readln(b); write('nhap canh thu ba cua tam giac:'); readln(c); end; procedure Kiem_s(a,b,c:real); var s,p:real; i:byte; begin if (a+b>c) and (a+c>b) and (b+c>a) then begin writeln(' La 1 tam giac'); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln; write('muon lay bao nhieu chu so sau dau phay:'); readln(i); writeln; write(' Co dien tich la:',s:0:i); end else writeln('Day khong pai tam giac'); end; procedure trung_tuyen(a,b,c:real); var i: byte; begin write('muon lay bao nhieu chu so sau dau phay:'); readln(i); writeln('Trung tuyen ma: ',sqrt((2*b*b+2*c*c-a*a)/4):0:i); writeln('Trung tuyen mb: ',sqrt((2*a*a+2*c*c-b*b)/4):0:i); writeln('Trung tuyen mc: ',sqrt((2*b*b+2*a*a-c*c)/4):0:i); end; Begin clrscr; nhapvao(a,b,c); Kiem_s(a,b,c); trung_tuyen(a,b,c); readln End. Bài 4 Xây dựng thủ tục giải phương trình x+y+z=12 trong phạm vi số nguyên không âm với điều kiện x ... :',D(xauvao,xauvao1)); readln End Bài Viết chương trình thực công việc sau : Nhập liệu (nhập số tự nhiên n) Phân tích thành thừa số nguyên tố Thoát khỏi chương trình Bài Làm : program bai_8; uses crt;... !!!'); write('nhap xau can chen:'); readln(xaucon); write('nhap xau chen vao:'); readln(xaume); write('nhap vi tri chen:'); readln(sl); demo_insert(xaucon,xaume,sl); readln end Bài Xây dựng thủ... nhapvao(a,b,c); Kiem_s(a,b,c); trung_tuyen(a,b,c); readln End Bài Xây dựng thủ tục giải phương trình x+y+z=12 phạm vi số nguyên không âm với điều kiện x