Guest User

https://ehazi.hu/q/21579

a guest
Feb 22nd, 2019
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C# 12.44 KB | None | 0 0
  1. using System;
  2. using System.IO;
  3. using System.Collections.Generic;
  4.  
  5.  
  6. namespace barlang
  7. {
  8.     class Program
  9.     {
  10.         struct Belem
  11.         {
  12.         public string nev;
  13.         public double hossz;
  14.         public double kiterjedes;
  15.         public double melyseg;
  16.         public double magassag;
  17.         public string telepules;
  18.         // Konstruktor
  19.         public  Belem(string sor)
  20.         {
  21.                 string [] felb = sor.Split('\t');
  22.                 nev = felb[0];
  23.                 hossz = double.Parse(felb[1]);
  24.                 kiterjedes = double.Parse(felb[2]);
  25.                 melyseg = double.Parse(felb[3]);
  26.                 magassag = double.Parse(felb[4]);
  27.                 telepules = felb[5];
  28.  
  29.         }
  30.         }
  31.        
  32.         public static void Main(string[] args)
  33.         {
  34.            
  35.             List <Belem> Barlang = new List <Belem> ();
  36.             List <string> Bnev = new List<string> ();
  37.            
  38.            
  39.             // file beolvasása
  40.             StreamReader fsr = new StreamReader("barlang.txt");
  41.             string s = fsr.ReadLine();
  42.            
  43.             int x = 0; int db100 = 0;
  44.             while (!fsr.EndOfStream) {
  45.                 s = fsr.ReadLine();
  46.                 Barlang.Add(new Belem(s));
  47.                 Bnev.Remove(Barlang[x].telepules);
  48.                 Bnev.Add(Barlang[x].telepules);
  49.                 if (Barlang[x].hossz>100) {
  50.                     db100++;
  51.                 }
  52.                 x++;
  53.             }
  54.             fsr.Close();                                  
  55.    
  56.            
  57.             string [] B100 = new string[db100];
  58.             Console.WriteLine("1. feladat file beolvasás\n");
  59.             // 3. feladat
  60.             Console.WriteLine("3. feladat\n");
  61.             for (int i = 0; i < Bnev.Count; i++) {
  62.                 Console.WriteLine("   {0}",Bnev[i]);
  63.                 for (int j = 0; j < Barlang.Count; j++) {
  64.                     if(Bnev[i] == Barlang[j].telepules){
  65.                         Console.WriteLine("\t{0} : {1} m", Barlang[j].nev, Barlang[j].hossz);
  66.                     }
  67.                 }
  68.                
  69.             }
  70.            
  71.             // 4. feladat (és az 5. előkészítése (maxindex) és a 6. előkészítése (h50index) 7. előkészítése (db)  8. előkészítése (hely))
  72.             int maxindex = 0;
  73.             int h50index=0;
  74.             bool h50 = false;
  75.             int db = 0;
  76.             string hely = "";
  77.            
  78.             Console.WriteLine("\n4. feladat");
  79.             Console.WriteLine("100 méternél hosszabb barlangok");
  80.             int b100db = 0;
  81.             for (int i = 0; i < Barlang.Count; i++) {
  82.                
  83.                 if (Barlang[i].hossz>100) {
  84.                     Console.WriteLine("\t{0} : {1} m", Barlang[i].nev, Barlang[i].hossz);
  85.                     B100[b100db]=Barlang[i].nev;
  86.                     b100db++;
  87.                 }
  88.                 // 5.feladat előkészítése              
  89.                 if (Barlang[i].hossz > Barlang[maxindex].hossz) {
  90.                     maxindex = i;
  91.                 }
  92.                 // 6.feladat előkészítése              
  93.                 if (Barlang[i].hossz < 50) {
  94.                     h50 = true;
  95.                     h50index = i;
  96.                 }
  97.                
  98.                 // 7. feladat előkészítése
  99.                 if (Barlang[i].melyseg>Barlang[i].kiterjedes) {
  100.                     db++;
  101.                 }
  102.                 // 8. feladat előkészítése
  103.                 if (Barlang[i].nev=="Fecske-lyuk") {
  104.                     hely=Barlang[i].telepules;
  105.                 }
  106.                
  107.             }
  108.            
  109.            
  110.             // 5. feladat
  111.             Console.WriteLine("\n5. feladat");
  112.             Console.WriteLine("A leghosszabb barlang {0}, hossza {1} m", Barlang[maxindex].nev, Barlang[maxindex].hossz);
  113.            
  114.             // 6. feladat
  115.             Console.WriteLine("\n6. feladat");
  116.             if(h50)
  117.                  { Console.WriteLine("50 méternél rövidebb barlang: {0} ({1})",Barlang[h50index].nev,Barlang[h50index].telepules);}
  118.             else
  119.                  { Console.WriteLine("Nincs 50 méternél rövidebb barlang!"); }
  120.            
  121.             // 7. feladat
  122.             Console.WriteLine("\n7. feladat");
  123.             if(db!=0)
  124.             {
  125.                 Console.WriteLine("{0} barlang mélysége nagyobb, mint a kiterjedtsége",db);
  126.             }
  127.             else {
  128.                 Console.WriteLine("Nincs ilyen barlang");
  129.             }
  130.            
  131.             // 8. feladat
  132.             Console.WriteLine("\n8. feladat");
  133.             Console.WriteLine("Fecske-lyuk barlang települése {0}",hely);
  134.             Console.WriteLine("további barlangok {0}on",hely);
  135.             for (int i = 0; i < Barlang.Count; i++) {
  136.                 if (Barlang[i].telepules==hely) {
  137.                     Console.WriteLine("\t"+Barlang[i].nev);
  138.                 }
  139.             }
  140.            
  141.             // 9. feladat
  142.             Console.WriteLine("\n9. feladat: fileírás");
  143.             File.WriteAllLines("barlang100.txt", B100);
  144.            
  145.             Console.ReadKey(true);
  146.  
  147.         }
  148.     }
  149. /* Adatok barlang.txt-hez
  150. nev hossz   kiterjedes  melyseg magassag    telepules
  151. Soproni Zsivány-barlang    110 12  12  0   Fertőrákos
  152. Abaligeti-barlang   1712    48,7    10  38,7    Abaliget
  153. Duó-zsomboly   62,8    31  31  0   Pécs
  154. Remény-zsomboly    60  51,5    51,5    0   Orfű
  155. Spirál-víznyelő  850 86,4    86,4    0   Pécs
  156. Büdöskúti-zsomboly   40  20,5    20,5    0   Pécs
  157. Korall-zsomboly 25  17,8    17,8    0   Mánfa
  158. Tettyei-forrásbarlang  40  17  16  1   Pécs
  159. Mánfai-kőlyuk 310 12  4,3 7,7 Mánfa
  160. Orfűi Vízfő-barlang  328,5   27  1   26  Orfű
  161. Mészégető-források-barlangja    279 14,5    1,4 13,1    Orfű
  162. Vásáros-úti-zsomboly 76,2    31,5    29,5    2   Orfű
  163. Szuadó-völgyi-víznyelőbarlang   345,4   52  52  0   Orfű
  164. Trió-barlang   250 58  58  0   Orfű
  165. Madárka-zsomboly   42,4    18,3    18,3    0   Orfű
  166. Beremendi-kristálybarlang  850 53  38  15  Beremend
  167. Nagyharsányi-kristálybarlang  600 60  59  1   Nagyharsány
  168. Hajszabarnai Pénz-lik  120 18,5    13  5,5 Bakonyjákó
  169. Kőris-hegyi-ördöglik 64  36  36  0   Bakonyszücs
  170. Pipa-zsomboly   125 48,2    48,2    0   Zirc
  171. Bükkös-árki-barlang  73,2    31,1    31,1    0   Isztimér
  172. Alba Regia-barlang  3600    200,2   200,2   0   Isztimér
  173. Háromkürtő-zsomboly  360 105 105 0   Tés
  174. Bongó-zsomboly 136,7   35,4    35,4    0   Bakonynána
  175. Őskarszt-akna  53  40  40  0   Tés
  176. Csengő-zsomboly    210,3   133,9   133,9   0   Olaszfalu
  177. Jubileumi-zsomboly  222,2   121 121 0   Tés
  178. Csipkés-zsomboly   180 72,5    72,5    0   Tés
  179. Tábla-völgyi-barlang  350 78  78  0   Tés
  180. Szelelő-lyuk   261,3   25  25  0   Tés
  181. Károlyházi-nyelő barlangja   100 65  65  0   Csesznek
  182. Szentgáli-kőlik   420 43,7    39  4,7 Szentgál
  183. Tűzköves-hegyi-barlang    156,3   15,8    5,4 10,4    Szentgál
  184. Cserszegtomaji-kútbarlang  3320    12  10  2   Cserszegtomaj
  185. Acheron-kútbarlang 215 3,5 0   3,5 Cserszegtomaj
  186. Csodabogyós-barlang    5200    121 121 0   Balatonederics
  187. Döme-barlang   354 109,4   108 1,4 Balatonederics
  188. Jakucs László-barlang 154 24,5    24,5    0   Balatonederics
  189. Szél-lik   212,7   40  40  0   Balatonederics
  190. Tapolcai-tavasbarlang   3280    22  22  0   Tapolca
  191. Tapolcai Kórház-barlang   2280    36,8    34,8    2   Tapolca
  192. Berger Károly-barlang  1070    14,7    14,7    0   Tapolca
  193. Gánti-barlang  149 14,6    14  0,6 Gánt
  194. Vértessomlói-barlang  110 36  36  0   Vértessomló
  195. Keselő-hegyi-barlang   400 115 115 0   Tatabánya
  196. Keselő-hegyi 11. sz. barlang   183,5   66,8    66,8    0   Tatabánya
  197. Keselő-hegyi 2. sz. barlang    150 57  33  24  Tatabánya
  198. Kálvária-hegyi 1. sz. barlang 100 10  10  0   Tatabánya
  199. Kálvária-hegyi 2. sz. barlang 34  4,2 1,7 2,5 Tatabánya
  200. Keselő-hegyi 4. sz. barlang    68,8    62,5    35,5    27  Tatabánya
  201. Keselő-hegyi 21. sz. barlang   20,5    8   6,2 1,8 Tatabánya
  202. Tűzköves-barlang  47,3    21,5    21,5    0   Süttő
  203. Jura-zsomboly   137,8   52,1    52,1    0   Süttő
  204. Legyes-barlang  0   33,2    33,2    0   Süttő
  205. Lengyel-barlang 585 70  70  0   Tatabánya
  206. Vértes László-barlang    163,7   58,5    58,5    0   Vértesszőlős
  207. Veres-hegyi-barlang 182,5   45  45  0   Tatabánya
  208. Tükör-forrási-barlang    30  24  24  0   Tata
  209. Angyal-forrási-barlang 48  10  10  0   Tata
  210. Kullancsos-barlang  165 41,5    41,5    0   Baj
  211. Megalodus-barlang   261 24,1    20,5    3,6 Tata
  212. Bartha-kútbarlang  59,3    20,3    20,3    0   Tata
  213. Gorba-tetői-barlang    55  26,5    26,5    0   Tardos
  214. Pisznice-barlang    560 20  5   15  Lábatlan
  215. Pisznicei Határ-barlang    69,5    12,6    7,8 4,8 Lábatlan
  216. Pisznicei-zsomboly  37,5    26  26  0   Lábatlan
  217. Lábatlani Sárkány-lyuk   65  20  6   14  Lábatlan
  218. Bajóti Büdös-lyuk    50,3    11,3    11,3    0   Bajót
  219. Öreg-kői 1. sz. zsomboly  115 34  34  0   Bajót
  220. Dorogi 9. sz. kaverna   80  0   0   0   Dorog
  221. Dorogi 10. sz. kaverna  70  0   0   0   Dorog
  222. Tokodi vízakna hasadékbarlangja   0   0   0   0   Tokod
  223. Babál-barlang  128,7   20  10  10  Sárisáp
  224. Bátori-barlang 360 56  50  6   Budapest
  225. Gellért-hegyi-aragonitbarlang  25  11  0   11  Budapest
  226. Ördögárok utcai-barlang  45,1    21  21  0   Budapest
  227. Rácskai-barlang    100 34  31  3   Budapest
  228. Budai Vár-barlang  3300    15  15  0   Budapest
  229. Pálvölgyi-Mátyáshegyi-barlangrendszer   19000   122,6   94,9    27,7    Budapest
  230. Szemlő-hegyi-barlang   2201    50,4    11,1    39,3    Budapest
  231. Látó-hegyi-barlang    58  21  17  4   Budapest
  232. Ferenc-hegyi-barlang    6500    85  85  0   Budapest
  233. Harcsaszájú-Hideglyuk-barlangrendszer 7000    93  80  13  Budapest
  234. Molnár János-barlang  6000    128,6   98,6    30  Budapest
  235. Bekey-barlang   173 39,6    39,6    0   Budapest
  236. József-hegyi-barlang   5677    105,8   105,8   0   Budapest
  237. József-hegyi 2-3. sz. barlang  80  40  40  0   Budapest
  238. Barit-barlang   215 20,8    9,9 10,9    Budapest
  239. Tábor-hegyi-barlang    162 21,9    16,6    5,3 Budapest
  240. Solymári-ördöglyuk   5550    78  78  0   Solymár
  241. Róka-hegyi-barlang 87  38,7    38,7    0   Üröm
  242. Amfiteátrum-barlang    294 76  76  0   Üröm
  243. Ürömi-víznyelőbarlang   214 28,4    26,3    2,1 Üröm
  244. Porhintő-barlang   30  20  20  0   Üröm
  245. Papp Ferenc-barlang 400 66  66  0   Pilisborosjenő
  246. Szabó József-barlang  152,2   18,3    15,8    2,5 Budakalász
  247. Pomázi kőfejtő Felső-barlangja  300 45  45  0   Pomáz
  248. Amazonok-barlangja  141 12,6    12,6    0   Pomáz
  249. Arany-lyuk  92  42  42  0   Budakalász
  250. Leány-Legény-Ariadne-barlangrendszer  5050    119 58  61  Pilisszentlélek
  251. Nagy-Somlyóhegyi-barlang   90  52,5    50,5    2   Pilisjászfalu
  252. Szent Özséb-barlang   800 82  82  0   Pilisszentkereszt
  253. Szopláki-ördöglyuk   220 37,6    37,6    0   Pilisszentkereszt
  254. Pilis-barlang   470 45  6   39  Pilisszentkereszt
  255. Ajándék-barlang   500 58,4    57,2    1,2 Pilisszentkereszt
  256. Sátorkőpusztai-barlang    354 61,4    49,3    12,1    Esztergom
  257. Strázsa-hegyi-barlang  60  25  16  9   Esztergom
  258. Kis-Strázsa-hegyi-hasadékbarlang  80  20  20  0   Esztergom
  259. Széchy Dénes-barlang  50  10  2   8   Esztergom
  260. Naszályi-víznyelőbarlang 1900    173 173 0   Vác
  261. Nincskegyelem-aknabarlang   224 71  71  0   Vác
  262. Násznép-barlang   222,5   19,7    7,5 12,2    Kosd
  263. Nézsai-víznyelőbarlang   393,5   55,7    55,7    0   Nézsa
  264. Csörgő-lyuk   428 29,6    29,6    0   Mátraszentimre
  265. Diabáz-barlang 1000    161 161 0   Miskolc
  266. Szalajka-forrásbarlang 100 20  20  0   Szilvásvárad
  267. Kis-kőháti-zsomboly   479 117 117 0   Nagyvisnyó
  268. Esztáz-kői-barlang    160 33,5    18  15,5    Felsőtárkány
  269. Gyurkó-lápai-barlang  181,2   45  39,3    5,7 Varbó
  270. Szamentu-barlang    944,7   42  36,9    5,1 Varbó
  271. Három-kúti-barlang    89  19,3    4,7 14,6    Miskolc
  272. Lilla-barlang   225 20,3    19,1    1,2 Parasznya
  273. Bronzika-barlang    337,5   27,2    24,8    2,4 Miskolc
  274. Kő-lyuk    623 30,6    19  11,6    Parasznya
  275. Hillebrand Jenő-barlang    240 24,1    16,2    7,9 Parasznya
  276. Szeleta-zsomboly    645 101,5   101,5   0   Miskolc
  277. Vénusz-barlang 637 37,6    18,4    19,2    Parasznya
  278. Szent István-barlang   1445    93,8    16,8    77  Miskolc
  279. Jáspis-barlang 830 193 193 0   Miskolc
  280. Garadna-forrásbarlang  7   4,5 4,5 0   Hámor
  281. Szirén-barlang 700 45  42  3   Miskolc
  282. Létrási-vizesbarlang  3000    67,8    57,8    10  Miskolc
  283. Szepesi-Láner-barlangrendszer  2500    159,3   159,3   0   Miskolc
  284. Bányász-barlang   120 89  89  0   Miskolc
  285. Bolhási-Jávorkúti-barlangrendszer    5314    132 125,5   6,5 Miskolc
  286. Speizi-barlang  715 101 101 0   Miskolc
  287. Borókás-tebri 4. sz. víznyelőbarlang    550 96  96  0   Miskolc
  288. István-lápai-barlang  7300    254 254 0   Miskolc
  289. Borókás-tebri 2. sz. víznyelőbarlang    503 95  95  0   Miskolc
  290. Fekete-barlang  2200    174 174 0   Miskolc
  291. Vesszős-gerinci-barlang    221,4   6,8 6,8 0   Miskolc
  292. Balekina-barlang    600 90  90  0   Miskolc
  293. Pénz-pataki-víznyelőbarlang  1989    155,5   150 5,5 Bükkszentkereszt
  294. Hajnóczy-barlang   4257    125 81,3    43,7    Cserépfalu
  295. Anna-barlang    568 14  4,5 9,5 Hámor
  296. Diósgyőrtapolcai-barlang  87,8    9   3,8 5,2 Miskolc
  297. Vár-tetői-barlang 550 101,8   101,8   0   Miskolc
  298. Tatár-árki-barlang    156 39  35  4   Miskolc
  299. Fecske-lyuk 210 26,9    9,3 17,6    Miskolc
  300. Nagykőmázsa-oldali-zsomboly   90  32  32  0   Miskolc
  301. Viktória-barlang   723,4   41,5    41,5    0   Miskolc
  302. Mexikó-völgyi-víznyelőbarlang   414 79  79  0   Miskolc
  303. Esztramosi Földvári Aladár-barlang   190 7,1 7,1 0   Bódvarákó
  304. Rákóczi 3. sz. barlang    150 34  27  7   Tornaszentandrás
  305. Rákóczi-oldaltáró-barlangja 170 29,2    10,4    18,8    Tornaszentandrás
  306. Rákóczi 1. sz. barlang    650 79  61  18  Tornaszentandrás
  307. Rákóczi 2. sz. barlang    533,3   53  53  0   Tornaszentandrás
  308. Esztramosi Felső-táró 2. sz. ürege  46  23  0   23  Tornaszentandrás
  309. Baradla-barlang 20500   112 86  26  Jósvafő
  310. Imolai-ördöglyuk  53,3    33,9    30  3,9 Imola
  311. Béke-barlang   7183    97  71  26  Aggtelek
  312. Teresztenyei-forrásbarlang 80  8   0   8   Teresztenye
  313. Szabadság-barlang  3030    48,5    30,4    18,1    Égerszög
  314. Danca-barlang   1390    30  0   30  Égerszög
  315. Baradla-tetői-zsomboly 387 87  87  0   Aggtelek
  316. Baradla Hosszú-Alsó-barlang   127 17,1    10,8    6,3 Jósvafő
  317. Kossuth-barlang 1610    60  32  28  Jósvafő
  318. Vass Imre-barlang   2185    56,6    12,8    43,8    Jósvafő
  319. Csapás-tetői-barlang  33  18  18  0   Szinpetri
  320. Rejtek-zsomboly 450 66,5    66,5    0   Szögliget
  321. Hosszú-tetői-barlang  40  8   3   5   Szögliget
  322. Magas-tetői-barlang    168,5   39,5    34,1    5,4 Szögliget
  323. Bába-völgyi 2. sz. víznyelő barlangja   70  22  22  0   Szögliget
  324. Frank-barlang   182,2   46,7    46,7    0   Bódvaszilas
  325. Csörgő-forrásbarlang 120 0   0   0   Szögliget
  326. Meteor-barlang  1672    127 127 0   Bódvaszilas
  327. Kopasz-vigasz-barlang   220 37  37  0   Bódvaszilas
  328. Almási-zsomboly    358 100 100 0   Bódvaszilas
  329. Szabó-pallagi-zsomboly 1035    151 151 0   Bódvaszilas
  330. Vecsembükki-zsomboly   900 236 236 0   Bódvaszilas
  331. Kopaszgally-oldali 2. sz. víznyelőbarlang 450 118 118 0   Bódvaszilas
  332. Széki-zsomboly 120 51,5    51,5    0   Bódvaszilas
  333. */
  334.  
  335. }
Add Comment
Please, Sign In to add comment