Trang chủ Tin Học Lớp 8 1. Viết chương trình tính tổng S=1+2+3+..+n. Trong đó n...

1. Viết chương trình tính tổng S=1+2+3+..+n. Trong đó n là số nguyên nhập từ bàn phím. 2.Viết chương trình tính tổng 200 số nguyên đầu tiên. 3.Viết chương trìn

Câu hỏi :

1. Viết chương trình tính tổng S=1+2+3+..+n. Trong đó n là số nguyên nhập từ bàn phím. 2.Viết chương trình tính tổng 200 số nguyên đầu tiên. 3.Viết chương trình tính tích 30 số nguyên đầu tiên. 4.Viết chương trình tính n! 5.Viết chương trình tính x

Lời giải 1 :

1.

program ct;

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do s:=s+i;

writeln('tong la:',s);

readln

end.

2.

program ct;

uses crt;

var t,n,i:integer;

begin

clrscr;

t:=0;

for i:=1 to 200 do t:=t+i;

writeln('tong cua 200 so nguyen dau tien la:',t);

readln

end.

3.

program ct;

uses crt;

var tich,n,i:integer;

begin

clrscr;

tich:=1;

for i:=1 to 30 do tich:=tich*i;

writeln('tich cua 30 so nguyen dau tien la:',tich);

readln

end.

4.

program ct;

uses crt;

var i,n,a:integer;

begin

clrscr;

a:=1;

for i:=1 to a do a:=a*i;

writeln('n:=',a);

readln

end.

5. Thiếu dữ kiện

Thảo luận

-- vậy thì mình làm tới câu 4 thôi
-- mà cho mình hỏi bạn học lớp mấy vậy
-- 8.
-- mình cx ko bik nx á bạn tại thầy đưa đề vậy í
-- X^n mà bạn
-- x mũ n nha
-- Giải jup câu 5 ik ạ x mũ n á
-- câu 1 có đúng ko

Lời giải 2 :

1)

program ct;

uses crt;

var i,n:integer;

      S:longint;

begin clrscr;

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

     S:=0;

   for i:=1 to n do

     S:=S+i;

   writeln('Tong S la: ',S);

readln;

end.

2)

program ct;

uses crt;

var i,n:integer;

      S:longint;

begin clrscr;

     S:=0;

   for i:=1 to 200 do

     S:=S+i;

   writeln('Tong 200 so nguyen dau tien la: ',S);

readln;

end.

3)

program ct;

uses crt;

var i,n:integer;

      T:longint;

begin clrscr;

     T:=1;

   for i:=1 to 30 do

     T:=T*i;

   writeln('Tich 30 so tu nhien dau tien la: ',S);

readln;

end.

4)

program ct;

uses crt;

var i,n:integer;

      gt:longint;

begin clrscr;

     gt:=1;

   for i:=1 to n do

     gt:=gt*i;

   writeln('n!= ',gt);

readln;

end.

Học tốt!

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 8

Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK