Diskuze: Zjistovani opakovani cisla z prvniho cyklu v dalsich cyklech
V předchozím kvízu, Test znalostí C# .NET online, jsme si ověřili nabyté zkušenosti z kurzu.
Matúš Olejník:20.5.2020 14:04
Chvíľu s tým treba aj bojovať a googliť než že budeš na každý jeden
príklad vytvárať príspevok.
Asi môj prvý program vo VB snáď bude fungovať 
Imports System.Collections.Generic
Module VBModule
Sub Main()
Dim inputNumbersCountMap As New Dictionary(Of Integer, Integer)
Dim inputNumber as Integer
Dim numberToCheck as Integer
While 1 = 1
Console.WriteLine("Zadaj cislo")
inputNumber = Integer.Parse(Console.ReadLine())
If inputNumber = 0 Then
Exit While
End If
If Not(inputNumbersCountMap.ContainsKey(inputNumber)) Then
inputNumbersCountMap(inputNumber) = 1
Else
inputNumbersCountMap(inputNumber) = inputNumbersCountMap(inputNumber) + 1
End If
End While
Console.WriteLine("Zadaj cislo ktoreho pocet chces zistit")
numberToCheck = Integer.Parse(Console.ReadLine())
If Not(inputNumbersCountMap.ContainsKey(numberToCheck)) Then
Console.WriteLine("Zadane cislo nepadlo")
Else
Console.WriteLine("Zadane cislo padlo celkom {0} krat", inputNumbersCountMap(numberToCheck))
End If
Console.ReadKey()
End Sub
End ModuleOndrej Zadrapa:20.5.2020 14:28
Divej se, včera to trvalo az do vecera mi zjistit, ze celou dobu jsem mel
problém s tim, ze dve hodnoty nepatri do vystupu jedne konzole, az když jsem
pro minimum a poradi udelal dva vystupy konzole zvlast, tak to zacalo fungovat a
prumer jsem ani nemusel slozite vypisovat, stacilo pole.Average() … proto mi
ted tenhle úkol není prilis jasny, zase je to trochu něco jiného, alespoň
mi to tak prijde, zatím mi program neuklada data, nevim, co s tim, když si
najedu na stranky Microsoftu, tak tam je halda informaci, strasna spousta, ale
moje konkretni trable tam nejsou resene, cili reseni je uplne primitivni, nebo
jsem se s nim musel setkat, jenze nevim, kde presne, jestli mam pridat, ubrat,
upravit nejaky cyklus, jeho hodnoty, podmínky, pridat promennou, ubrat,
upravit, atd...
Matúš Olejník:20.5.2020 15:02
Hej dobre chápeš ale napísal si
ale vetvenim bych to vytvoril za moment sam a bez zbytečného opravovani
keď som ja if else použil len na či do mapy pridať začiatočný počet
alebo zväčšiť aktuálny o 1.
Z toho čo si ty napísal to chápem tak že by si chcel vetviť štyri miliardy
pre každú možnosť z Integeru?
A potom ten kód čo tu zatiaľ máš tak stále sa používateľa na začiatku pýtaš koľko chce zadať čísel, ale pri tom v zadaní, ako už DarkCoder spomenul, máš napísané že načítavaš čísla až dokým sa nezadá 0 takže nevieš dopredu koľko čísel bude zadaných.
Ondrej Zadrapa:20.5.2020 15:39
A ted jsem si precetl, ze všechny ulohy cyklu a poli mam vypracovat se
statickym polem o 100 prvcích, kazdopadne s tou nulou to konecne dava smysl.
Matúš Olejník:20.5.2020 15:51
Ja som si dával pauzu od školy tak som niečo napísal aj bez použitia
slovníku
A malo by fungovať pre hocijaký počet
Module VBModule
Sub Main()
Dim writtenNumbers As Integer() = {}
Dim countsOfNumbers As Integer() = {}
Dim numberFound As Boolean = false
Dim indexOfFoundNumber As Integer = -1
Dim inputNumber As Integer
Dim numberToCheck As Integer
While 1 = 1
Console.WriteLine("Zadaj cislo")
inputNumber = Integer.Parse(Console.ReadLine())
If inputNumber = 0 Then
Exit While
End If
For i as Integer = 0 To writtenNumbers.GetUpperBound(0)
If inputNumber = writtenNumbers(i) Then
countsOfNumbers(i) = countsOfNumbers(i) + 1
numberFound = true
Exit For
End If
Next
if Not(numberFound) Then
ReDim Preserve writtenNumbers(writtenNumbers.GetUpperBound(0) + 1)
ReDim Preserve countsOfNumbers(countsOfNumbers.GetUpperBound(0) + 1)
writtenNumbers(writtenNumbers.GetUpperBound(0)) = inputNumber
countsOfNumbers(countsOfNumbers.GetUpperBound(0)) = 1
End If
numberFound = false
End While
Console.WriteLine("Zadaj cislo ktoreho pocet chces zistit")
numberToCheck = Integer.Parse(Console.ReadLine())
For i as Integer = 0 To writtenNumbers.GetUpperBound(0)
If numberToCheck = writtenNumbers(i) Then
indexOfFoundNumber = i
Exit For
End If
Next
If indexOfFoundNumber <> -1 Then
Console.WriteLine("Zadane cislo padlo celkom {0} krat", countsOfNumbers(indexOfFoundNumber))
Else
Console.WriteLine("Zadane cislo si nezadal")
End If
Console.ReadKey()
End Sub
End Module
DarkCoder:20.5.2020 15:52
Zde se můžeš inspirovat. Způsob je trochu jiný než uvedl
Matúš Olejník
Je zde uveden způsob jaký je od tebe nejspíš očekáván (procházení pole
pomocí cyklu).
Opět je třeba dívat se na program tak, aby se pochopila jeho činnost.
#include <stdio.h>
#define SIZE 100
int main(void) {
int cislo, pocet = 0, vyskyt = 0;
int pole[SIZE];
// nacitani cisel do pole s osetrenim rozsahu
do {
printf("Zadej cislo: ");
scanf("%d", &cislo);
if (!cislo) break;
pole[pocet] = cislo;
pocet++;
} while (cislo && (pocet < SIZE));
// Vyzva na cislo jehoz pocty opakovani zjistujeme
printf("\nZadej cislo: ");
scanf("%d", &cislo);
// Zjisteni poctu opakovani zadaneho cisla
for (int i = 0; i < pocet; i++) {
if (pole[i] == cislo) vyskyt++;
}
// Vypis poctu opakovani
printf("Cislo %d se v poli vyskytuje %dx\n", cislo, vyskyt);
return 0;
}+20 Zkušeností
+2,50 Kč
Zobrazeno 38 zpráv z 38.