Các bài tập tính tổng trong pascal

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.

Show

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:

  • Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ (10 ≤ A, M  ≤ 103).
  • Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.

Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:

  • Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát (mỗi số cách nhau một ký tự trắng).
  • Hàng 2: lần lượt là số áo, số mũ còn thừa.

23/10/2022 |   0 Trả lời

  • Cho 2 số nguyên a,b. thương của 2 số nguyên là c: hãy viết chương trình tính thương của 2 số đó

    Giúp em v ạ em sắp thi

    27/10/2022 |   1 Trả lời

  • (0101...) là cơ sở để tạo ra ngôn ngữ gì?

    30/10/2022 |   1 Trả lời

  • Máy tính chỉ có thể hiểu trực tiếp hiểu ngôn ngữ nào?

    30/10/2022 |   1 Trả lời

  • Máy tính thực hiện một công việc thông qua yếu tố nào?

    30/10/2022 |   1 Trả lời

  • Ngôn ngữ lập trình thông dụng ở cấp học THCS là gì?

    30/10/2022 |   1 Trả lời

  • Chương trình máy tính là dãy ………. mà máy tính có thể hiểu và thực hiện được.

    30/10/2022 |   1 Trả lời

  • Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng(khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả).

    Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng (khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả).

    31/10/2022 |   0 Trả lời

  • Để cho Rô-bốt thực hiện được công việc nhặt rác thì con người phải làm gì?

    31/10/2022 |   1 Trả lời

  • Từ khoá của một ngôn ngữ lập trình là gì?

    31/10/2022 |   1 Trả lời

  • Uses là từ khóa để khai báo yếu tố gì?

    31/10/2022 |   1 Trả lời

  • Dùng từ khóa nào để cho biết điểm bắt đầu và kết thúc chương trình?

    01/11/2022 |   1 Trả lời

  • Viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b.

    viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b

    Pascal là ngôn ngữ khá cũ, trong thực tế nó không còn được sử dụng phổ biến như trước nữa. So với các ngôn ngữ lập trình script hiện đại thì Pascal khá dài dòng, mức độ trừu tượng cao và cách code khá giống với ngôn ngữ lập trình C. Hầu hết các chương trình C đều có thể dịch được sang Pascal mà chỉ bị thay đổi về cú pháp chứ không làm thay đổi cấu trúc. Mà C thì là một trong những ngôn ngữ lập trình rất phổ biến, do đó nắm được Pascal bạn sẽ tiếp cận C tốt hơn. Nó cũng buộc bạn phải luôn nghĩ về kiểu dữ liệu, điều này sẽ giúp các lập trình viên mới học được một thói quen tuyệt vời khi code.

    Và vì không có nhiều giá trị thương mại, Pascal được sử dụng chủ yếu để dạy nhập môn lập trình hoặc dành cho những người yêu thích Pascal tìm tòi. Nếu bạn thích lập trình, mới học nhưng không "hấp thụ" được Pascal có thể thử Python nhé.

    • Trắc nghiệm Pascal 25 câu có đáp án
    • Tổng hợp câu hỏi trắc nghiệm Pascal có đáp án

    Dưới đây là tổng hợp một số bài tập Pascal từ cơ bản đến phức tạp mà Quantrimang.com đã tổng hợp lại, hy vọng việc học của bạn sẽ dễ dàng hơn đôi chút.

    Bài tập Pascal có giải

    Bài 1: In số chẵn ra màn hình

    Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số chẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số.

    Lời giải:

    uses crt; {khai bao' thu vien crt}
    var n,i,dem:integer;
    BEGIN
        clrscr;{ cau lenh xoa man hinh};
        write('Nhap n: ');readln(n);
        dem:=0;
        for i:=1 to n do
         begin
          if i mod 2=0 then
           begin
            write(i:4);
            dem:=dem+1;
           end;
          if dem=15 then
           begin
            dem:=0;
            writeln;{in duoc 15 so thi xuong dong};
           end;
         end;
        readln
    END.

    Bài 2: Tính, in tổng, hiệu, tích, thương của 2 số

    Nhập 2 số nguyên dương a và b. Sau đó:

    • Tính và in ra màn hình tổng, hiệu, tích thương và ước chung lớn nhất của 2 số đó.
    • Tính tổng các ước số dương của |a+b|

    Lời giải:

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.

    Bài 3: Kiểm tra xem tam giác có cân, vuông không

    Viết chương trình nhập vào độ dài các cạnh của tam giác rồi tính chu vi, diện tích, 3 đường cao của tam giác. Kiểm tra xem tam giác đó có phải là tam giác cân hay tam giác vuông không.

    Lời giải:

    uses crt;
    var a,b,c,cv,dt,p:real;
    BEGIN
     clrscr;
     write('Nhap do dai canh a: ');readln(a);
     write('Nhap do dai canh b: ');readln(b);
     write('Nhap do dai canh c: ');readln(c);
     cv:=a+b+c;
     p:=(a+b+c)/2;
     dt:=sqrt(p*(p-a)*(p-b)*(p-c));
     writeln('Chu vi tam giac la: ',cv:0:4);
     writeln('Dien tich tam giac la: ',dt:0:4);
     writeln('Duong cao canh thu 1 la: ',dt*2/a:0:4);
     writeln('Duong cao canh thu 2 la: ',dt*2/b:0:4);
     writeln('Duong cao canh thu 3 la: ',dt*2/c:0:4);
     if (a=b) or (a=c) or(b=c) then writeln('Tam giac can');
     if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a)then
      writeln('Tam giac vuong');
     readln
    END.
    

    Bài 4: Giải phương trình bậc 2

    Viết chương trình để giải phương trình bậc 2.

    Lời giải:

    uses crt;
    var a,b,c,x1,x2,d:real;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     write('Nhap c: ');readln(c);
     d:=b*b-4*a*c;
     if d>0 then
      begin
       x1:=(-b+sqrt(d))/(2*a);
       x2:=(-b-sqrt(d))/(2*a);
       writeln('2 nghiem PT la: ',x1:0:2,' va: ',x2:0:2);
      end
     else if d=0 then
      begin
       x1:=(-b)/(2*a);
       writeln('PT co nghiem kep la: ',x1:0:2);
      end
     else writeln('PT vo nghiem');
     readln
    END.
    

    Bài 5: Kiểm tra số chẵn lẻ, nguyên tố, hoàn hảo

    Nhập vào 1 số nguyên gồm 4 chữ số:

    • Kiểm tra tình chẵn lẻ
    • Kiểm tra xem có phải là số nguyên tố không
    • Kiểm tra xem có phải là số hoàn hảo không

    Lời giải:

    uses crt;
    var n,i:integer;ok:boolean;
    BEGIN
     clrscr;
     write('Nhap n: ');readln(n);
     if n mod 2=0 then writeln('So ',n,' la so chan')
      else writeln('So ',n,' la so le');
     if n<2 then write('So ',n,' khong la so nguyen to')
     else
      begin
       ok:=true;
       for i:=2 to trunc(sqrt(n)) do
        if n mod i=0 then ok:=false;
       if ok then writeln('So ',n,' la so nguyen to')
        else writeln('So ',n,' khong la so nguyen to');
      end;
     readln
    END.

    Có thể thay vòng lặp “for i:=2 to trunc(sqrt(n)) do” bằng lệnh while..do..khi đó ta không cần biến ok nữa.

    Bài 6: Tính ăn bậc n của một số

    Nhập 2 số n, a. Hãy tính căn bậc n của a:

    Lời giải:

    uses crt;
    var n:integer;a,s:real;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     repeat
     write('Nhap n: ');readln(n);
     until (n>0);
     if (n mod 2=0) and (a>=0) then
      begin
       s:=exp(1/n*ln(a));
       writeln('Ket qua la: ',s:0:4);
      end
     else if (n mod 2<>0) then
      begin
       s:=exp(1/n*ln(abs(a)));
       writeln('Ket qua la: ',s:0:4);
      end
     else writeln('Khong xac dinh');
     readln
    END.
    

    Bài 7: Tỉnh tổng các chữ số của một số

    Nhập số bất kỳ có 3 chữ số rồi tính tổng các chữ số của số đó.

    Lời giải:

    uses crt;
    var a:integer;tong:byte;
    BEGIN
     clrscr;
     write('Nhap 1 so co 3 chu so: ');readln(a);
     tong:= a mod 10;
     a:=a div 10;
     tong:=tong+a mod 10;
     a:=a div 10;
     tong:=tong+a mod 10;
     writeln('Tong cac chu so do la: ',tong);
     readln
    END.
    

    Bài 8: Hoán vị 2 số

    Nhập 2 số nguyên a, b, hoán vị 2 số khi a>b.

    Lời giải:

    uses crt;
    var a,b,tg:integer;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     if a>b then
      begin
       tg:=a;
       a:=b;
       b:=tg;
      end;
     writeln(a,' ',b);
     readln
    END.
    

    Bài 9: In các bội của 3 và 5

    Nhập số nguyên dương n, in ra tổng các số nguyên dương từ 1 đến n là bội của 3 hoặc 5.

    Lời giải:

    uses crt;
    var n,tong,i:integer;
    BEGIN
     clrscr;
     write('Nhap so nguyen duong n: ');readln(n);
     tong:=0;
     for i:=1 to n do
      if (i mod 3=0) or (i mod 5=0) then
       tong:=tong+i;
     writeln('Tong cac so chia het cho 3 hoac 5 tu 0--> ',n,' la: ',tong);
     readln
    END.
    

    Bài 10: In tổng các chữ số của một số

    Nhập n bất kỳ sau đó in ra tổng các chữ số của n.

    Lời giải:

    uses crt;
    var n,m:longint;tong:byte;
    BEGIN
     clrscr;
     write('Nhap n: ');readln(n);
     tong:=0;m:=n;
     while m>0 do
      begin
       tong:=tong+m mod 10;
       m:=m div 10;
      end;
     writeln('Tong cac chu so cua ',n,' la: ',tong);
     readln
    END

    Bài 11: Kiểm tra số nguyên tố

    Nhập vào một số n bất kỳ và kiểm tra xem n có phải là số nguyên tố không.

    Code mẫu:

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.
    0

    Bài 12: Kiểm tra số hoàn hảo

    Nhập 1 số nguyên dương n và kiểm tra xem n có phải là số hoàn hảo không.

    Lời giải:

    Số hoàn hảo là số có tổng các ước (ngoại trừ nó) bằng chính nó. Ví dụ, số 6 có các ước là 1, 2, 3; số 28, 496 cũng là các số hoàn hảo.

    Code mẫu:

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.
    1

    Bài 13: Kiểm tra số chính phương

    Nhập một số nguyên dương n bất kỳ và kiểm tra xem n có phải là số chính phương không.

    Code mẫu:

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.
    2

    Bài 14: Đếm nguyên âm, số trong một chuỗi

    Nhập vào một chuỗi ký tự và kiểm tra xem chuỗi có bao nhiêu nguyên âm, bao nhiêu số?

    Code mẫu:

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.
    3

    Bài 15: Kiểm tra 3 số có là độ dài cạnh tam giác không

    Nhập 3 số a, b, c bất kỳ. Kiểm tra xem 3 số có thể là độ dài 3 cạnh của một tam giác hay không và thông báo ra màn hình.

    Code mẫu:

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.
    4

    Bài 16: Đếm các số theo điều kiện và tính tổng

    Nhập số N bất kỳ. Đếm các số lớn hơn 10 và nhỏ hơn 20 rồi tính tổng của chúng. Sau đó, đưa ra màn hình "So cac so >10 va <20 la:" và "Tong cua chung la:".

    Code mẫu:

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.
    5

    Bài 17: Tìm giá trị lớn nhất của 4 số

    Nhập 4 số a, b, c, d. Hãy tìm giá trị lớn nhất của chúng và gán giá trị đó cho biến Max.

    Code mẫu:

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.
    6

    Bài 18: Xem ngày là thứ mấy trong tuần

    Đọc ngày tháng năm, sau đó viết ra màn hình đó là ngày thứ mấy trong tuần.

    Code mẫu:

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.
    7

    Bài 19: In phiếu báo điểm

    Viết chương trình: Nhập số báo danh, nhập điểm văn, toán, Anh. In ra màn hình dưới dạng:

    Phiếu Báo điểm:

    Số báo danh:

    Điểm văn:

    Điểm toán:

    Điểm ngoại ngữ:

    Tổng số điểm:

    Bạn đã trúng tuyển: Nếu Tổng số điểm >=20.

    Bạn không trúng tuyển: Nếu Tổng số điểm <20.

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.
    8

    Bài 20: Nhập 2 số thực và tính phép tính theo yêu cầu

    Viết chương trình nhập hai số thực. Sau đó hỏi phép tính muốn thực hiện và in kết quả của phép tính đó.

    • Nếu là "+", in tổng hai số lên màn hình.
    • Nếu là "-", in hiệu hai số lên màn hình.
    • Nếu là "/", in thương hai số lên màn hình.
    • Nếu là "*", in tích hai số lên màn hình.

    Code mẫu:

    uses crt;
    var a,b,tg,i,tong:integer;
    function tinh(x,y:integer):integer;
     begin
      tg:= x mod y;
      if tg=0 then tinh:=y else tinh:=tinh(y,tg);
     end;
    BEGIN
     clrscr;
     write('Nhap a: ');readln(a);
     write('Nhap b: ');readln(b);
     tong:=1;
     for i:=2 to abs(a+b) do
      if (abs(a+b) mod i =0) then tong:=tong+i;
     writeln('Tong 2 so la: ',a+b);
     writeln('Hieu 2 so la: ',a-b);
     writeln('Tich 2 so la: ',a*b);
     writeln('Thuong 2 so la: ',a/b:0:4);
     writeln('UCLN 2 so la: ',tinh(a,b));
     writeln('Tong cac uoc cua ',a+b,' la: ',tong);
     readln
    END.
    9

    Danh sách bài tập này sẽ được cập nhật thêm, bạn lưu lại để làm thêm bài mới nhé.

    Xem thêm:

    • Bài tập C++ có lời giải (code mẫu)
    • Bài tập Java cơ bản, có lời giải code mẫu
    • Hơn 100 bài tập Python có lời giải (code mẫu)

    • TOP 6 trang web hỗ trợ biên dịch lập trình Pascal online

    Thứ Ba, 30/08/2022 15:13

    3,9115 👨 370.200

    #Pascal #

    5 Bình luận

    Sắp xếp theo

    Các bài tập tính tổng trong pascal

    Xóa Đăng nhập để Gửi

    • Các bài tập tính tổng trong pascal

      Nguyễn Thu Huyền Câu 1: Hãy tạo biến và viết chương trình để giải bài toán sau: 1 người di chuyển, trong khoảng thời gian đầu là t1(h) người đó di chuyển bằng xe máy với vận tốc đều là V1( km/h). Sau đó người đó đi bộ vời vận tốc đều là V2( km/h), trong t2 (phút). Hãy tính quãng đường S mà người đó đi được đi được. Câu 2: Viết chương trình vẽ hình vuông theo 2 cách khác nhau?giúp mình với ạ:(((

      Thích · Phản hồi · 4 · 23/12/21

    • Các bài tập tính tổng trong pascal

      Hợp Nguyễn

      câu 1: viết chương trình  3 số nguyên tính d=(a*a+b+c)/3

      Thích · Phản hồi · 1 · 19:32 30/12

    • Các bài tập tính tổng trong pascal

      Quỳnh Phương

      làm sao để chuyển pascal sang pythoon ạ


      Thích · Phản hồi · 0 · 21:19 15/12

    • Các bài tập tính tổng trong pascal

      Phùng bá Tâm SP

      Bài 1: dem:=dem+1;

             end;

            if dem=15 then

             begin

              dem:=0;

              writeln;{in duoc 15 so thi xuong dong};

             end;

           end;

      chỗ này mình không hiểu lắm đề bài kêu là:

      Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số chẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số.

      Nhưng tại sao lại có dem:=dem+1; rồi thêm if dem =15.

      ai biết trả lời giúp mik với:(

       

       

       

       

       

       

       

       

       

       

      Thích · Phản hồi · 0 · 12:31 30/08

      • Các bài tập tính tổng trong pascal

        Bong Bóng Xà Phòng

        Giá trị 'dem' ở đây chỉ nhằm mục đich là để hiển thị 15 số/1 dòng thôi bạn, khi dòng đủ 15 số rồi thì nó sẽ xuống dòng và reset 'dem' về 0 để đếm số trên dòng mới

        Thích · Phản hồi · 0 · 13:47 30/08

    • Các bài tập tính tổng trong pascal

      Nguyễn Bảo Cảm ơn vì đoạn code! nhưng có phần vẫn chưa tối ưu!

      Thích · Phản hồi · 0 · 16/12/21

    Bạn nên đọc

    • Các bài tập tính tổng trong pascal
      Chính thức: Nintendo Switch đã có thể chạy được Android
    • Các bài tập tính tổng trong pascal
      Cảm biến ảnh dùng làm 'mắt' cho người mù
    • Các bài tập tính tổng trong pascal
      MacX DVD Ripper Pro miễn phí cho người sử dụng
    • Các bài tập tính tổng trong pascal
      Bộ DAC cao cấp DaVinci của Light Harmonic
    • Các bài tập tính tổng trong pascal
      25 tỷ phú USD đi lên từ tay trắng
    • Các bài tập tính tổng trong pascal
      Cách phân biệt USB “nhái” với hàng thật

    Lập trình

    • Các bài tập tính tổng trong pascal
      Cách tích hợp một mẫu theme Bootstrap với app React
    • Các bài tập tính tổng trong pascal
      Công thức tính diện tích hình chóp
    • Các bài tập tính tổng trong pascal
      Cách dùng Bootstrap 5 với Django
    • Các bài tập tính tổng trong pascal
      Công thức tính diện tích hình thoi, chu vi hình thoi
    • Các bài tập tính tổng trong pascal
      12 ứng dụng của ngôn ngữ lập trình C++ trong đời sống hàng ngày
    • Các bài tập tính tổng trong pascal
      Top 5 nguyên tắc cơ bản về phát triển ứng dụng Android dành cho người mới bắt đầu
    • Các bài tập tính tổng trong pascal
      React-Bootstrap: Xây dựng các thành phần đơn giản nhưng hiệu quả cho web
    • Các bài tập tính tổng trong pascal
      Hướng dẫn tạo mẫu textarea chỉnh kích thước tự động trong React Bootstrap 5
    • Các bài tập tính tổng trong pascal
      Cách trở thành nhà khoa học máy tính trong năm 2023: Họ là ai? Cần những kỹ năng gì? Lương bao nhiêu?
    Xem thêm

    Lập trình

    • Các bài tập tính tổng trong pascal
      SQL
    • Các bài tập tính tổng trong pascal
      Python
    • Các bài tập tính tổng trong pascal
      Cơ sở dữ liệu
    • Các bài tập tính tổng trong pascal
      AngularJS
    • Các bài tập tính tổng trong pascal
      Cấu trúc dữ liệu và giải thuật

    • Công nghệ
      • Ứng dụng
      • Hệ thống
      • Game - Trò chơi
      • iPhone
      • Android
      • Linux
      • Các bài tập tính tổng trong pascal
        Nền tảng Web
      • Đồng hồ thông minh
      • Chụp ảnh - Quay phim
      • macOS
      • Phần cứng
      • Thủ thuật SEO
      • Kiến thức cơ bản
      • Raspberry Pi
      • Dịch vụ ngân hàng
      • Lập trình
      • Dịch vụ công trực tuyến
      • Dịch vụ nhà mạng
      • Nhà thông minh
    • Download
      • Ứng dụng văn phòng
      • Tải game
      • Tiện ích hệ thống
      • Ảnh, đồ họa
      • Internet
      • Bảo mật, Antivirus
      • Họp, học trực tuyến
      • Video, phim, nhạc
      • Mail
      • Lưu trữ đám mây
      • Giao tiếp, liên lạc, hẹn hò
      • Hỗ trợ học tập
      • Máy ảo
    • Tiện ích
    • Khoa học
      • Các bài tập tính tổng trong pascal
        Khoa học vui
      • Các bài tập tính tổng trong pascal
        Khám phá khoa học
      • Các bài tập tính tổng trong pascal
        Bí ẩn - Chuyện lạ
      • Các bài tập tính tổng trong pascal
        Chăm sóc Sức khỏe
      • Các bài tập tính tổng trong pascal
        Khoa học Vũ trụ
      • Các bài tập tính tổng trong pascal
        Khám phá thiên nhiên
    • Điện máy
      • Tủ lạnh
      • Tivi
      • Điều hòa
      • Máy giặt
    • Cuộc sống
      • Kỹ năng
      • Món ngon mỗi ngày
      • Làm đẹp
      • Nuôi dạy con
      • Chăm sóc Nhà cửa
      • Kinh nghiệm Du lịch
      • Halloween
      • Mẹo vặt
      • Giáng sinh - Noel
      • Các bài tập tính tổng trong pascal
        Tết 2023
      • Quà tặng
      • Giải trí
      • Là gì?
      • Nhà đẹp
      • TOP
      • Các bài tập tính tổng trong pascal
        Phong thủy
    • Các bài tập tính tổng trong pascal
      Video
      • Các bài tập tính tổng trong pascal
        Công nghệ
      • Các bài tập tính tổng trong pascal
        Cisco Lab
      • Các bài tập tính tổng trong pascal
        Microsoft Lab
      • Các bài tập tính tổng trong pascal
        Video Khoa học
    • Các bài tập tính tổng trong pascal
      Ô tô, Xe máy
      • Các bài tập tính tổng trong pascal
        Giấy phép lái xe
    • Làng Công nghệ
      • Tấn công mạng
      • Chuyện công nghệ
      • Công nghệ mới
      • Trí tuệ nhân tạo (AI)
      • Anh tài công nghệ
      • Bình luận công nghệ
      • Các bài tập tính tổng trong pascal
        Tổng hợp
    • Các bài tập tính tổng trong pascal
      Học CNTT
      • Quiz công nghệ
      • Microsoft Word 2016
      • Các bài tập tính tổng trong pascal
        Microsoft Word 2013
      • Các bài tập tính tổng trong pascal
        Microsoft Word 2007
      • Các bài tập tính tổng trong pascal
        Microsoft Excel 2019
      • Các bài tập tính tổng trong pascal
        Microsoft Excel 2016
      • Các bài tập tính tổng trong pascal
        Hàm Excel
      • Các bài tập tính tổng trong pascal
        Microsoft PowerPoint 2019
      • Các bài tập tính tổng trong pascal
        Microsoft PowerPoint 2016
      • Các bài tập tính tổng trong pascal
        Google Sheets - Trang tính
      • Các bài tập tính tổng trong pascal
        Code mẫu
      • Các bài tập tính tổng trong pascal
        Photoshop CS6
      • Photoshop CS5
      • Các bài tập tính tổng trong pascal
        HTML
      • Các bài tập tính tổng trong pascal
        CSS và CSS3
      • Các bài tập tính tổng trong pascal
        Python
      • Các bài tập tính tổng trong pascal
        Học SQL
      • Các bài tập tính tổng trong pascal
        Lập trình C
      • Các bài tập tính tổng trong pascal
        Lập trình C++
      • Các bài tập tính tổng trong pascal
        Lập trình C#
      • Các bài tập tính tổng trong pascal
        Học HTTP
      • Các bài tập tính tổng trong pascal
        Bootstrap
      • Các bài tập tính tổng trong pascal
        SQL Server
      • Các bài tập tính tổng trong pascal
        JavaScript
      • Các bài tập tính tổng trong pascal
        Học PHP
      • Các bài tập tính tổng trong pascal
        jQuery
      • Các bài tập tính tổng trong pascal
        Học MongoDB
      • Các bài tập tính tổng trong pascal
        Unix/Linux
      • Các bài tập tính tổng trong pascal
        Học Git
      • Các bài tập tính tổng trong pascal
        NodeJS

    Giới thiệu | Điều khoản | Bảo mật | Hướng dẫn | Ứng dụng | Liên hệ | Quảng cáo | Facebook | Youtube | DMCA

    Giấy phép số 362/GP-BTTTT. Bộ Thông tin và Truyền thông cấp ngày 30/06/2016. Cơ quan chủ quản: CÔNG TY CỔ PHẦN MẠNG TRỰC TUYẾN META. Địa chỉ: 56 Duy Tân, Dịch Vọng Hậu, Cầu Giấy, Hà Nội. Điện thoại: 024 2242 6188. Email: [email protected]. Chịu trách nhiệm nội dung: Lê Ngọc Lam.

    Bản quyền © 2003-2023 QuanTriMang.com. Giữ toàn quyền. Không được sao chép hoặc sử dụng hoặc phát hành lại bất kỳ nội dung nào thuộc QuanTriMang.com khi chưa được phép.