//1-) girilen 100 adet tamsayı bir diziye giriliyor bu sayıların son rakamları 3//olanları ayrı bir diziye yükleyen progCONST Adet : INTEGER = 100;VAR Dizi1 : Array OF INTEGER; Dizi2 : Array OF INTEGER; Sayac : Integer; SonRakam3Adet : Integer; Gecici : String; GeciciSayi : Integer;BEGIN SonRakam3Adet := 1; FOR SAYAC := 1 TO ADET DO BEGIN WRITE ; READLN(Dizi1 ); STR(Dizi1 , Gecici); // SAYIYI STRINGE CEVIRIYORUZ // Simdi Stringe Cevirilen Sayinin Sonuncu karakterini alcaz Gecici := Copy(Gecici, Length ,1); // son rakamini aldik. // simdi integere cevirip karsilastirma yapacaz. VAL ; // Gecici string degiskeni integer hale cevirilerek GeciciSayi degiskenine aktarildi IF GeciciSayi=3 THEN BEGIN Dizi2 := Dizi1 ; // Sonrakam3 ADet degiskenini bir attiriyoruz INC(SonRakam3Adet); // SonRaakm3Adet = Sonrakam3Adet + 1 END; END; // simdi dizi2 ye aktarilan sayilari ekrana yaziyoruz FOR SAYAC := 1 TO SonRakam3Adet-1 DO BEGIN writeln(dizi2 ); END;READLN;end. //2-) bir diziye 50 adet sayı giriliyor. d//izinin 3. elemanına değerce enyakın değeri ve kacıncı sırada olduğunu bulan prg. CONST Adet : INTEGER = 5;VAR Dizi : ARRAY OF INTEGER; Sayac : INTEGER; EnYakin : Integer; Sira : Integer; Sonuc : Integer;BEGIN For Sayac := 1 to Adet DO BEGIN Write ; Readln ; END; // Varsayilan degerleri aktaralim. IF dizi >Dizi THEN BEGIN EnYakin := dizi -Dizi ; END ELSE BEGIN EnYakin := dizi -Dizi ; END; Sira :=1; For Sayac := 2 to ADET DO BEGIN IF Sayac <> 3 THEN // dizinin 3. elemanina en yakin elemani bulacaziz BEGIN IF dizi >Dizi THEN BEGIN Sonuc := dizi -Dizi ; END ELSE BEGIN Sonuc := dizi -Dizi ; END; IF Enyakin > Sonuc THEN BEGIN Enyakin:=Sonuc; Sira := Sayac; END; END; END; writeln(Dizi , ' Sayisina En Yakin eleman ' , dizi , ' ' , Sira, '. Sirasindadir.');Readln;end. bana ulasanlar bu kadardi devami gelirse çzüp yayinlarim iyi gunler. 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

Bu sorular Murat Güney'in mi? :) Makaleyaz. Net - Türkiye'nin Makale Alım-Satım Platformu

: Bu sorular Murat Güney'in mi? :) kesin onundur.. bazıları için karanlık, korkunun kaynağıdır. bazılarınında tek bildiği şey..