Programme

Welche Programme gibt es? (9)

pid	pgm	srt	notwendig	bez	komm
12.100	12	100	ja	# Potenzen berechnen	# Potenzen berechnen
10.100	10	100	ja	-- Grafik aus ASCII-Code erstellen	# Grafik aus ASCII-Code erstellen
14.100	14	100	ja	# Zeilen generieren	# Zeilen generieren
18.100	18	100	ja	# Daten vertauschen	# Daten vertauschen
16.100	16	100	ja	# Quadratmeter berechnen	# Quadratmeter berechnen

Programmauswahl (8)

thema	pgm	id
pg	12	1

Ausgewähltes Programm (7)

pid	pgm	srt	notwendig	bez	freigabe
pid	pgm	srt	notwendig	bez	freigabe
12.100	12	100	ja	# Potenzen berechnen	schueler
12.999	12	999	j	-- **********	schueler
12.101	12	101	ja	#!/usr/bin/perl -w	schueler
12.111	12	111	j	use Data::Dumper ;	schueler
12.113	12	113	j		schueler
12.115	12	115	ja	open EIN, "< eing_pot.csv" ;	schueler
12.117	12	117	ja	open OUT, "> ausg_pot.csv" ;	schueler
12.119	12	119	ja	open PROT, ">prot_pot.csv" ;	schueler
12.121	12	121	ja	$leer = ' ' x 200 ;	schueler
12.123	12	123	ja	$max_leer = 25 ;	schueler
12.125	12	125	ja	$basis = 2 ;	schueler
12.127	12	127	ja	@dbin_eing = ;	schueler
12.131	12	131	ja	foreach $line_eing ( @dbin_eing )	schueler
12.133	12	133	ja	{	schueler
12.135	12	135	ja	($pa ,$pb, $pc, $pd, $pe, $pf, $pg, $ph, $pj, $pk ) = split(/\;/, $line_eing) ;	schueler
12.141	12	141	ja	$erga = $basis**$pa ;	schueler
12.143	12	143	ja	$ergb = $basis**$pb ;	schueler
12.145	12	145	ja	$ergc = $basis**$pc ;	schueler
12.147	12	147	ja	$ergd = $basis**$pd ;	schueler
12.149	12	149	ja	$erge = $basis**$pe ;	schueler
12.151	12	151	ja	$ergf = $basis**$pf ;	schueler
12.153	12	153	ja	$ergg = $basis**$pg ;	schueler
12.155	12	155	ja	$ergh = $basis**$ph ;	schueler
12.157	12	157	ja	$ergj = $basis**$pj ;	schueler
12.159	12	159	ja	$ergk = $basis**$pk ;	schueler
12.160	12	160	j		schueler
12.161	12	161	ja	while($erga =~ s/(\d+)(\d\d\d)/$1\.$2/){} ;	schueler
12.163	12	163	ja	while($ergb =~ s/(\d+)(\d\d\d)/$1\.$2/){} ;	schueler
12.165	12	165	ja	while($ergc =~ s/(\d+)(\d\d\d)/$1\.$2/){} ;	schueler
12.167	12	167	ja	while($ergd =~ s/(\d+)(\d\d\d)/$1\.$2/){} ;	schueler
12.169	12	169	ja	while($erge =~ s/(\d+)(\d\d\d)/$1\.$2/){} ;	schueler
12.171	12	171	ja	while($ergf =~ s/(\d+)(\d\d\d)/$1\.$2/){} ;	schueler
12.173	12	173	ja	while($ergg =~ s/(\d+)(\d\d\d)/$1\.$2/){} ;	schueler
12.175	12	175	ja	while($ergh =~ s/(\d+)(\d\d\d)/$1\.$2/){} ;	schueler
12.177	12	177	ja	while($ergj =~ s/(\d+)(\d\d\d)/$1\.$2/){} ;	schueler
12.179	12	179	ja	while($ergk =~ s/(\d+)(\d\d\d)/$1\.$2/){} ;	schueler
12.180	12	180	j		schueler
12.201	12	201	ja	$len_erga = length($erga) ;	schueler
12.203	12	203	ja	$fil_erga = substr($leer, 1, $max_leer - length($pa) - $len_erga) ;	schueler
12.205	12	205	j		schueler
12.207	12	207	ja	$len_ergb = length($ergb) ;	schueler
12.209	12	209	ja	$fil_ergb = substr($leer, 1, $max_leer - length($pb) - $len_ergb) ;	schueler
12.210	12	210	j		schueler
12.211	12	211	ja	$len_ergc = length($ergc) ;	schueler
12.213	12	213	ja	$fil_ergc = substr($leer, 1, $max_leer - length($pc) - $len_ergc) ;	schueler
12.215	12	215	j		schueler
12.217	12	217	ja	$len_ergd = length($ergd) ;	schueler
12.219	12	219	ja	$fil_ergd = substr($leer, 1, $max_leer - length($pd) - $len_ergd) ;	schueler
12.220	12	220	j		schueler
12.221	12	221	ja	$len_erge = length($erge) ;	schueler
12.223	12	223	ja	$fil_erge = substr($leer, 1, $max_leer - length($pe) - $len_erge) ;	schueler
12.225	12	225	j		schueler
12.227	12	227	ja	$len_ergf = length($ergf) ;	schueler
12.229	12	229	ja	$fil_ergf = substr($leer, 1, $max_leer - length($pf) - $len_ergf) ;	schueler
12.230	12	230	j		schueler
12.231	12	231	ja	$len_ergg = length($ergg) ;	schueler
12.233	12	233	ja	$fil_ergg = substr($leer, 1, $max_leer - length($pg) - $len_ergg) ;	schueler
12.235	12	235	j		schueler
12.237	12	237	ja	$len_ergh = length($ergh) ;	schueler
12.239	12	239	ja	$fil_ergh = substr($leer, 1, $max_leer - length($ph) - $len_ergh) ;	schueler
12.240	12	240	j		schueler
12.241	12	241	ja	$len_ergj = length($ergj) ;	schueler
12.243	12	243	ja	$fil_ergj = substr($leer, 1, $max_leer - length($pj) - $len_ergj) ;	schueler
12.245	12	245	j		schueler
12.247	12	247	ja	$len_ergk = length($ergk) ;	schueler
12.249	12	249	ja	$fil_ergk = substr($leer, 1, $max_leer - length($pk) - $len_ergk) ;	schueler
12.250	12	250	j		schueler
12.251	12	251	ja	printf OUT " $basis ^^$pa: $fil_erga $erga \n" ;	schueler
12.253	12	253	ja	printf OUT " $basis ^^$pb: $fil_ergb $ergb \n" ;	schueler
12.255	12	255	ja	printf OUT " $basis ^^$pc: $fil_ergc $ergc \n" ;	schueler
12.257	12	257	ja	printf OUT " $basis ^^$pd: $fil_ergd $ergd \n" ;	schueler
12.259	12	259	ja	printf OUT " $basis ^^$pe: $fil_erge $erge \n" ;	schueler
12.261	12	261	ja	printf OUT " $basis ^^$pf: $fil_ergf $ergf \n" ;	schueler
12.263	12	263	ja	printf OUT " $basis ^^$pg: $fil_ergg $ergg \n" ;	schueler
12.265	12	265	ja	printf OUT " $basis ^^$ph: $fil_ergh $ergh \n" ;	schueler
12.267	12	267	ja	printf OUT " $basis ^^$pj: $fil_ergj $ergj \n" ;	schueler
12.269	12	269	ja	printf OUT " $basis ^^$pk: $fil_ergk $ergk \n" ;	schueler
12.270	12	270	j		schueler
12.273	12	273	j		schueler
12.275	12	275	ja	printf PROT " ENDE \n" ;	schueler
12.277	12	277	j		schueler
12.279	12	279	ja	close OUT ;	schueler

Welche Programme gibt es? (9)

Programmauswahl (8)

Ausgewähltes Programm (7)

Programme (5)