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

2 bài toán có dùng cấu trúc lặp:

-Xuất 20 số bắt đầu từ số 1

-Tính tổng 10 số bắt đầu từ số 1

Thuật toán

-Tính tổng 10 số bắt đầu từ số 1

+Bước 1: t←0; a←1; i←1;

+Bước 2: t←t+a; 

+Bước 3: a←a+1;

+Bước 4: i←i+1;

+Bước 5: Nếu i<=10 thì quay lại bước 2

+Bước 6: Xuất t

+Bước 7: Kết thúc

uses crt;

var i,n:longint;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

  s:=s+sqr(i);

writeln(s:0:0);

readln;

end.

uses crt;

var n,i:longint;

s:real;

{------------ham-tinh-giai-thua---------------------}

function gthua(x:longint):real;

var i:longint;

gt:real;

begin

gt:=1;

for i:=1 to x do

gt:=gt*i;

gthua:=gt;

end;

{------------chuong-trinh-chinh------------------}

begin

clrscr;

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

s:=0;

for i:=1 to n do 

  s:=s+gthua(i);

writeln(s:0:0);

readln;

end.

uses crt;

var n,i,t,x,y,d:integer;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln('Tong cac chu so cua ',n,' la: ',t);

readln;

end. 

mang tính chất test danh hiệu nhưng vẫn đúng nhá

uses crt;

var a:array[1..100]of integer;

i,n,j,dem,k:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

dem:=0;

for i:=1 to n-1 do

for j:=i+1 to n do 

  if a[i]+a[j]=k then inc(dem);

writeln(dem);

readln;

end.

uses crt;

var s:real;

a,n:integer;

begin

clrscr;

write('Nhap a='); readln(a);

n:=0;

s:=0;

while s<=a do 

  begin

n:=n+1;

s:=s+1/n;

end;

writeln(n);

readln;

end.

uses crt;

var i:integer;

begin

clrscr;

for i:=0 to 9999 do 

  if trunc(sqrt(i))=sqrt(i) then write(i:4);

readln;

end.

theo C++ hay là free pascal vậy anh?

Program HOC24;

var n,i: integer;

begin

write('Nhap so nguyen: '); readln(n);

for i:=1 to 10 do

writeln(n,' x ',i,' = ',n*i);

readln

end.

uses crt;

var n,i:integer;

begin

clrscr;

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

for i:=1 to 10 do

writeln(n,'*',i,'=',n*i);

readln;

end.

uses crt;

var i:integer;

begin

clrscr;

writeln('Bang cuu chuong 3 la: ');

for i:=1 to 10 do 

  writeln('3*',i,'=',3*i);

readln;

end.