House-Chica

hallo ihr lieben , hab ne frage zum thema gruppenwechsel. und zwar verstehe ich nicht ganz den sinn des gruppenwechsels kann mir den vielleicht mal jeamnd erklären? wenn ich einen gruppen wechsel auf einen ort beziehe wie genau würde man dann vorgehen.. bin voll am verzweifeln erst 5 tage in der programmierung tätig dann schon solche fortgeschrittenen aufgaben

ja dankeschön hat jetzt geklappt @schiller

huhu weiß jemand wie man in cobol dateien abspeichern kann? (beispiel im bezug auf eine adressen eingabe) ich meine jetzt im programm selbst wie ich es programmieren könnte

huhu wollte nur eine kleine anregung zum board machen. fände es super wenn es unter programmierung auch ein topic nur für cobol gäbe, ist zwar ne alte sprache aber sehr viele firmen programmieren damit;) greetz chica

naja damit habe ich ja nur die wichtgkeit betont wäre wirklich nett wenn mir jemand ein beispiel ungetestet rein posten würde danke

brauche wirklich dringend hilfe pls

kann mir bitte jemand helfen ich soll eine jahreszahl eingeben und darunter ein schaltjahr Glatt durch 4 teilbare Jahre sind Schaltjahre. Glatt durch 100 teilbare Jahre sind jedoch keine Schaltjahre. Glatt durch 400 teilbare Jahre sind aber wieder Schaltjahre. so nun wenn es eins ist ist es mit einem JA zu versehen andernfalls mit einem nein working-storage section. * 01 w-ausgabe pic xxxx. 01 w-jahreszahl pic 9999. 01 d-schaltjahr pic zz99,99. 01 w-schaltjahr pic s999v99. 01 w-speicher pic s99 procedure division. display "Jahreszahl:" at 0101 accept w-jahreszahl at 0115 display "Schaltjahr:" at 0201 compute w-jahreszahl = w-jahreszahl / 4 move w-jahrszahl to w-speicher compute w-jahreszahl = w-jahreszahl / 400 * stop run. exit program.

ah ok alles klar ich soll jetzt eine jahreszahl eingeben und darunter ein schaltjahr alles was durch 4 und 400 teilbar ist soll dann mit ja ausgegeben werden und was durch 100 teilbar ist und eine dezimalzahl beherrscht mit nein kann mir da jemand helfen working-storage section. * 01 w-ausgabe pic xxxx. 01 w-jahreszahl pic 9999. 01 d-schaltjahr pic zz99,99. 01 w-schaltjahr pic s999v99. 01 w-speicher pic s99 procedure division. display "Jahreszahl:" at 0101 accept w-jahreszahl at 0115 display "Schaltjahr:" at 0201 compute w-jahreszahl = w-jahreszahl / 4 move w-jahrszahl to w-speicher compute w-jahreszahl = w-jahreszahl / 400 * stop run. exit program.

ja bin ja im prakikum sozusagen aufgaben um zu sehen ob ich auch für eine ausbildung in der lage wäre nunja hab vorher noch NIE programmiert und dann ist das schon n ding mit tausend schleifen und so kann programmieren jetzt erst siet montag zumindestens gelernt erst ab da an. was ich mich nur frage kann man wenn man cobol beherrscht auch alle anderen besonders c++ sprachen gut?

ja das klappt dankeschön. aber wie bekomme ich das nun hin das auch 2 die gleichen zahlen eingegeben werden können. PERFORM VARYING W-ZAEHLER FROM 1 BY 1 UNTIL W-ZAEHLER > 9 PERFORM VARYING W-POS FROM 1 BY 1 UNTIL W-POS > 9 - W-ZAEHLER IF W-ZAHL-N(W-POS) > W-ZAHL-N(W-POS + 1) MOVE W-ZAHL-N(W-POS) TO W-SPEICHER MOVE W-ZAHL-N(W-POS + 1) TO W-ZAHL-N(W-POS) MOVE W-SPEICHER TO W-ZAHL-N(W-POS + 1) END-IF END-PERFORM END-PERFORM

war ein kleiner schreibfehler bei der variable das hätte sich nun erledigt aber das mit der druckaufbereiteten variablen würde ich gerne noch hinzufügen weiß nur nicht wie move 1400 to w-anzeige-pos PERFORM VARYING W-ZAEHLER FROM 1 BY 1 UNTIL W-ZAEHLER > 9 compute w-anzeige-pos = w-anzeige-pos + 4 display w-zahl-n (w-zaehler) at w-anzeige-pos END-PERFORM hier müsste es doch irgendwe klappen das die leerstriche ohne nullen ausgegen werden.

brauche hierzu jetzt nur noch eine druckaufbereitete variable aber wie mach ich die dahin? damit er mir keine nullen anzeigt bei der ausgabe sondern nur die zahlen schön geordnet

