ĐÀO XUÂN BẢO's Profile

Program Tong_hieu_tich_thuong;

Uses crt;

Var a:integer;

    b:integer;

Begin

    clrscr;

    write('nhap so thu 1 :');

    readln(a);

    writeln('ban vua nhap so: ',a);

    write('nhap so thu hai :');

    readln(b);

    writeln('ban vua nhap so thu 2: ',b);

    Writeln(a,'+',b,'=',a+b);

    Writeln(a,'-',b,'=',a-b);

    Writeln(a,'*',b,'=',a*b);

    if b<>0 then {Nếu không kiểm tra thì b=0 chương trình sẽ bị lỗi}

    Writeln(a,'/',b,'=',a/b);

    readln;

End.

Nhập 2 số a,b và một phép toán PT. In ra kết quả của phép toán giữa a và b.

Gợi ý: Nếu PT'*' thì in ra a*b.Ngược lại nếu PT'+'thì in ra a+b.

program pt;

uses crt;

var a,b,kq:integer;

pt:string;

begin

clrscr;

write('nhap vao so a: ' );read(a);

write('nhap vao so b: ');read(b);

write('nhap vao phep toan + hoac * : ');read(pt);

if pt='+' then kq:=a+b;

if pt='*' then kq:=a*b;

write('ket qua cua phep toan ',a,pt,b,' = ',kq);

readln;

end.

program vt;
uses crt;
var i,n,j,e,c,l,tgc,tgl,bcc,bcl:integer;
    a,b,d:array[1..1000] of integer;
begin
     clrscr;
     j:=0;
     e:=0;
     tgc:=0;{bien trung gian cho so le}
     tgl:=0;{bien trung gian cho so chan}
     bcc:=0;{bien chay cho vong lap chan}
     bcl:=0;{bien chay cho vong lap le}
     write('nhap vao so phan tu cua mang: ');
     read(n);
     for i:=1 to n do
     begin
          write('nhap vao phan tu thu ',i,' ');
          write('a[',i,']=');read(a[i]);
     end;
     for i:=1 to n do
     begin
          if (a[i] mod 2)=0 then
          begin
               j:=j+1;
               b[j]:=a[i];
               c:=j;
          end
          else if (a[i] mod 2)<>0 then
          begin
               e:=e+1;
               d[e]:=a[i];
               l:=e;
          end;
     end;
     for i:=1 to l do write(d[i],' ');
     for i:=1 to c do write(b[i],' ');
     for bcl:=1 to (l-1) do
     for i:=bcl+1 to l do
     if (d[i]>=d[bcl]) then
     begin
          tgl:=d[i];
          d[i]:=d[bcl];
          d[bcl]:=tgl;
     end;
     for bcc:=1 to (c-1) do
     for i:=bcc+1 to c do
     if (b[i]<=b[bcc]) then
     begin
          tgc:=b[i];
          b[i]:=b[bcc];
          b[bcc]:=tgc;
     end;
     writeln;
     for i:=1 to l do write(d[i],' ');
     for i:=1 to c do write(b[i],' ');
     readln;
end.

Bài tập: Viết chương trình nhập vào một dãy số nguyên  có n phần tử.

a.   Đưa những phần tử lẻ ra đầu danh sách, những phần tử chẵn về cuối danh sách và in kết quả ra màn hình.

b.   Sắp xếp các phần tử lẻ đầu danh sách theo thứ tứ tăng dần, sắp xếp các phần tử

chẵn cuối danh sách theo thứ tự giảm dần. In danh sách ra màn hình.

Hướng dẫn thuật toán:

Câu a) Dùng đồng thời 2 biến, biến L duyệt từ đầu dãy đến cuối dãy (để xếp các phần tử lẻ lên đầu), biến R duyệt từ đầu dãy đến cuối dãy (để xếp các phần tử chẵn về cuối), nếu biến L gặp số chẵn và biến R gặp số lẻ thì ta đổi chỗ 2 giá trị A[L] và A[R] cho nhau, nếu biến L gặp số lẻ thì tăng L, hoặc biến R gặp số chẵn thì tăng R. Quá trình tìm và xếp đó sẽ kết thúc khi L>R.

Câu b) Vì câu ở Câu a ta xếp các phần tử lẻ lên đầu, phần tử chẵn ở cuối dãy nên ở câu b ta chỉ cần dùng biến K đếm xem có băo nhiêu phần tử lẻ sau đó ta dùng thuật toán sắp xếp tăng dần cho đoạn từ 1 đến K, sau đó ta lại dùng thuật toán sắp xếp giảm dần cho đoạn từ K+1 đến N.

Giải cho với

program vt;
uses crt;
var v1,v2:integer;
    s1,s2,t,kc:real;
begin
     clrscr;
     write('nhap vao van toc xe thu nhat: ','v1=');read(v1);
     write('nhap vao van toc xe thu hai: ','v2=');read(v2);
     write('nhap vao thoi gian hai xe di sau khi xuat phat: ','t=');read(t);
     s1:=t*v1;{s1 la quang duong xe thu nhat di}
     s2:=t*v2;{s2 la quang duong xe thu hai di}
     kc:=abs(s1-s2);{kc la khoang cach 2 xe; abs() la ham lay gia tri tuyet doi)}
     write('khoang cach cua 2 xe sau ',t:3:2,' la: ',kc:3:2,' km');
     readln;
end.

Một người đi xe máy với tốc độ 10km/h và 1 người đi xe máy với tốc đọ 30km/h cùng xuất phát từ 1 vị tí cùng 1 thời điểm và 1 hướng. Lập trình tính và đưa ra màn hình khoảng cách giữa 2 người sau t giời . với t nhập từ bàn phím

morse : nhập kí tự '-';'." xuất ra chữ tương ứng.

semaphore : vd mã hóa kí tự dưới dạng phương hướng trong địa lí.

mật thư: nhập sâu kí tự đã mã hóa rồi xuất ra sâu kí tự phù hợp