Viết chương trình pascal tính tích các lớn hơn

Em hãy xác định bài toán, mô tả thuật toán, viết chương trình để giải các bài toán sau :

Bài 1: Tính chu vi, diện tích hình vuông.

Bài 2:Tính chu vi, diện tích hình tròn.

Bài 3: Tính chu vi, diện tích hình tam giác thường.

Bài 4: Tính chu vi, diện tích hình chữ nhật.

Bài 5: Tính thể tích hình trụ.

Bài 6: Nhập vào 1 số n, hãy kiểm tra xem n có chia hết cho 3 hay không ?

Bài 7: Nhập vào 1 số n, hãy kiểm tra xem n có chia hết cho 3 và 5 hay không ?

Bài 8: Nhập vào 1 số a, hãy kiểm tra xem a là số chẵn hay lẻ ?

Bài 9: Nhập vào 1 số a, hãy kiểm tra xem a là số âm hay dương ?

Bài 10: Nhập vào 3 số dương. Hãy kiểm tra xem 3 số đó có là độ dài 3 cạnh của 1 tam giác hay không ?

Dạ có gì reply em nhanh 1 tý với ạ còn 2 ngày nữa là em thi rồi em cảm ơn !

Bài 10: Cấu trúc lặp

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

Câu hỏi

• 정민

5 tháng 12 2019 lúc 20:22

Viết chương trình tính tích S sau:

1. S=1 x 2 x 3 x..... x N

2. S= 1^2 x 2^2 x 3^2 x.... x N^2

program ho_tro;

uses crt;

var s,n,i: integer;

begin

clrscr;

writeln(' nhap so n:'); readln(n);

s:=1;

for i:=1 to n do

s:=s*i;

writeln(' tich cua day tren la:',s);

readln;

end.

program ho_tro;

uses crt;

var s,n,i: integer;

begin

clrscr;

writeln(' nhap so n:'); readln(n);

s:=1;

for i:=1 to n do

s:=s*i*i;

writeln(' tich cua day tren la:',s);

readln;

end.

1:

uses crt;

var i,n:integer;

s:longint;

begin

clrscr;

write('n='); readln(n);

s:=1;

for i:=1 to n do

s:=s*i;

writeln(n,'!'=',s);

readln;

end.

2:

uses crt;

var i,n:integer;

s:longint;

begin

clrscr;

write('n='); readln(n);

s:=1;

for i:=1 to n do

s:=s*sqr(i);

writeln('tich la: ',s);

readln;

end.

• 언방용

20 tháng 12 2021 lúc 16:09

• tramyphan030808
• Chưa có nhóm

• Trả lời

  4

• Điểm

  129

• Cảm ơn

  2

• Tin Học
• Lớp 8
• 20 điểm
• tramyphan030808 - 22:11:24 15/03/2022

• Hỏi chi tiết
• Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!

TRẢ LỜI

• Ng0clduenfh
• Chưa có nhóm

• Trả lời

  431

• Điểm

  6658

• Cảm ơn

  264

program bt;

Var

       P, i:integer;

Begin

        P:=1; i:=1;

        while P<=200 do

       begin

             i:=i+2;

             P:=P*i;

       End;

       write(P);

       Readln;

End.

Hãy giúp mọi người biết câu trả lời này thế nào?

star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star

5

star star star star star

1 vote

• • tramyphan030808
  • Chưa có nhóm
  • Trả lời

    4

  • Điểm

    129

  • Cảm ơn

    2

  cho mình hỏi bài này viết ở lệnh for ... do đc k bạn

• • Ng0clduenfh
  • Chưa có nhóm
  • Trả lời

    431

  • Điểm

    6658

  • Cảm ơn

    264

  muốn dùng lệnh for..do thì ta phải có to em nha, với dạng đề này, ta chưa biết được chính xác giá trị cuối là bao nhiêu nên không áp dụng câu lệnh được nhé

• • tramyphan030808
  • Chưa có nhóm
  • Trả lời

    4

  • Điểm

    129

  • Cảm ơn

    2

  vâng ạ

• sdasada2
• Chưa có nhóm

• Trả lời

  10

• Điểm

  -133

• Cảm ơn

  3

• sdasada2
• 15/03/2022

program tim_so;

uses crt;

var s,n:byte;

begin

        clrscr;

        s:=0;   n:=0;

        while S<= 200 do

                begin

                        n:=n+1;

                        S:=S+n;

                end;

        write('S= ',s,' va n= ',n);

        readln;

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star

• • tramyphan030808
  • Chưa có nhóm
  • Trả lời

    4

  • Điểm

    129

  • Cảm ơn

    2

  cái này có viết đc ở câu lệnh for ... do k ạ ?