working-storage section. * 01 w-cursor. 05 w-zeile pic 99. 05 w-spalte pic 99. 01 w-zaehler pic 99. 01 w-zahl-n pic s999 occurs 10. 01 w-gesamt pic s99. 01 w-speicher pic 99. 01 w-pos pic 99. 01 w-anzeige-pos pic 9999. procedure division. * move 1 to w-spalte perform varying w-zaehler from 1 by 1 until w-zaehler > 10 move w-zaehler to w-zeile display w-zaehler at w-cursor display "Zahl:" add 10 to w-spalte accept w-zahl-n (w-zaehler) at w-cursor subtract 10 from w-spalte end-perform. PERFORM VARYING W-ZAEHLER FROM 1 BY 1 UNTIL W-ZAEHLER > 9 PERFORM VARYING W-POS FROM 1 BY 1 UNTIL W-POS > 9 - W-ZAEHLER IF W-ZAHL-N(W-POS) > W-ZAHL-N(W-POS + 1) MOVE W-ZAHL-N(W-POS) TO W-SPEICHER MOVE W-ZAHL-N(W-POS + 1) TO W-ZAHL-N(W-POS) MOVE W-SPEICHER TO W-ZAHL-N(W-POS + 1) END-IF END-PERFORM END-PERFORM move 1400 to w-anzeige-pos PERFORM VARYING W-ZAEHLER FROM 1 BY 1 UNTIL W-ZAEHLER > 9 compute w-anzeige-pos = w-anzeige-pos + 2 display w-zahl-n (w-zaehler) at w-anzeige-pos END-PERFORM vielleicht kann mir jemand anderes mal hier weiter helfen weil ich durchs lesen nur den bubbel alog. hinbekommen hab und zwar zeigt der mir bei dieser lösung eine fehlermeldung an , weiß einfach nicht woran es liegt habe 2 schleifen gebildet und dem compiler das so zu verstehen gegeben das er das dann auch so übersetzt aber das klappt leider nicht fang schon an zu verzweifeln

naja danke innerhalb von 2 tagen die ganze programmiersprache beigebracht zu bekommen ist schon heftig wenn man vorher noch nie programmiert hat ^^ naja

schon mal besten dank noch ne keine frage hab ich aber was genau meinst du denn mit w-pos? die postion oder wie? und 2 wieso hast du kleiner 9 genommen und nicht kleiner 10

move 1 to w-zaehler. display w-zahl-n (w-zaehler) at 2001. display w-zahl-n (w-zaehler + 1) at 2101. move w-zahl-n (w-zaehler + 2) to w-speicher. if w-zahl-n (w-zaehler + 1) > w-zahl-n (w-zaehler + 2) move w-zahl-n (w-zaehler + 1) to w-zahl-n (w-zaehler + 2) move w-speicher to w-zahl-n (w-zaehler + 1 ) so ungefähr hab ich das jetzt mal probiert aber naja der sortiert dennoch nicht will ja die zaheln nicht über schreiben die erste zahl 12 auf die zahl 6 dann ist ja die 6 weg. also müsste ich die 6 zwischenspeichern. in einer schleife

ich müsste die alle vergleichen mit einer schleife nur mit schleißen kenn ich mich nicht so gut aus bin halt noch keine so gute programmiererin ^^ also das er die position2 abspeichert etc damit er die nicht überschreibt

bis jetzt läufts soweit eigentlich naja man kann halt die zaheln eingeben bis 10 dann sortiert er die aber noch nicht

working-storage section. * 01 w-cursor. 05 w-zeile pic 99. 05 w-spalte pic 99. 01 w-zaehler pic 99. 01 w-zahl-n pic s999 occurs 10. 01 w-gesamt pic s99. 01 w-speicher pic 99. procedure division. * move 1 to w-spalte perform varying w-zaehler from 1 by 1 until w-zaehler > 10 move w-zaehler to w-zeile display w-zaehler at w-cursor display "Zahl:" add 10 to w-spalte accept w-zahl-n (w-zaehler) at w-cursor subtract 10 from w-spalte end-perform. * move 1 to w-zaehler. display w-zahl-n (w-zaehler) at 2001. display w-zahl-n (w-zaehler + 1) at 2101. if w-zahl-n (w-zaehler + 1) > w-zahl-n (w-zaehler + 2) move w-zahl-n (w-zaehler + 1) to w-zahl-n (w-zaehler + 2) move w-zahl-n (w-zaehler + 1) to w-speicher. exit program. stop run.

oh sorry falsch eingeordnet

brauche dringend hilfe:mod: ich arbeiten mit cobol (ich weiß einer sehr veralterte sprache) jedoch habe ich die aufgabe ein prog zu schreiben das die folgenden zahlen sortiert 12 6 8 1 2 4 3 11 5 10 das man diese eingibt und unten von klein nach groß ausgibt wäre lieb wenn mir jemand helfen könnte. liebe grüße house chica