ESTRUCTURAS REPITITIVAS Hallarr el factor factoria iall de un número número N util utiliz izand ando o 1. Halla
la estruc estructur tura a para, para,
mientras y repetir Inicio Leer n i 1 fact 1 mientras (i<=n) hacer fact fact*i i i1 !n"mientras #scri$ir fact %in
Inicio Leer n i 1 fact 1 &epetir fact fact*i i i1 Hasta 'ue (in) !n"&epetir #scri$ir fact
%in Inicio Leer n fact ara ara (i hacer fact
1 1) hasta n fact*i
!n"ara #scri$ir fact %in
2. Imprimir los + primeras potencias de , es decir ele-ado a 1,
ele-ador a . con las tres estructuras/ Inicio Leer n i 1 0ien 0i entr tras as (i<=+ <=+)) hacer pot i #scri$ir pot i i1 %in " 0ientras %in
Inicio Leer n i 1 &epetir pot i #scri$ir pot i i1 Hasta 'ue (i+) !n"&epetir
%in Inicio Leer n ara (i
1) hasta +
pot
i
hacer
#scri$ir pot %in "ara " ara %in
3. 2alcular la suma de los n primeros primeros enteros con las tres tres estructuras/
Inicio Leer n i 3 0ientras hacer 3 i
1 + (i<=n) 31 i1
%in " 0ientras #scri$ir 3 %in Inicio Leer n i 3
1 +
&epetir 3 31 i i1 Hasta 'ue (in) %in " &epetir #scri$ir 3 %in Inicio
Leer n 3 ara ara (i hacer
+ 1) hasta n
3
31
%in
%in "ara #scri$ir 3
4. 4ise5ar un al6oritmo para imprimir la suma de los números impares
menores o i6uales 'ue n/ 7tilice las tres estructuras/ Inicio Leer n 3im + i 1 0ientras (i<=n) hacer 3i resto(i8.) 9+ entonces 3im 3im1 %in "3i i i1 %in " 0ientras #scri$ir 3im %in
Inicio Leer n 3im i &epetir 3i resto entonces
+ 1 (i8.)9+
3im1 %in" 3i i i1 Hasta 'ue (in) %in " &epetir #scri$ir 3im %in
3im
Inicio Leer n 3im + ara ara (i 1) hasta n hacer 3i resto (i8.)9+ entonces 3im 3im1 %in" 3i %in "ara #scri$ir 3im %in
5. 2alcular 2alcular el número número m:;imo de una serie de 1++ números/ números/ utilic utilice e as
tres estructuras/ Inicio Leer n ma; n i 1 0ien 0i entr tras as (i<= <=)) hacer i i1 leer num 3i (numma;) entonces ma; num %in "3i %in " 0ientras #scri$ir ma; %in
Inicio Leer n ma; n i 1 &epetir i i1 leer num 3i (numma;) entonces ma; num %in "3i Hasta 'ue (i) %in " &epeir #scri$ir ma;
%in Inicio Leer n ma; ara (i hacer
n 1) hasta
leer num 3i (numma;) entonces ma; num %in "3i %in " ara #scri$ir ma;
%in
6. &ealizar un al6oritmo 'ue escri$a los N primeros números de la serie
de %i$onacci %i$onacci 1,.,,,>,1,.1?, 7tilice las las tres estructuras/ 7. I
n i c i o 8. L e e r n 9. f i $ o 1 1 10.
!$o . . 11.
i
12.
#sc r i $ i r f i
$ o 1 , f i $ o . 13.
0ie n t r a s ( i < = n ) h a c e r 14.
!$o f i $
o 1 f i $ o . 15.
#sc r i $ i r f i $ o 16.
!$ o 1 f i $ o .
17.
!$o . f
i $ o 18.
i i 1
19.
%in " 0 i e n t r a s 20.
%in
27.
i
28.
#sc r i $ i r f i $ o 1 , f i $ o . 29.
21. 22. 23.
Inic i o 24.
Lee r n 25.
!$o 1 1 26.
!$o . .
&ep e t i r 30.
!$o f i $ o 1 f i $ o . 31.
#sc r i
$ i r f i $ o 32.
!$ o 1 f i $ o .
33.
!$o . f i $ o 34.
i i 1
35.
Has t a ' u e ( i n )
36.
%in " & e p e t i r 37.
%in
38. 39. 40. 41. 42.
Inicio Leer n 43.
!$o 1 1 44.
!$o . . 45.
#sc r i $ i r f i $ o
1 , f i $ o .
i $ o . 48.
#sc r i $ i r f i $ o
46.
ar a ( i ) h a s t a
49.
!$ o 1
n
f i $ o .
h a c e r
50.
!$ o .
47.
!$o f i $ o 1 f
51.
%in
52.
%in
ara
f i $ o "
53.
4eterminar la media de una lista inde!nida de números positi-os le@dos por teclado y estos son terminados con un número ne6ati-o o cero/ 7tilice las tres estructuras/
54.
55.
62.
Inic i o
3i
( n + ) e n t o n c e s
56.
su
m a 1
57.
A . 58.
i 1 59.
63.
A1
64.
sn
A
Lee r n
%in
s
60.
61.
#sc r i $ i r 0 e d i a 71.
+
( i < = A ) h a c e r
70.
72.
65.
m
0ie n t r a s
s 8 m
66.
i1
i
m m 1
Inic i o 74.
su
67.
%in " 3 i 68.
%in" 0 i e n t r a s 69.
0e
73.
d i a
m a 1
75.
A . 76.
i 1 77.
m + 78.
&ep e
t i r 79.
Lee r n 80.
3i
81.
A
82.
s
A1
sn
( n + ) e n t o n c e s
i1
i
87.
%in" & e p e t i r 88.
0e
d i a
su
94.
A . 95.
m + 96.
ar a ( i 1 ) h a s t a
s 8 m
m m 1
85.
%in " 3 i 86.
Has t a ' u e
#sc r i $ i r 0 e d i a 90.
%in
91. 92.
Inic i o
m a 1
89.
83.
84.
( i A )
93.
A h a c e r 97.
Lee r n 98.
3i
( n + )
99.
A1
100.
sn
A
e n t o n c e s
s
%in " 3 i
103.
%in" a r a
104. 101.
m m 1
s 8 m
102.
0e
d i a
105.
#sc r i $ i r 0 e d i a
106.
%in
107. 108. 2alcular los factoriales de n
le@do por teclado/ 7tilice las tres
estructuras/ 109.
Inic i o
110.
Lee r n
111.
i
1
112.
fact 1
113.
0ie n t r a s (
i < = n ) h a c e r 114.
fact f a c t * i
115.
#sc r i $
i r f a c t 116.
i i 1
117.
!n " 0 i e n t r a s
118.
1
119.
128.
%in
120.
Has t a
121.
' u e
Inic i o
Lee r n
( i n )
122.
i
1
123.
fact 1
124.
&ep e t i r
125.
fact f a c t * i
126.
#sc r i $ i r f a c t
127.
i i
129.
%in " & e p e t i r
130.
%in
131.
Inic i o
132.
) h a s t a n h a c e r 135.
fact f a c t * i
136.
#s c r i $ i r f a c t
Lee r n
137.
133.
138.
fact 1
134.
ar a
( i 1
%in " a r a
139.
%in
140. 141. 2alcular el factorial de los n números le@dos por teclado/ 7tilice las
tres estructuras/ 142.
Inic i o
143.
Lee r n
144.
i 1 145.
0ie n t r a s
( i < = n ) h a c e r 146.
Lee r n u m 147.
A 1
i e n t r a s
148.
fa c t 1
149. 150.
0ien t r a s ( A < = n u m ) e n t o n c e s 151.
fact f a c t * A
152.
A A 1
153.
%in" 0
154. 155.
#sc r i $ i r f a c t
156.
i i 1
157.
%in " 0 i e n t r a s
158.
%in
159.
160.
Inic i o
161.
Lee r n
162.
i 1 163.
&ep e t i r
164.
Lee r n u m 165.
A 1
166.
fa c t 1
167.
&ep e t i r
168.
fact f a c t * A
169.
A A 1
174.
Has t a
' u e
170.
has t a
( i n )
' u e ( A n u m ) 171.
%in" & e p e t i r
172.
#sc r i $ i r f a c t
173.
i i 1
175.
%in " & e p e t i r
176.
%in
177. 178.
Inic i o
179.
Lee r n
180. 181.
ar a
( i 1 )
h a s t a n h a c e r 182.
Lee r n u m 183.
fa c
t 1 184. 185. ara (A
num hacer
1) hasta 186.
fact f a c t * A
187. 188.
%in" a r a
189.
190.
#sc r i $ i r f a c t
191. 192.
%in " a r a
193.
%in
194. 195. 3e 'uiere
hallar el producto de -arios números positi-os introducidos por teclado, de manera 'ue el proceso termina cuando se introduce un número ne6ati-o/ 7tilice las tres estructuras/ 196.
198.
200.
197.
199.
201.
202.
204.
s ( n = + ) h a c
Inic i o
203.
Lee r n
ro d
1 205.
0ie n t r a
e r 206.
ro d p r o d * n
207.
Lee r n
208.
%in " 0 i e n t r a s
209.
#sc r i $ i r r o d
210.
%in
211. 212.
+ )
213.
Inic i o
214.
Lee r n
215.
ro d
1 216.
&ep e t i r
217.
ro d p r o d * n
218.
Lee r n
219.
Has t a
' u e ( n <
220.
%in " & e p e t i r
221.
#sc r i $ i r r o d
222.
%in
223. 224.
Inic i o
225.
Lee r n
226.
ro d
1 227.
ar a
n = +
* n
231.
#sc r i $ i r r o d
229.
Lee r n
228.
ro d
230.
%in " a r a
p r o d
232.
%in
233. 234. #scri$a un al6oritmo 'ue encuentre el primer di-isor entero de un
número, 'ue pre-iamente se ha introducido por teclado/ 7tilice las tres estructuras/ 235.
Inici
246.
Inici
236.
Leer
247.
Leer
237.
i
248.
i
249.
&ep
250.
i
o
n
.
238.
0ie
ntras (resto (n8i) 9+) hacer i 239. i1 240. %in "0ientra s #scr 241. i$ir i 242. %in 243. 244. 245. 255.
o
n
.
etir i1
Has ta 'ue (resto (n8i) = +) hacer 252. %in "0ientra s 253. #scr i$ir i 254. %in 251.
256. #scri$a un al6oritmo 'ue calcule el m:;imo de los números
positi-os introducidos por teclado/ 3a$iendo 'ue se introducen
números desde teclado hasta teclear uno ne6ati-o/ #l ne6ati-o no cuenta/ 257. Inicio Leer n 258. 0a; + 259. 260. 0ientras (n=+) hacer 261. 3i (n ma;) entonces 262. 0a; n 263. %in " si Leer n 264. %in " mientras 265. 266. #scri$ir ma; 267. %in 268. 269.
#scri$a un al6oritmo 'ue determine cu:les son los múltiplos de comprendidos entre 1 y N/
270.
271. 272. 273. 274. 275. 276. 277. 278. 279. 280.
Inicio Leer N i 1 0ientras (i<=N) hacer 3i resto(i8)=+ entonces #scri$ir i %in "3i i i1 %in "0ientras %in
281. #scri$a un al6oritmo 'ue encuentre al alumno de primer 6rado con
meAor nota media/ 3e sa$e 'ue este a5o entraron 1+ alumnos y 'ue en primero todos tienen asi6naturas/ 4ar el nom$re y la nota media/ 282. 283. 284. 285. 286. 287. 288. 289. 290. 291. 292. 293.
Inicio i 1 ma; + 0ientras (i<=1+) hacer Leer nom$re A 1 s + 0ientras (A<=) hacer Leer nota s snota A A1 %in "0ientras
294. 295. 296. 297. 298. 299. 300. 301. 302. 303. 304.
0edia s8 3i (mediama;) entonces 0a; media Blumdes nom$re %in "3i i i1 %in "0ientras #scri$ir ma; #scr$ir Blumdes %in
305. #scri$a un al6oritmo 'ue calcule la suma de los di-isores de cada
número introducido por teclado/ 3e termina cuando el número es ne6ati-o o +/ 306.
316. 317. 318. 319. 320. 321.
#scri$ir s Leer n %in "0ientras %in
307. 308. 309. 310. 311. 312. 313. 314. 315.
Inicio Leer n 0ientras (n+) hacer s + ara (i 1) hasta n hacer 3i (resto(n8i)=+ ) entonces s s1 %in "3i %in"ara
322. 323. 324. 325. 326. 327.
328. 16. Dado un capia! c" a un in#$%& i" du$an# ' a(o&" #&c$i)a un a!*o$i'o +u# ca!cu!# #n cuano &# ,a)$con#$ido #&# capia! #n ' a(o" &a)i#ndo +u# #& acu'u!aio. 329. C/#D 2,I,0 330. C/3D 2% 331. 332. INI2IE 333. 334. Leer 2,I,0 335. 2IF2 336. AF1 337. 0ientras (A<=0) hacerD 338. 339. 2%F2I2I*I 340. #scri$ir A, 2I, 2% 341. 2IF2% 342. AFA1 343. 344. %in"mientras
345. %IN 346.
17.
Dada !a &i*ui#n# /o$'u!a n
i − − 3) + n (( a b ) ∑
x =
i =1 n −1
∏ (2 + a * (i − 1)) i =2
347. 348. 349. 350. 351. 352. 353. R#a!ic# un a!*o$i'o +u# ca!cu!# #! a!o$ d# pidi#ndo a! u&ua$io !o& a!o$#& d# n" a" ). 354.
355. C/#D a, $, n 356. C/3D ; 357. 358. INI2IE 359. 360. Leer a, $, n 361. 362. sF+ 363. iF1 364. AF. 365. pF1 366. -FaG$ 367. 368. 0ientras (i<=n) 369. sF-iG 370. iFi1 371. 372. %in"mientras 373. 374. 0ientras (A
18. a #pon#ncia! &# pu#d# ap$oi'a$ '#dian# !a &#$i# x
e =1+x+ 385.
x2 2!
+
386.
x3 3! "
+...+
xn n!
Pa$a 0
387. 388. Pa$a un dado 389. 390. 391. 392. 393. 394. 395.
C/#D ;, N C/3D e INI2IE Leer ;,N 396. iF+ 397. fF1 398. eF+ 399. 400. 0ientras (i<=N) hacer 401. AF1 402. eF;i8f e 403. fF1 404. 405. 0ientras (A<=i) hacer 406. AFA1 407. fFf*A 408. %in"mientras 409. iFi1 410. %in"mientras
411. 412. #scri$ir e 413. %IN 414. x
Pa$a +u# &#a a! +u# 415. 416. 417. 418. 419. 420. 421. 422. 423.
C/#D ;, # C/3D e INI2IE Leer ;,# iF+ fF1
n
n!
# po$ ##'p!o # 10 4:
424. eF+ 425. 426. &epetir 427. AF1 428. 6F ;i8fe 429. eF6e 430. fF1 431. 0ientras (A<=i) 432. AFA1 433. fFf*A 434. %in"mientras 435. 436. iFi1 437. Hasta 'ue (6=#) 438. 439. #scri$ir e, 6 440. %IN 441.
E&c$i)i$ un a!*o$i'o& +u# ca!cu!# !a #pon#ncia! d# a &#*;n dic,a /<$'u!a" ui!i=ando n10 > !u#*o n20. 442. 443. 444. 445. 446. 447.
C/#D ;, C/3D e INI2IE Leer ; 448. iF+ 449. fF1 450. eF+ 451. 452. 0ientras (i<=1+) hacer 453. AF1 454. eF;i8fe 455. fF1 456. 457. 0ientras (A<=i) hacer 458. AFA1 459. fFf*A 460. %in"mientras 461. iFi1 462. %in"mientras
463. 464. #scri$ir e 465. %IN 466.
467.
468. INI2IE 469. 470. Leer ; 471. iF+ 472. fF1 473. eF+ 474. 475. 0ientras (i<=.+) hacer 476. AF1 477. eF;i8fe 478. fF1 479. 480. 0ientras (A<=i) hacer 481. AFA1 482. fFf*A 483. %in"mientras 484. iFi1 485. %in"mientras 486. 487. #scri$ir e 488. %IN 489. 490. 19. 20. Di&#(a$ un a!*o$i'o +u# d##$'in# !o& n;'#$o& p$i'o& #n$# do& n;'#$o& dado&. 491. 492. C/#D n1, n. 493. C/3D Lista de num/ 494. 495. INI2IE 496. Leer n1, n. 497. AFn11 498. 499. 0ientras (A
515. %in"si
516. %in"mientras
517. %in"mientras
%IN 518. 519. 21. o& #'p!#ado& d# una /-)$ica $a)aan #n do& u$no&" diu$no > nocu$no. S# d#&#a ca!cu!a$ #! o$na! dia$io d# acu#$do con !o& &i*ui#n#& puno& 520. a& a$i/a& d# !a& ,o$a& #& d# 50 nu#o& &o!#& a a$i/a d# !a& ,o$a& nocu$na& #& d# 80 nu#o& &o!#& Ca&o d# &#$ do'in*o !a a$i/a &# inc$#'#na #n un 100? ano #n #! u$no diu$no > nocu$no 521. 522. 523. 524. 525. 526. 527. 528.
529.
C/#D ht, turno C/3D s INI2IE Leer turno 3e6ún"sea turno hacer 2aso diurno 530. ara iF1 hasta hacer 531. 3e6ún"sea i hacerD 532. 2aso 1D 533. Leer ht 534. sFht*+ 535. #scri$ir JLunesK, ht, s 536. 2aso .D 537. Leer ht 538. sFht*+ 539. #scri$ir J0artesK, ht, s 540. 2aso D 541. Leer ht 542. sFht*+ 543. #scri$ir J0ircolesK, ht, s 544. 2aso D 545. Leer ht 546. sFht*+ 547. #scri$ir JMue-esK, ht, s 548. 2aso D 549. Leer ht 550. sFht*+ 551. #scri$ir JCiernesK, ht, s 552. 2aso D 553. Leer ht 554. sFht*+
#scri$ir J3:$adoK, ht, s 2aso D Leer ht sFht*1++ #scri$ir J4omin6oK, ht, s 560. %in"se6ún 561. %in"para 555. 556. 557. 558. 559.
562.
563.
564.
2aso nocturno 565. ara iF1 hasta hacer 566. 3e6ún"sea i hacerD 567. 2aso 1D 568. Leer ht 569. sFht*>+ 570. #scri$ir JLunesK, ht, s 571. 2aso .D 572. Leer ht 573. sFht*>+ 574. #scri$ir J0artesK, ht, s 575. 2aso D 576. Leer ht 577. sFht*>+ 578. #scri$ir J0ircolesK, ht, s 579. 2aso D 580. Leer ht 581. sFht*>+ 582. #scri$ir JMue-esK, ht, s 583. 2aso D 584. Leer ht 585. sFht*>+ 586. #scri$ir JCiernesK, ht, s 587. 2aso D 588. Leer ht 589. sFht*>+ 590. #scri$ir J3:$adoK, ht, s 591. 2aso D 592. Leer ht 593. sFht*1+ 594. #scri$ir J4omin6oK, ht, s 595. %in"se6ún 596. %in"para
597. %IN
598. 599. 600. 22. Di&#(a$ #! a!*o$i'o +u# dado una !i&a n;'#$o& !#@do& po$ #c!ado" indi+u# &i #& pa$ o #& i'pa$ # i'p$i'a #! oa! d# n;'#$o& !#@do&" ad#'-& #! oa! d# !o& pa$#& # i'pa$#&.
601. 602.
603. 604. 605. 606. 607. 608. 609. 610.
C/#D a,n C/3D mensaAe, p, im INI2IE Leer n iF1
611. &epetir 612. Leer a 613. &Fresto(a8.) 614. 615. 3i &=+, entonces 616. pFp1 617. #scri$ir JarK 618. 3ino 619. imFim1 620. #scri$ir JImparK 621. %in"si 622. Hasta 'ue in 623.
624. #scri$ir J#l Ootal de números esJ,n 625. #scri$ir J#l total de pares esK,p 626. #scri$ir J#l total de impares esK,im 627. 628. %IN 629. 23. Dado un n;'#$o " ca!cu!a$ !a &u'a 5 10 15 20 . . . 5B n 630. 631. C/#D N 632. C/3D s 633. 634. INI2IE 635. 636. Leer N 637. sF+ 638. ara iF1 hasta N hacer 639. sF*is 640. %in"para 641. #scri$ir s 642. %IN 24. Di&#(a$ #! a!*o$i'o +u# #ncu#n$# 'u#&$#: !o& n;'#$o& pa$#& +u# ,a> #n$# 100 > 1000.
643.
644. C/#D N 645. C/3D Numeros pares 646. 647. INI2IE 648. 649. ara iF1++ hasta 1+++ hacer 650. &Fresto(i8.) 651. 3i &=+, entonces 652. #scri$ir i 653. %in"si 654. %in"para 655. %IN 656. 25. Di&#(a$ #! a!*o$i'o +u# ca!cu!# !a &u'a d# !o& pa$#& +u# ,a> #n$# do& n;'#$o& dado&. 657. 658. C/#D a, $ 659. C/3D s 660. 661. INI2IE 662. 663. Leer a, $ 664. sF+ 665. iFa1 666. 0ientras i<$ hacer 667. &Fresto(i8.) 668. 3i &=+, entonces 669. sFsi 670. %in"si 671. iFi1 672. %in"para 673. %IN 674. 26. Ca!cu!a$ !o& pa*o& '#n&ua!#& d# una ,ipo#ca > #! oa! a pa*a$. E! p$o*$a'a d#)# &o!icia$ #! capia!" #! in#$%& anua! > #! n;'#$o d# a(o& > d#)# #&c$i)i$ !a cuoa a pa*a$ '#n&ua!'#n#. Pa$a ca!cu!a$ !a cuoa &# ui!i=a !a &i*ui#n# /<$'u!a S#a C #! capia! d#!
p$%&a'o" R !a a&a d# in#$%& '#n&ua! > #! n;'#$o d# pa*o&. a cuoa '#n&ua! i#n# dada po$ 675. 676. 677. 678. 679.
680. C/#D 2, IB, NB 681. C/3D 27, O 682. 683. INI2IE 684. Leer 2, IB, NB 685. 27. Ci/$ado d# dao& dado un n;'#$o d# cua$o d@*io& &# $##'p!a=a$- cada d@*io po$ d@*io 7: '
#! &#*undo po$ #! cua$o" > #&# &#$- #! n;'#$o ci/$ado. oa o)#n#$ #! coci#n# '#dian# di/#$#ncia& &uc#&ia&. 686. 687. C/#D n 688. C/3D m1, c1,d1,u1 689. 690. INI2IE 691. 692. Leer n 693.
694. oFn 695. mF+ 696. 697. 0ientras o=1+++ hacer 698. zFoG1+++ 699. oFz 700. mFm1 701. %in"mientras 702. 703. pFnGm*1+++ 704. cF+ 705. 706. 0ientras p=1++ hacer 707. yFpG1++ 708. pFy 709. cFc1 710. %in"mientras 711. 712. 'FnGm*1+++Gc*1++ 713. dF+ 714. 715. 0ientras '=1+ hacer
716. PF'G1+ 717. 'FP 718. dFd1 719. 720. 721. 722. 723. 724. 725. 726.
%in"mientras
uFnGm*1+++Gc*1++Gd*1+ m1F resto((m)81+) c1F resto((c)81+) d1F resto((d)81+) u1F resto((u)81+)
727. 728. #scri$ir m1,c1,d1,u1 729. %IN 730.
731. 732. 733. 28. D#&a$$o!!# #! a!*o$i'o d# !a )i&#cci
734. 735.
736. 737. 738. 739. 740. 741. 742. 743. 744. 745. 746. 747. S# d#)# in*$#&a$ !o& a!o$#& d# a" )" i#$aci un #$$o$ '@ni'o
748. Pa$a ca!cu!a$ #! #$$o$ $#!aio po$c#nua! > co'pa$a$ con #! #$$o$ '@ni'o" &# ca!cu!a con !a &i*ui#n# /o$'u!a.
erp =
xi +1 − xi xi +1
x100
749. 750. 751. 752. 753. 754. 755. 756. 757. 758. 759. 760. 761. 762. 763. 764.
C/#D a, $, f, e C/3D ; INI2IE Leer a, $, f, e faFsen(a)cos(1Ga.)G1Gf f$Fsen($)cos(1G$.)G1Gf 3i fa*f$<+, entonces 765. &epetir 766. 767. c1F($a)8. 768. fc1Fsen(c1)cos(1Gc1.)G1Gf 769. 3i f$*fc1<=+, entonces 770. aFc1 771. 3i no 772. $Fc1 773. %in"si 774. Hasta 'ue a$s(fc1
792. #scri$ir
(R#l -alor apro;imado de la funciSn respecti-amente esR,Q1,Q. 793.
794. 3i no 795. #scri$ir J#&&E&K 796. %in"si 797. %IN 798. 29. D#! a!*o$i'o d#! ##$cicio 20 $#'p!a=a$ #! pa&o 1 po$ !a &i*ui#n# /o$'u!a 799.
c=b−
f (b)( a − b) f ( a) − f (b)
800. 801. 802. 803. 804. 805. 806. 807. 808. 809. 810. 811. 812. 813. 814.
C/#D a, $, f, e C/3D ; INI2IE Leer a, $, f, e faFsen(a)cos(1Ga.)G1Gf f$Fsen($)cos(1G$.)G1Gf 3i fa*f$<+, entonces 815. &epetir 816. 817. c1F$Gf$*(aG$)8(faGf$) 818. 819. fc1Fsen(c1)cos(1Gc1.)G1Gf 820. 3i f$*fc1<=+, entonces 821. aFc1 822. 3i no 823. $Fc1 824. %in"si 825. 826. Hasta 'ue a$s(fc1
836. aFc.
837. %in"si 838.
839. 840. 841. 842. 843. 844. 845. 846.
Hasta 'ue a$s(fc.)
#scri$ir JLa ra@z apro;imada por e;ceso esK,c1 #scri$ir JLa ra@z apro;imada por defecto esK,c. #scri$ir (R#l -alor apro;imado de la funciSn respecti-amente esR,Q1,Q. 847. 848. 849. 850. 851. 852. 853. 854.
3i no #scri$ir J#&&E&K %in"si %IN
855. 30. D#&a$$o!!# #! a!*o$i'o d#! $ap#cio +u# con&i&# #n !a &i*ui#n# /o$'u!a. 856. n −1
f ( xa ) + 2∑ f ( xi ) + f ( xb ) I = (b − a)
i =1
2n
857. 858. 859. Dond# !o& a!o$#& d# a > ) #& #! in#$a!o d# !a in#*$a! d#nida > n #& #! n;'#$o d# &#*'#no&. Ui!i=a$ !a &i*ui#n# /unci
863. 864. 865. 866. 867. 868. 869. 870.
C/#D a, $, n C/3D I
INI2IE Leer a, $, n sF+ faF+/. .*a T .++*a . *a T ++*a ++*a f$F+/. .*$ T .++*$ . *$ T ++*$ ++*$
871.
872. ara i=1 hasta i
f;i F+/. .*;i T .++*;i . *;i T ++*;i ++*;i 875. sFf;is %in"para 876. 874.
877. 878. 879. 880. 881.
IF ($Ga)*(fa.*sf$)8(.*n) #scri$ir I %IN
31/ Elabore el algoritmo de integración 882. numérica de Simpson 1/3 que consiste de la siguiente formula n −1
f ( xa ) + 4 I = (b − a )
∑
n−2
f ( xi ) + 2
i =1,3,5
∑
f ( x j ) + f ( xb )
j = 2,4,6
3n
883. 884. 885. 88. 88!. 888. "onde los #alores de a $ b es el inter#alo de la integral definida $ n es el n%mero de segmentos pares. 88&. Sea f(x) = x^2+2x+1 8&'. INICIO 8&1. Lee a, !, n, 8&2. f(a) " a^2+2a+1 8&3. f(!) " !^2+2!+1 8&4. S# (es$o (n%2)=0) en$onces& 8&5. ' " (!a)%n 8&. S# " 0 8&!. Sa " 0 8&8. #"1 8&&. #en$as (#=n) 'ace &''. x " a+'*# &'1. f(x) " x^2+2x+1 &'2. S# (es$o (#%2)=0) en$onces& &'3. Sa " Sa+f(x) &'4. S#no &'5. S# " S#+f(x) &'. -#n.s# &'!. # " #+1 &'8. -#n.#en$as &'&. I " '*(f(a)+4*S#+2*Sa+f(!))%3 &1'. /sc#!# I &11. S#no &12. /sc#!# fea e ano &13. -#n.s# &14. -IN &15.
&1. 32. Elabore el algoritmo de integración numérica de Simpson 3/8 que consiste de la siguiente formula &1!. n −1
f ( xa ) + 3∑ f ( xi ) + f ( xb ) I = (b − a)
i =1
n
&18. &1&. "onde los #alores de a $ b es el inter#alo de la integral definida $ n es el n%mero de segmentos impares. &2'. Sea f(x) = x^2+2x+1 &21. INICIO &22. Lee a, !, n &23. f(a) " a^2+2a+1 &24. f(!) " !^2+2!+1 &25. S# (es$o (n%2) 60) en$onces& &2. ' " (!a)%n &2!. S"0 &28. #"1 &2&. #en$as (#=n) 'ace& &3'. x " a+'*# &31. f(x) " x^2+2x+1 &32. S " S+f(x) &33. # " #+1 &34. -#n.#en$as &35. I " '*(f(a)+3*S+f(!))%5 &3. /sc#!# I &3!. S#no &38. /sc#!# fea e ano &3&. -#n.s# &4'. -IN &41. &42. 33. "esarrollar un algoritmo para (pro)imar la siguiente función $ * seno+), &43. &44. &45. &4. INICIO &4!. Lee x, n &48. #"1 &4&. fac$ " 1 &5'. 7"0 &51. #en$as (#=n) 'ace& &52. o$ " (1)^#*x^(2*#+1) &53. fac$ " (2*#+1)*(2*#)*fac$ &54. 7 " 7+o$%fac$ &55. # "#+1 &5. -#n.#en$as &5!. 7 " x+7
&58. &5&. &'.
/sc#!# 7 -IN &1. 34. "esarrollar un algoritmo para (pro)imar la siguiente función $ * coseno+),
&2. &3. &4. &5. &. &!. &8. &&. &!'. &!1. &!2. &!3. &!4. &!5. &!. &!!. &!8. &!&. &8'.
INICIO Lee x, n #"1 fac$ " 1 7"0 #en$as (#=n) 'ace& o$ " (1)^#*x^(2*#) fac$ " (2*#)*(2*#1)*fac$ 7 " 7+o$%fac$ # "#+1 -#n.#en$as 7 " 1+7 /sc#!# 7 -IN &81. 35. "esarrollar un algoritmo para (pro)imar la siguiente función $ * e-)
&82. &83. &84. &85. &8. &8!. &88. &8&. &&'. &&1. &&2. &&3. &&4. &&5. &&. &&!. &&8. &&&.
INICIO Lee x, n #"1 fac$ " 1 7"0 #en$as (#=n) 'ace& o$ " x^# fac$ " #*fac$ 7 " 7+o$%fac$ # "#+1 -#n.#en$as 7 " 1+7 /sc#!# 7 -IN 1'''. 35. "esarrollar un algoritmo para (pro)imar la siguiente función $ * ln+1), 1''1. 1''2. 1''3. 1''4.
INICIO Lee x, n #"1 n " 0 7"0 S# (x61) 7 (x=1) en$onces& #en$as (#=n) 'ace& o$ " (1)^(#1)*x^(#) n " n + 1 7 " 7+o$%n # "#+1 -#n.#en$as 1'1!. /sc#!# 7 1'18. S#no 1'1&. /sc#!# fea e ano 1'2'. -#n.s# 1'21. -IN 1'22. 1'23. 1'24. 1'25. 3. "ado n' 0allar la suma n 1 s = ∑ k =1 k 1'2. 1'2!. INICIO 1'28. Lee n 1'2&. S# (n60) en$onces& 1'3'. #"1 1'31. S"0 1'32. #en$as (#=n) 'ace 1'33. S " S + 1%# 1'34. # " #+1 1'35. -#n.#en$as 1'3. /sc#!# S 1'3!. S#no 1'38. /sc#!# fea e ano 1'3&. -#n.s# 1'4'. -IN 1''5. 1''. 1''!. 1''8. 1''&. 1'1'. 1'11. 1'12. 1'13. 1'14. 1'15. 1'1.
n
s = ∑ k =1
1 ak
1'41. 3!. Se desea calcular la suma siendo los #alores a los elementos de la sucesión dada por a * a1 a2 para 2 con a 1*1 $ a2*1. El limite n 0a de leerse del teclado $ se supone ma$or que dos. 1'42. 1'43. 1'44. 1'45. 1'4. 1'4!.
INICIO Lee n S# (n62) en$onces& a1 " 1 a2 " 1 S"0
1'48. 1'4&. 1'5'. 1'51. 1'52. 1'53. 1'54. 1'55. 1'5. 1'5!. 1'58. 1'5&.
#"3 #en$as (#=n) 'ace& a3 " a1+a2 S " S+1%a3 a1 " a2 a2 " a3 # " #+1 -#n.#en$as /sc#!# S -#n.s# -IN n
s = ∑ k =1
1 k m
1''. 38. Se desea calcular la suma siendo m $ n dos n%meros enteros positi#os que se suponen dados. 1'1. 1'2. 1'3. 1'4. 1'5. 1'. 1'!. 1'8. 1'&. 1'!'. 1'!1. 1'!2. 1'!3.
INICIO Lee , n S# (60) 7 (n60) en$onces& #"1 S"0 #en$as (#=n) 'ace S = S+1%(#^) # " #+1 -#n.#en$as /sc#!# S -#n.s# -IN 1'!4.
3&. Escriba los n primeros términos de la 1 an = (1 + ) n n sucesión dada por siendo n un numero entero positi#o dado.
1'!5. 1'!. 1'!!. 1'!8. 1'!&. 1'8'. 1'81. 1'82. 1'83.
INICIO Lee n S# (n60) en$onces& #"1 #en$as (#=n) 'ace& n " (1+1%#)^# /sc#!# n # " #+1 -#n.#en$as 1'84. -#n.s# 1'85. -IN
1'8. 1'8!. 4'. Escribir un programa que encuentre el logaritmo en cualquier base de un numero positi#o ). la base $ el n%mero lo ingresara el usuario $ el
programa debe continuar 0asta que se ingrese un #alor '
8o10 ( x) =
8oa ( x) 8oa (b)
1'88. 1'8&. 1'&'. 1'&1. 1'&2. 1'&3. 1'&4. 1'&5. 1'&. 1'&!. 1'&8. 1'&&. 11''.
INICIO #"1 9ee$# Lee x, ! S# (x60) 7 (!60) 7 (!61) /n$onces S " 8n(x)%8n(!) /sc#!# S # " #+1 -#n S# :as$a ;e (x=0) o (!=0) -IN 11'1. 41. "ado un numero entero ) ma$or que uno se 0a de escribir un uno si es primo $ un cero en caso contrario. ara ello 0a de comprobar si ) es di#isible por alg%n entero en el inter#alo +1 ),.
11'2. 11'3. 11'4. 11'5. 11'. 11'!. 11'8. 11'&. 111'. 1111. 1112. 1113. 1114. 1115. 111. 111!. 1118. 111&. 112'. 1121. 1122.
INICIO Lee x S# (x61) en$onces& #" 1 s" 0 #en$as (# = x) 'ace S# (es$o(x%#)=0) en$onces s" s + # -#n s# #" #+1 -#n #en$as " s ;" x+1 S# (=;) en$onces /sc#!# 1 S#no /sc#!# 0 -#n.s# -#n s# -IN 1123. 42. "ado un numero entero ma$or que uno se 0a de escribir la lista de sus di#isores comprendidos en el inter#alo +1 ),.
1124. 1125. 112.
INICIO Lee x S# (x61) en$onces
112!. 1128. 112&. 113'. 1131. 1132. 1133. 1134. 1135. 113.
#" 1 #en$as (# = x) 'ace S# (es$o(x%#)=0) en$onces /sc#!# # -#n s# #" #+1 -#n #en$as -#n s# -IN 113!. 43. "ado dos n%meros enteros positi#os p $ q escriba un algoritmo que permita 0allar el m)imo com%n di#isor de los mismos
1138. 113&. 114'. 1141. 1142. 1143. 1144. 1145. 114. 114!. 1148. 114&. 115'. 1151.
INICIO Lee a, ! " # -#n s# -#n aa -#n aa /sc#!# C> -IN 1152. 44. 6alcule e imprima los n%meros primos entre 1 $ 1''
1153. 1154. 1155. 115. 115!. 1158. 115&. 11'. 111. 112. 113. 114. 115. 11. 11!. 118. 11&. 11!'.
n"1 S"0
1171.
0ostrar los N primeros trminos de la si6uiente serie, donde N de$e estar entre y +
46.
1172. , , 1+, 1, 1 1173. Va$ia)!#& d# #n$ada N 1174. Va$ia)!#& d# &a!ida #scri$ir 1175. 1176. 1177. 1178. 1179. 1180. 1181. 1182. 1183. 1184. 1185. 1186. 1187.
Inicio Leer N 3i (N=) y (N<=+) entonces i 1 t 0ientras (i<=N) hacer t t1 #scri$ir t i i1 %in"mientras 3ino
#scri$ir JerrorK 1188. 1189.
%in"si %in
1190.
0ostrar los N primeros trminos de la si6uiente serie, indicando adem:s la suma de los mismos/ , , 1., 1, .1 1191.
47.
1192. 1193. Va$ia)!#& d# #n$ada N 1194. Va$ia)!#& d# &a!ida #scri$ir 1195. 1196. Inicio 1197. Leer N 1198. s 1199. i 1 1200. t 1201. repetir 1202. t t1 1203. s st 1204. #scri$ir t,s 1205. i i1 1206. Hasta 'ue (iN) 1207.
1208.
%in
4eterminar la cantidad de trminos 'ue son múltiplos de en los .++ primeros trminos de la si6uiente serie , >, 1+, 1., 1 1209.
48.
1210. 1211. Va$ia)!#& d# #n$ada N
1212. Va$ia)!#& d# &a!ida #scri$ir 1213. 1214. 1215. 1216. 1217. 1218. 1219. 1220. 1221. 1222. 1223. 1224. 1225. 1226. 1227. 1228. 1229. 1230. 1231. 1232. 1233. 1234.
Inicio Leer N 3i (N<=.++) entonces i 1 m 1 t 0ientras (i<=N) hacer t t. #scri$ir t i i1 si (t mod = +) entonces m m1 #scri$ir m 3ino #scri$ir Jno múltiploK %in"si %in"mientras 3ino #scri$ir error %in"si %in
1235. 1236. 1237.
2ontar y sumar los números enteros positi-os le@dos por teclado/ 3e termina cuando se in6resa un número ne6ati-o/
49.
1238. 1239. 1240. Va$ia)!#& d# #n$ada N, num 1241. Va$ia)!#& d# &a!ida #scri$ir 1242. 1243. 1244. 1245. 1246. 1247. 1248. 1249. 1250. 1251. 1252. 1253. 1254. 1255.
Inicio Leer N i + t + 3i (N=+) entonces 0ientras (N=+) hacer s sn t ti leer num n num
1256. 1257. 1258. 1259. 1260.
t
t1 %in"mientras #scri$ir s,t 3ino #scri$ir
JerrorK 1261. 1262.
%in"si %in
1263.
1264.
50.
3ume los números del 1 al .++ menos los múltiplos de / 1265. 1266. 1267. Va$ia)!#& d# &a!ida #scri$ir 1268. 1269. 1270. 1271. 1272. 1273. 1274. 1275. 1276. 1277. 1278.
Inicio s
+ ara i 1 hasta .++ hacer t i mod 3i ( t<+ ) entonces s s1 %in"si %in"para #scri$ir s %in
1279. 1280.
2alcule la suma y el producto de los números impares comprendidos entre 11 y 111/ &esol-er con tres estructuras distintas/
51.
1281. 1282. Va$ia)!#& d# &a!ida #scri$ir 1283. 1284. 1285. 1286. 1287. 1288. 1289. 1290. 1291. 1292. 1293.
1294. 1295. 1296. 1297.
Inicio s
+ p 1 ara (i 11 hasta 111) hacer t i mod . 3i ( t<+ ) entonces s si p p*i %in"si %in"para #scri$ir s,p %in
Inicio s p
+ 1
i
11
1298. 1299. 1300. 1301. 1302. 1303. 1304. 1305.
0ientras (i<=111) hacer t i mod . 3i ( t<+ ) entonces s si p p*i %in"si i i1
%in"mientras 1306. 1307. 1308. 1309. 1310. 1311. 1312. 1313. 1314. 1315. 1316. 1317. 1318.
#scri$ir s,p %in
Inicio s i
+ p 1 11 $ 1 0ientras ($=1) t i mod . 3i ( t<+ ) entonces s si p p*i %in"si i
i1 si
1319.
(i=11.) $
1320.
. 1321.
!n"si 1322.
%in"mientras #scri$ir s,p %in
1323. 1324.
2alcule el 024 (0:;imo 2omún 4i-isor) de dos números B y U de acuerdo con el al6oritmo de #uclides/
52.
1325. 1326. Va$ia)!#& d# #n$ada , V, & 1327. Va$ia)!#& d# &a!ida #scri$ir 1328. 1329. 1330. 1331. 1332. 1333. 1334. 1335. 1336.
Inicio Leer , V, & & +
3i (=V) entonces #scri$ir 3ino 0ientras (&=+) hacer 3i ( V ) entonces
1337. 1338. 1339. 1340. 1341. 1342.
3ino V p
(GV) (VG) p*i %in"si si
(=V) &
1343.
1 1344.
#scri$ir 1345.
!n"si 1346.
%in"mientras 1347.
%in"si %in
1348.
1349. 1350. 1351.
Imprima las ta$las de multiplicar desde hasta V, siendo y V dos -alores in6resados por el teclado, tal 'ue <=+ cada ta$la de$e tener el multiplicador desde 1 hasta 1./
53.
1352. 1353. 1354. Va$ia)!#& d# #n$ada B, U 1355. Va$ia)!#& d# &a!ida O 1356. 1357. 1358. 1359. 1360. 1361. 1362. 1363. 1364.
Inicio Leer B,U 3i (B<=+)
entonces 3i (U=B) entonces ara i B hasta U hacer
1365. 1366. 1367.
ara A
1 hasta 1. hacer
1368.
O
i*A
1369.
#scri$ir O 1370.
%in"para
1371.
%in"para 1372. 1373. JerrorK 1374. 1375. 1376. JerrorK 1377.
3ino #scri$ir %in"si 3ino #scri$ir %in"si %in
1378.
1379.
Imprima los números de %i$onacci menores 'ue 1++/ Los números de %i$onacci se calcula como la suma de los . anterioresD +, 1, 1, ., , , >, 1,?
54.
1380.
1381. Va$ia)!#& d# #n$ada , V 1382. Va$ia)!#& d# &a!ida #scri$ir 1383. 1384.
Inicio ara i
1
hasta 1++ hacer 3i (i=1)
1385.
entonces 1386. 1387. 1388. 1389. 1390. 1391. 1392.
%1 + #scri$ir %1 sino
3i (i=.) entonces %. 1 #scri$ir %.
3ino %
1393.
%1 %. %1
1394.
f. %.
1395.
f 1396.
#scri$ir f 1397. 1398. 1399. 1400.
%in"si %in"si %in"para %in
Imprima los + primeros números múltiplos de anteriores al ++ y la suma total de estos + primeros números/
55.
1401. 1402. Va$ia)!#& d# &a!ida s
1403. 1404. 1405. 1406. 1407. 1408. 1409. 1410. 1411. 1412. 1413. 1414. 1415.
Inicio s
+ ara (i + hasta ++) hacer t i mod 3i ( t<+ ) entonces s si p p*i %in"si %in"para #scri$ir s %in
1416.
2alcule e imprima el número de trminos necesarios para 'ue el -alor de la si6uiente/ 3umatoria se apro;ime lo m:s cercanamente a 1+++ sin 'ue lo e;ceda/
56.
@
∑ 1417.
2
k + 1
k =1
k
1418. 1419. 1420. Va$ia)!#& d# #n$ada p 1421. Va$ia)!#& d# &a!ida s 1422. 1423. 1424. 1425. 1426. 1427. 1428. 1429. 1430. 1431. 1432.
Inicio s p
+ i 1 1 0ientras (p=1) hacer t (i.1)8i s s1 i i1 3i ( t1++ ) entonces p + %in"si
%in"mientras 1433. 1434.
#scri$ir s %in
1435. 1436. 1437.
2alcule el número m:;imo de trminos de la serie de %i$onacci cuya suma no e;ceda de 1++++/ In6rese por teclado dos números como inicio de la serie/
57.
1438. 1439. 1440. Va$ia)!#& d# #n$ada %1, %.
1441. Va$ia)!#& d# &a!ida O 1442. 1443. 1444. 1445. 1446. 1447. 1448. 1449.
Inicio Leer %1, %. U 1 3 %1%. O . 0ientras (U=1)
hacer %
1450.
%1%. 3
1451.
3 % 3i
1452.
(3<=1++++) %1
1453.
f. %.
1454.
f O
1455.
O1 1456.
#scri$ir
3ino U
%in"si #scri$ir
f 1457. 1458.
+ 1459. 1460.
O 1461. 1462.
%in"mientras %in
1463. 1464. 1465.
58.
2alcule e imprima los números primos entre 1 y 1++ 1466. 1467. 1468. Va$ia)!#& d# &a!ida #scri$ir 1469. 1470. 1471. 1472. 1473. 1474. 1475.
1476.
Inicio s + ara (i 1 hasta 1++) hacer ara (A 1 hasta 1++) hacer t i mod 3i ( t<+ ) entonces s si %in"si %in"para 3i ( s=.) entonces
1477. 1478. 1479. 1480. 1481. 1482. 1483. 1484. 1485. 1486. 1487.
#scri$ir i 1488.
%in"si
3
1489. 1490. 1491.
%in
+
%in"para
1492. 1493.
ermita in6resar el nom$re del $ien, la cantidad a depreciar y el número de a5os de depreciaciSn, la salida de$e mostrar cada a5o y su depreciaciSn/ 4e acuerdo con el mtodo de la suma de los d@6itos empleado en el an:lisis !nanciero para calcular la depreciaciSn/ or eAemplo supon6a 'ue un automS-il de W.++++ ser: depreciado durante un periodo de a5os, la suma de los d@6itos del a5oD 1.=1/ 4e acuerdo con el mtodo el primer a5o el $ien se deprecia 81, el se6undo 81 y as@ sucesi-amente/
59.
1494. 1495. 1496. Va$ia)!#& d# #n$ada N, 2, B 1497. Va$ia)!#& d# &a!ida A,t 1498.
Inicio Leer N, 2, B s + A + ara (i 1 hasta B) hacer s si %in"para ara (i B hasta 1) hacer 1506. t (i8s)*2 1507. A A1
1499. 1500. 1501. 1502. 1503. 1504. 1505.
1508.
#scri$ir
A,t 1509. 1510.
%in
%in"para
1511. 1512. y = − 2 x 2 + 1
La es'uina de un rect:n6ulo de$e estar so$re la cur-a ela$ore el al6oritmo 'ue determine las coordenadas de la es'uina del mayor rect:n6ulo posi$le (imprima las coordenadas (;, y) y el :rea m:;ima)/
60.
1513. 1514. 1515.
1516. Va$ia)!#& d# &a!ida ;,y, 0 1517. 1518. 1519. 1520. 1521. 1522. 1523. 1524. 1525. 1526. 1527. 1528. 1529. 1530.
Inicio y G.*(G) .1> B G*y 0 B i G., 0ientras (i <= ) hacer y (G.)*(i.)1> B i*y 3i ( B<+ ) entonces B Bi %in"si 3i
( B=0) entonces 0
1531.
B X1
1532.
i Y1
1533.
y 1534.
%in"si
i
1535.
%in"mientras #scri$ir 0,
1536. 1537.
;,y
1538. 1539. 154'.
1541.
i+,
%in
1542. 1543. 61: Di&#(# un a!*o$i'o +u# p#$'ia d#&cu)$i$ &i do& #n#$o& po&iio& po&iio& &on p$i'o& #n$# &@" #& d#ci$ &i &u '-i'o co';n dii&o$ #& uno. 1544.
1545. C# = B,U 1546. C3 = 0ensaAe 1547. 1548. 1549. 1550. 1551.
3#74E2Z4I[E IICIF
LeerD B,U 3iD (B
0ientras (U9+), hacerD &Fresto (B8U)
BFU 1557. UF& 1558. %IN"0I#NO&B3 1559. 3inoD
0ientras (U9+), hacerD &Fresto (B8U)
1560. 1561. 1562.
1563. 1564. 1565. 1566. 1567. 1568. 1569. 1570. 1571. 1572. 1573. 1574. 1575. 1576. 1577. 1578. 1579. 1580. 1581. 1582. 1583. 1584.
BFU UF&
%IN"0I#NO&B3 %IN"3I 3iD (B=1) , entonces #scri$irDK3i son #3IK 3inoD #scri$irD JNo son #3IK %IN"3I I
1585.
1586. 62: P#$'ia in*$#&a$ !a& coo coo$d $d# #nad ada& a& " " >: d# un pu pun no o > #! $adio R" d# un ci$cu!o con c#n$o #n #! o$i*#n. u#*o d# #a!ua$ &# d#)# d#ci$ &i #! puno #&a /u#$a" d#n$o o &o)$# #! ci$cu!o. 1587. C# = X, Y, & 1588. C3 = 0ensaAe 1589. 1590. 1591. 1592. 1593.
3#74E2Z4I[E
1601.
I
IICIF
LeerD X, Y, & 3iD (X (.) Y (.) =& (.)), entonces #scri$irD J#l punto esta so$re so$re el circuloK 1594. 3inoD 1595. 3iD (X (.) Y (.) \ & (.)), entonces 1596. #scri$irD J#l punto esta fuera del circuloK 1597. 3inoD 1598. #scri$irD J#l punto esta dentro del circuloK 1599. %IN"3I 1600. %IN"3I 1602. 1603. 1604. 1605. 1606. 1607. 63: Dada una ,oa d# ca$ !a$ !a$*o : :. &i &# $#co $#co$ $an an cuad$a cua d$ado& do& d# d# !a& #&+u #&+uina ina&" &" !a po$ci po$ci
3#74E2Z4I[E IICIF
LeerD ;, y, z
1613. 1614. 1615. 1616. 1617. 1618. 1619. 1620. 1621. 1622.
3iD (;1++) y (y1++), entonces #scri$irD JerrorK 3inoD 3iD ((;.) (y.)= (z.)), entonces #scri$irD J1K 3inoD #scri$irD J+K %ING3I %ING3I I
1623. 1624. 1625. 1626. 1627. 1628. 1629. 1630. 1631. 1632. 1633. 1634. 1635. 1636. 1637. 1638. 1639. 1640 1640.. 64: 64: P#$'i P#$'ia a in*$#& in*$#&a$ a$ cua$ cua$o o a!o$ a!o$#& #& $#a!#& $#a!#&"" !o& p$i'#$ p$i'#$o& o& $#& $#& &on !on*i !on*iud" ud" anc, an c,o o > a!u a!u$a $a #n #n c#n c#n@'# @'#$ $o& o&:: d# un p$i&'a $#can*u!a$. E! cua$o a!o$ $#a! #& #! p#&o #n *$a'o&: d#! p$ p$ii&'a. E&c$ E&c$i) i)a a un p$ p$o* o*$a $a'a 'a pa pa$a $a ca ca!c !cu! u!a$ a$ # i'p$i'i$ !a d#n&idad d# #&# o)#o.
1641. 1642. C# = a, $, c, d, e 1643. C3 = 0ensaAe 1644. 1645. 1646. 1647. 1648. 1649. 1650. 1651. 1652. 1653. 1654. 1655. 1656. 1657.
3#74E2Z4I[E IICIF
LeerD a, $, c, d, e 3iD (a$) y (ac) y (ad) y (ae), entonces #scri$irD J#l 0ayor es aK, a 3inoD 3iD ($c) y ($d) y ($e), entonces #scri$irD J#l 0ayor es $K, 3inoD 3iD (cd) y (ce), entonces #scri$irD J#l 0ayor es cK, c 3inoD 3iD (de), entonces #scri$irD J#l 0ayor es dK,
d 1658. 1659.
3inoD #scri$irD J#l 0ayor es eK,
e 1660. 1661. 1662. 1663. 1664. 1665.
%ING3I %ING3I %ING3I %ING3I I
1666. 65: D#&a$$o!!a$ #! a!*o$i'o d# $un*# Gua 4o o$d#n pa$a da$ una &o!uci
2 ca!cu!ando !o& H 1670. 1671. 1672. 1673. 1674.
1675. 3 ca!cu!ando #! a!o$ d# !a i#$aci co'p-$#!o con #$$o$ $#!aio po$c#nua!. 1680. C# = p,' 1681. C3 = 0ensaAe 1682. 1683. 1684. 1685. 1686. 1687. 1688. 1689. 1690. 1691. 1692. 1693. 1694. 1695. 1696. 1697.
3#74E2Z4I[E IICIF
LeerD p,' 3iD p<', entonces #scri$irD JerrorK 3inoD 3iD (p mod ') =+, entonces #scri$irD J1K 3inoD #scri$irD J+K %ING3I %ING3I I
1698. 66: E&c$i)i$ un a!*o$i'o +u# p#$'ia in*$#&a$ un #n#$o n > +u# i'p$i'a &i &# $aa o no d# un n;'#$o capic;a 1699. C# = N,,V,i 1700. C3 = 0ensaAe 1701. 1702. 1703. 1704. 1705. 1706. 1707. 1708. 1709. 1710. 1711. 1712. 1713. 1714.
3#74E2Z4I[E IICIF
LeerD N 0ientras (i
1715.
I
1716. 1717. 1718. 1719. 1720. 1721. 1722. 1723. 1724. 67: E&c$i)a un a!*o$i'o +u# !#a un n;'#$o #n#$o po$ #c!ado > #&c$i)a !a a)!a d# 'u!ip!ica$ d# #&# n;'#$o 1725. C# = N 1726. C3 = 0ensaAe 1727. 1728. 1729. 1730. 1731. 1732. 1733. 1734. 1735. 1736. 1737.
3#74E2Z4I[E IICIF
LeerD N i=+ 0ientras (i<=1+), hacerD 0=i*N #scri$irD N, J;K , i , J = K, 0 i=i1 %IN"0I#NO&B3 I
1738. 68)
Ca!cu!a$
&i*ui#n#& &#$i#& 1739. 1740. 1741. 1742. 1743. 1744. 1745.
!a
&u'a
d#
!a&
1746. Dond#
n
#&
un
n;'#$o
#n#$o
in$oducido po$ #c!ado. 1747. 1748. 1749. 1750. 1751. 1752. 1753. 1754. 1755. 1756. 1757. 1758. 1759. 1760. 1761. 1762. 1763.
C# = N C3 = B, U 3#74E2Z4I[E IICIF
LeerD N i F1 BF+ U F+ 0ientras ( i <= N) , hacer D otencia F.( i ) B F B(18 i ) U F U ( i 8otencia) iFi1 %in"0ientras #scri$irD B, U %IN
1764. 1765. 1766. 1767. 1768. 1769. 1770.
1771. 69: R#a!ic# un a!*o$i'o +u# ca!cu!# > i&ua!ic# #! '-& *$ad#" #! '-& p#+u#(o > !a '#dia d# n n;'#$o& n0:. E! a!o$ d# n &# &o!icia$- a! p$incipio d#! p$o*$a'a > !o& n;'#$o& &#$-n in$oducido& po$ #! u&ua$io. 1772. 1773. C# = N, num 1774. C3 = 0a;, 0in, 0e 1775. 1776. 1777.
3#74E2Z4I[E
1779. 1780. 1781. 1782.
0in F num i F. 3 F num 0ientras ( i <=N), hacerD LeerD num
IICIF
LeerD N, num 1778. 0a; F num
1783.
3iD (0a;<= num), entonces 0a; F num 3inoD 3iD (num<= 0in) , entonces 0in F num %IN"3I %IN"3I 1791. 3 F 3 num 1784. 1785. 1786. 1787. 1788. 1789. 1790.
1792. %in" 0ientras 1793. 0e F 38. 1794. 1795. 1796. 1797. 1798. 1799. 1800. 1801. 1802. 1803. 1804. 1805. 1806. 1807. 1808. 1809. 1810. 1811. 1812. 1813. 1814. 1815.
#scri$irD 0a;, 0in, 0e I
1816. 70: R#a!ic# un p$o*$a'a +u# d##$'in# &i un n;'#$o !#@do d#! #c!ado #& p$i'o o no 1817. 1818. C# = N 1819. C3 = 0ensaAe 1820. 1821. 1822.
3#74E2Z4I[E IICIF
LeerD N 1823. i F 1 1824. F + 1825. 0ientras ( i<= N), hacerD 1826. &F resto (N8 i) 1827. 3iD &=+, entonces
1828. 1829. 1830. 1831. 1832. 1833. 1834. 1835.
F1 %in"3i iFi 1 %in" 0ientras 3iD =., entoncesD #scri$irD N, Jes primoK 3inoD #scri$irD N, Jno es primoK
1836. 1837.
%IN"3I I
1838. 1839. 1840. 1841. 1842. 1843. 1844. 1845. 1846. 1847. 1848. 1849. 1850. 1851. 1852. 1853. 71: Un n;'#$o p#$/#co #& un #n#$o po&iio" +u# #& i*ua! a !a &u'a d# odo& !o& #n#$o& po&iio& #c!uido %! 'i&'o: +u# &on dii&o$#& d#! n;'#$o. E! p$i'#$ n;'#$o p#$/#co #& 6" >a +u# !o& dii&o$#& d# 6 &on 1" 2" 3 > 1 2 3 6. E&c$i)a un p$o*$a'a +u# !#a un n;'#$o #n#$o po&iio n > 'u#&$# po$ pana!!a &i #&# n;'#$o #& o no p#$/#co.
1854. C# = N 1855. C3 = 0ensaAe 1856. 1857. 1858. 1859. 1860. 1861. 1862. 1863. 1864. 1865. 1866. 1867. 1868. 1869. 1870. 1871.
3#74E2Z4I[E IICIF
LeerD N 0ientras ( i<=N), hacer &F resto ( N8i) 3iD (&=+), entonces F1 %IN"3I iFi1 %in" 0ientras 3iD (=.), entonces #scri$irD N,K#s erfectoK 3inoD #scri$irD N, KNo es erfectoK %ING3I I
1872. 1873. 1874. 1875. 1876. 1877. 1878. 1879. 1880. 1881. 1882. 1883. 1884. 1885. 1886. 1887. 72: R#a!i=a$ un p$o*$a'a +u# &i'u!# un u#*o d# adiina$ un n;'#$o.
E! p$o*$a'a p#di$- a! u&ua$io do& n;'#$o& +u# $#p$#&#nan #! $an*o d# a!o$#& #n$# !o& +u# &# #ncu#n$a #! n;'#$o a adiina$" a&@ co'o #! n;'#$o d# in#no& pa$a adiina$ #! n;'#$o. A coninuaci #! u&ua$io d#)#$- adiina$!o #n #! n;'#$o '-i'o d# in#no& an#& indicado. Cada #= +u# #! u*ado$ in$oduc# un n;'#$o #! p$o*$a'a !# dic# &i #& 'a>o$ o '#no$ > !# indica cuano& in#no& !# +u#dan. 1888. Pi&a $and : ? >: *#n#$a un nu'#$o a!#ao$io #n #! $an*o " >J 1K:. 1889. 1890. C# = B, U, N]In, num 1891. C3 = 0ensaAe 1892. 1893.
3#74E2Z4I[E IICIF
1894. LeerD B, U, N]I n 1895. 1896. 1897. 1898. 1899. 1900. 1901. 1902.
YFUGB1
Inco6nitaF B azar(Y) i F N]In 0ientras ( i+),hacerD LeerD num iFi G 1 3iD (Inco6nita = num), entonces #scri$irD J%elicidades has adi-inado el numero inco6nita, eraDK, Inco6nita 1903. iF G 1 1904. 3inoD 1905. 3iD (numInco6nita), entonces 1906. #scri$irD J#l numero es 0ayor, te 'uedan J, i,KintentosK 1907. 3inoD 1908. #scri$irD J#l numero es 0enor, te 'uedan J, i,KintentosK 1909. %IN"3I 1910. %IN"3I 1911. %IN"0I#NO&B3 1912. 3iD (i=+) , entonces 1913. #scri$irD J3u numero de intentos se a aca$ado el Aue6o a OerminadoK 1914. %IN"3I 1915. 1916.
I
1917. 1918. 1919. 1920. 1921. 1922. 1923. 1924. 1925. 1926. 1927.
1928. 73: R#a!ic# un p$o*$a'a +u# p$#*un# a!#ao$ia'#n# !a a)!a d# 'u!ip!ica$. E! p$o*$a'a d#)# indica$ &i !a $#&pu#&a ,a &ido co$$#ca o no #n ca&o +u# !a $#&pu#&a &#a inco$$#ca #! p$o*$a'a d#)# indica$ cu-! #& !a co$$#ca:. Una #= p$#*unado po$ una 'u!ip!icaci
3#74E2Z4I[E IICIF
iF1 0ientras (i+), hacerD BF azar (1+1) UF azar (1) 0 F B*U #scri$irD J2uanto esK, B,K*K,U LeerD &espuesta 3iD (&espuesta=0), entonces #scri$irD J#s 2orrectoK 3inoD #scri$irD J#rror, la &espuesta esD K, 0 %IN"3I #scri$irDK3i desea se6uir escri$a 1, sino +K LeerD 2onsulta 3iD (2onsulta=+), entonces iF+ %IN"3I %IN"0I#NO&B3 I
1955. 1956. 1957. 1958. 1959. 1960. 1961. 1962. 1963. 1964. 1965. 1966. 1967. 1968. 1969. 1970. 1971. 1972.
1973. 74: Lodica$ #! ##$cicio an#$io$ d# 'odo +u# #! p$o*$a'a p$#*una a!#ao$ia'#n# un oa! d# n 'u!ip!icacion#& &i#ndo n un n;'#$o dado po$ #c!ado. En cada 'u!ip!icaci #$$ d# /a!!o& 1974. C# = n 1975. C3 = 0ensaAe 1976. 1977. 1978. 1979. 1980. 1981. 1982. 1983. 1984. 1985. 1986. 1987. 1988.
3#74E2Z4I[E IICIF
LeerD n BF+ %F+ iF+ 0ientras (i<=n), hacerD UF azar (1+1) 2F azar (1) 0F U*2 #scri$irD J2uanto esK, U,K*K,2 LeerD &espuesta 3iD (&espuesta=0), entonces
1989. #scri$irD J#s 2orrectoK 1990. BF B1 1991. 3inoD 1992. #scri$irD J#rror, la &espuesta esD K, 1993. %F%1 1994. %IN"3I 1995. i=i1 1996. %IN"0I#NO&B3 1997. OEOFB% 1998. BF (B8OEO)*1++ 1999. %F (B8OEO)*1++ 2000. #scri$irD JN] de aciertos DK, B ,KN] de
fallos DK, % ,KB D K, B ,K^, % D J, % , J ^ K 2001. 2002. 2003. 2004. 2005. 2006. 2007. 2008. 2009. 2010. 2011. 2012.
I
2013.
#Aercicio
2014. 2015. 2016. 2017.
Inicio Leer n 2=o I=o ara i ← i hasta n hacer
2018.
2019. a=
random (1, 1000) 2020. b= random (1, 1000) 2021. r=a*b 2022. escribir a*b=? 2023. leer num 2024. si (num=r) 2025. escribir “correcto” 2026. c=c+1 2027. sino 2028. escribir “incorrecto” 2029. i=i+1 2030. fin – si 2031. escribir C,i 2032. C= (C!n)*100 2033. i=(i!n)*100 2034. "in – #ara 2035. "in 2036.
2037.
2038.
#Aercicio
2039. 2040. 2041. 2042.
Inicio Leer n,m 3=o
$i (m%n) 2044. ara i ← 1 hasta m hacer 2045. $ = $ +1 2046. fin – #ara 2047. sino 2048. escribir “error” 2049. "in – si 2050. "in 2043.
2051. 2052. 2053. 2054. 2055. 2056.
&'ercicio
nicio 2058. leer n,m 2059. $=0 ara i←1 hasta m hacer $ = $ +n "in – #ara 2063. "in 2057.
2060. 2061. 2062.
2064. 2065.
&'ercicio
2066. 2067. 2068.
&'ercicio
2069. 2070. 2071. 2072. 2073. 2074.
-ientras C % n 2076. . = i mod / 2077. $i (t%0) 2078. $ = $ + i 2079. C = C + 1 2080. "in si 2081. "in – mientras 2075.
nicio eer n $=0 =1 C= 0
