Nazdarek vsetci potreboval by som radu od tych ktory vedia robit s programom pascal.ja uz mam nejake to programovanie za sebou ale pascal som zacal pouzivat az teraz kvoli skole,tak s tym mam mensie problemy. takze, ako dokazem aby program zo zadaneho na
neviem presne zdrojak, ale myslim ze je to nejaky while cyklus alebo for, a cislo musis stale delit 10 aby si oddelil jednotlive cifry a potom uz nie je problem vypisat napriklad prvu alebo 6 cislicu
bezne take veci nerobim. Ale mas stastie, mam dobru naladu A sorry za syntax, v pascale som uz dlho nerobil a kod som pisal rovno v prispevku ze mozno usla aj nejaka ta syntax. Este dalo by sa to sravit bez stringu cez div a mod ale s tym by sa musel 5 minut pohrat a nechce sa mi
program cisla
var s: string; i,j:integer;
begin
write('Zadaj cisla ake chces nacitat od 1 po 6: ' ;
Roleta je špeciálny inkognito mód, ktorým skryješ obsah obrazovky pred samým sebou, alebo inou osobou v tvojej izbe (napr. mama). Roletu odroluješ tak, že na ňu klikneš.
9 komentov
program cisla
var s: string; i,j:integer;
begin
write('Zadaj cisla ake chces nacitat od 1 po 6: ' ;
readln(i,j);
write('Zadaj sestcislie: ' ;
read(s);
prvecislo:=s[i];
druhecislo:=s[j];
end;
Mysli si co chces, ja si stojim za tym ze s programovanim nemas ziadne skusenosti
To je menej ako primitivna uloha.
program cisla;
var i,j, prveCislo, druhecislo : byte;
cislo: longint; //sesmieste sa nezmesti do integeru
begin
write('Zadaj cisla ake chces nacitat od 1 po 6: ';
readln(i,j);
write('Zadaj sestcislie: ';
readln(cislo);
prvecislo:= cislo div (1000000/10*i);
prveCislo:= cislo mod 10;
druhecislo:= cislo div (1000000/10*j);
druheCislo:= cislo mod 10;
end;
prveCislo := prveCislo mod 10;
druheCislo := druheCislo mod 10;