uses crt;
var cif:integer;
cislo:longint;
begin
clrscr;
write('Zadajte cislo a ja vypocitam jeho ciferny sucet');
readln(cislo);
if cislo<0 then cislo:=-cislo;
begin
cif:=0;
while cislo<>0 do
begin
cif:=cif + cislo mod 10;
cislo:=cislo div 10;
end;
end;
writeln('ciferny sucet je: ', cif);
readln;
end.
uses crt;
var cif,x:integer;
cislo:longint;
o,a,b,c:real;
function Ciferny_sucet(cislo:longint):longint;
begin
if cislo<0 then cislo:=-cislo;
begin
cif:=0;
while cislo<>0 do
begin
cif:=cif + cislo mod 10;
cislo:=cislo div 10;
end;
end;
end;
begin
clrscr;
write('Zadajte cislo a ja vypocitam jeho ciferny sucet');
readln(cislo);
ciferny_sucet;
writeln('ciferny sucet je: ', cif);
readln;
end.
program Program;
var dž : integer;
function NazovFunkcie(x:integer):integer;
var y : integer;
begin
y := x + 2;
NazovFunkcie := y;
end;
begin
dž := NazovFunkcie(4);
end.
artik: Funkciu ber ako podprogram, ktorý má "vlastnú hlavu". Má vlastné premenné, ktoré sa vytvoria na jej začiatku a zničia po jej skončení. Ešte pred zánikom ale funkcia posledným dychom dokáže povedať, čo spočítala (jedinú hodnotu - premenná s rovnakým názvom, ako je názov funkcie)
Ty potom z hlavného programu volaš a = funkcia(x,y);, kde x,y sú parametre pre funkciu a do a sa priradí ten posledný výdych. Toto využívaj a nemanipuluj vo funkcií s globálnymi premennými, ktoré sú určené (hlavne) pre hlavný program.
nechcem zakladať zbytočne novú tému tak sa spýtam mám zadanú úlohu : Napíšte program na výpočet obsahu trojuholníka, keď sú známe dĺžky jednotlivých strán a, b a c. Na riešenie využite Heronov vzorec.
kde je problem? nacitanie 3 integer vstupov z klavesnice, vypocet s cez vzorec, nasledne dalsi vzorec a vypisanie na obrazovku... skutocne nevidim KDE je problem...
PS: hlavne zacni ty.
skus napisat kod aspon co vies a v pripade ze nieco nepoje ta opravime, ale myslim ze neni dobry napad aby ti sme niekdo hodil komplet cely kod, ty to odovzdas a ani nebudes vedet o com je rec...
Uplne zaklad pascalu. Inak kdesi som to tu uz postoval formou funkcie, skus to dohladat a pouzit to. Splhnes si.
Zaklad ale toho vsetkeho je POCHOPIT system fungovania.
Program OBSAH_TROJUHOLNIKA;
uses Crt;
var
a,b,c,s,o: Real;
BEGIN
ClrScr;
Write('Zadaj velkost stran (a,b,c - oddelene medzerou): ');
ReadLn(a,b,c);
s := (a + b + c) / 2;
o := sqrt(s*((s - a)*(s - b)*(s - c)));
Write('Obsah je: ',o:2:4);
ReadLn;
END.
Program CIFERNY_SUCET_CISLA;
uses Crt;
var
cislo: longint;
function Ciferny_sucet(cislo: longint): longint;
var
cifra: Word ;
begin
cifra := 0;
while cislo <> 0 do begin
cifra := cifra + cislo mod 10;
cislo := cislo div 10;
end;
Ciferny_sucet := cifra;
end;
BEGIN
ClrScr;
Write('Zadaj cislo: ');
ReadLn(cislo);
Write('Sucet cifier je: ',Ciferny_sucet(cislo));
ReadLn;
END.
