Programavimas Turbo Pascal

301. Is masyvo isrenka didziausia ir maziausia elementus ir suskaiciuoja kiek tokiu yra, likusius atspausdina
302. Is saraso pasalina diziausia elementa
303. Is tekstinio failo istrina zodzius, kurie prasideda ir baigiasi tuo paciu simboliu
304. Is tekstinio failo nuskaito prekiu kainas, jas surusiuoja, ir atrenka brangesnes prekes uz pasiringta kaina.
305. Is vienkrypcio saraso palieka 5 pirmas eilutes
306. is vienpisio saraso pasalina reiksme nurodyta elementa
307. Isem,1prog. ivesti a,b,c. isrinkti maz nenul. apskaiciuoti.pas
308. ismeta elemta is vienpusio saraso
309. ismeta is teksto nelyginius zodzius
310. ismeta is teksto zodzius prasidedancius skaiciumi
311. ismeta zodzius is teksto
312. israsyti_sk_be_max_min
313. isrenka skaicius is masyvo kurie dalosi is tam tikro skaiciaus
314. Isspausdina ilgiausia zodi
315. istrina reiksme nurodyta elementa
316. Istrinti matricos eilutes ir stulpelius
317. Isveda tuos zodzius,kurie faile kartojasi N kartu
318. isveda zodzius, kurie vienodai skaitomi ir is prieko ir is galo
319. Isvesti lyginio nario (antro, ketvirto ir t.t.), kurie yra teigiami skaiciai, skaiciu
320. Isvesti nariu, kurie prasideda 1, skaiciu
321. Isvesti nariu, kurie prasideda 1, skaiciu (repeat panaudojimas)
322. Įterpia prieš reikšmę nurodytą sąrašo elementą naują elementą
323. iterpimo i medi ir naikinimo proceduros
324. Iterpimo procedura
325. Ivedama skaiciu seka, programa parodo kiek elementu yra nelyginiai skaiciai
326. Ivedamas sveikasis skaicius N. Tada ivedama N sveiku skaiciu. Jeigu tarp ivestu skaiciu neatsiras neigiamu arba neneigiamu, isvesti pranesima. Priesingu atveju, rasti neigiamu skaiciu maksimuma MAX ir teigiamu skaiciu minimuma MIN.
327. Ivedami 2 taskai (ju koordinates) - apskritimo centras ir taskas ant apskritimo. Rasti jam priesinga taska
328. Įvedami 3 taškai (jų koordinatės). Patikrinti, ar jie yra buko trikampio viršūnės
329. Įvedami 3 taškai (jų koordinatės). Patikrinti, ar jie yra lygiašonio trikampio viršūnės.
330. Įvedami 3 taškai (jų koordinatės). Patikrinti, ar jie yra lygiakraščio trikampio viršūnes
331. Įvedami 3 taškai (ju koordinates). Patikrinti, ar jie yra stataus trikampio viršunes.
332. Įvedami 3 taškai (jų koordinatės).Patikrinti, ar jie yra lygiašonio trikampio viršūnės.
333. Įvedami 3 taškai(jų koordinatės). Rasti tašką simetrišką trečiajam taškui tiesės, einančios per pirmuosius du taškus, atžvilgiu.
334. Ivedami 3 taskai (ju koordinates). Rasti trikampio, kurio virsunes yra duotieji taskai plota
335. Įvedami 4 taskai (ju koordinates). Patikrinti, ar tarp ju yra stataus trikampio virsunes
336. Ivedami metai ir menesis, parodo suformuluota kalendoriu
337. Ivedami trys taskai (x;y). Randa taska simetriska treciajam tieses, nubreztos per pirmus du taskus, atzvilgiu.
338. IvedimasIsvedimas.rar
339. ivedimas
340. Ivedineti sveiku skaiciu seka iki pirmo skaiciaus, mazesnio uz -1000 arba didesnio uz 1000. Nustatyti, ar yra ivestoje sekoje trys is eiles einantys nuliniai nariai ir isvesti atitinkama pranesima.
341. Ivedineti sveiku skaiciu seka tol, kol ji nemazeja. // Isvesti sekos nariu skaiciu ir ju aritmetini vidurki
342. Įveskite skaičių N. Įveskite N sveikų skaičių. Neigiamus skaičius sukelkite į pabaigą. Išveskite gautą skaičių seką.
343. Įveskite tris skaičius a b c...
344. ivest sveiku sk seka, isvesti sk kurie baigiasi 3.
345. Ivesta skaiciu seka, padvigubinti visus lyginus sekos narius
346. Įvesta žodį atspausdina morzės abėcėle
347. Įvesti 6 taškus (jų koordinates). Apskaičiuoti atstumus tarp kiekvienos iš dviejų taškų porų.
348. Ivesti 8 taskus trimateje erdveje (ju koordinates). Patikrinti ar tai yra kubo virsunes.
349. Įvesti N skaičių, rasti neigiamų skaičių maksimumą ir teigiamų minimumą
350. Įvesti N sveikų skaičių. Apskaičiuoti įvestų skaičių minimumą MIN ir maksimumą MAX. Jeigu MIN=0, išvesti įspėjimą.
351. Įvesti skaičių N. Įvesti N sveikų skaičių (prekių svorių). Padalinti juos į dvi dalis, kad jų sumos būtų kuo lygesnės.
352. Įvesti sveiką skaičių A. Įvedinėti sveikų skaičių seką tol, kol vienas po kito įvestų skaičių skirtumo modulis bus mažesnis už A. Išvesti didžiausią ir mažiausią sekos narius
353. Įvesti sveiką skaičių N. Įvesti N sveikų skaičių a1, a2, ... aN. Sekoje a1, a2, ... aN visus narius, mažesnius už didžiausią sekos narį, padauginti iš 10. Išvesti gautą seką
354. Įvesti sveiką skaičių N. Įvesti N porų sveikų skaičių ki, li (i=1, ..., N). Kiekviena tokia pora yra lygties x² + pi*x + qi = 0 sprendiniai. Apskaičiuoti kiekvienos tokios lygties koeficientus pi ir qi. Rasti visų skaičių pi vidurkį P ir visų skaičių
355. Ivesti sveika skaiciu N. Ivesti N sveiku skaiciu a1,a2,...,aN. Sekoje a1,a2,...,aN apskaiciuoti, kiek yra skaiciu poru (a[i], a[i+1]), kuriose yra teigiamas ir neigiamas skaiciai
356. Įvesti sveiką skaičių N. Įvesti N sveikų skaičių. Rasti tarp įvestų skaičių dažniausiai pasikartojantį skaičių.
357. Įvesti sveiką skaičių N. Įvesti N*N sveikų skaičių, kurie sudarys lentelę. Šioje lentelėje kiekvienoje eilutėje randa minimalų skaičių, o po to jų maksimumą. Atspausdina rasto skaičiaus koordinates (eilutė, stulpelis) ir patį skaičių.
358. Įvesti sveiką skaičių N. Įvesti N*N sveikų skaičių, kurie sudarys matricą. Raskite visų matricos balno taškų koordinates.
359. Įvesti sveiką skaičių N. Įvesti N*N sveikų skaičių, kurie sudarys matricą. Raskite visų matricos balno taškų koordinates. Matricos elementas vadinamas balno tašku, jei jis yra mažiausias savo eilutėje ir didžiausias savo stulpelyje
360. Ivesti sveika skaiciu N. Uzpildyti matrica N*N sveikais skaiciais 1, 2, 3,..., surasytais spirale
361. Ivesti sveika skaiciu W. Ivesti sveikus skaicius a1,a2,...aW. Apskaiciuoti nelyginiu nariu a1,a3 ir t.t. Ir lyginiu nariu (a2,a4, ...) minimuma ir maximuma. Isvesti lyginiu ir nelyginiu nariu minimumu skirtuma ir nelyginiu ir lyginiu nariu maximumu skirtu
362. Ivesti sveikia skaiciu N. Ivesti N poru sveiku skaiciu ki, li (i=1, N). Kiekviena tokia pora lygties x^2+pi*x+qi=0 sprendiniai. Apskaiciuoti kiekvienos tokios lygties koeficientus pi ir qi
363. Ivesti sveiku skaiciu seka, kurios pabaiga zymima skaiciumi -555. Isvesti nariu, kurie yra nelyginiai skaiciai, skaiciu.
364. Įvesti sveikų skaičių seką, kurios pabaiga žymima skaičiumi 0. Išvesti lyginių narių (antro, ketvirto ir t.t.), kurie yra teigiami, skaičių
365. Įvesti sveikų skaičių seką, kurios pabaiga žymima skaičiumi 0. Išvesti narių, kurie baigiasi 3, skaičių
366. Įvesti sveikų skaičių seką, kurios pabaiga žymima skaičiumi 0. Išvesti narių, kurių skaitmenų suma lyginė, skaičių.
367. Ivesti sveiku skaiciu seka, kurios pabaiga zymima skaiciumi 0. Isvesti nariu, kurie baigiasi 5, skaiciu
368. Ivesti sveiku skaiciu seka, kurios pabaiga zymima skaiciumi 0. Isvesti nariu, kurie dalinasi is 11, skaiciu ( kiekis )
369. Ivesti sveiku skaiciu seka, kurios pabaiga zymima skaiciumi 0. Isvesti nelyginiu nariu (pirmo, trecio ir t.t),kurie yra lyginiai ir teigiami, skaiciu
370. Ivesti sveiku skaiciu seka, kurios pabaiga zymima skaiciumi 0. Isvesti nelyginiu skaiciu (pirmo, trecio ir t.t.), kurie baigiasi 1, skaiciu
371. įvesti sveikus skaičius, lyginti, išvesti reikšmes
372. Ivesti tris sveikus skaicius a, b, c. Apskaiciuoti ir isvesti y: Y = max (b, c), jei a lyginis; y = min (b, c), jei a - nelyginis.
373. Įvesti tris sveikus skaičius a, b, c. Išvesti kiek skaičių priklauso intervalui [5,10].
374. Ivesti tris sveikus skaicius a, b, c. Isrinkti is ju maziausia ne nulini skaiciu p, apskaiciuoti ir isvesti k = a / p, l = b / p, m = c / p
375. Įvesti tris sveikus skaičius a, b, c. Jei a ≤ b ≤ c, tuomet viesiems kintamiesiems priskirti didžiausią reikšmę. Jei a > b > c, tuomet palikti reikšmes be pakeitimų. Priešingu atveju pakeisti visų kintamųjų reikšmes
376. Ivesti tris sveikus skaičius a, b, c. Jei visi skaičiai yra neigiami, tuomet ju reikšmes pakeisti į teigiamas.
377. Įvesti tris sveikus skaičius a, b, c. Suskaičiuoti kiek yra skaičių lygiu mažiausiajam
378. Jei skaicius lyginis perraso is kitos puses.
379. judantis kvadratas
380. kalend
381. Kalendorius, programa parodanti bet kokio menesio kalendoriu
382. kalendorius
383. Kas sesto zodzio kas sesta raide pakeicia 6
384. Keicia fragmentus i simboli +
385. keitimas
386. keit
387. Keliaujancio pirklio uzd
388. ketvirta uzd pirmam semestrui, su telefonais
389. ketvirta
390. Kiek sekoje yra sveikuju skaiciu, kurio saknis yra sveikasis skaicius. Su while ir Repeat
391. Kiek skolininku ir kiek skolu turi studentai?
392. Kiek yra skaiciu lygiu maksimumui ir kiek lygiu minimumui
393. Kiekvieno simbolio kiekis
394. kompleksiniu skaiciu kalkuliatorius
395. Kontrolinio darbo uzduotis: Sudaryti vienpusį sutvarkytą sąrašą. Parašyti paprogramę, kuri suranda mažiausią elementą ir jį perkelia į sąrašo pradžią
396. Koordinates, trikampio plotas
397. kruskal
398. KUBAS
399. kubo radimas
400. kvadratine sakni skaiciuoja
Puslapiai: 1 . 2 . 3 . 4 . 5 . 6 . 7 . 8 .