Matematické Fórum

↑ RePRO: Už minule jsem měl co dělat se udržet a nic ti nenapsat. Ale tohle už fakt nejde. Sám tu máš každou chvíli thread na kdejakou prkotinu, řešíš načtení 3 hodnot do struktury 5 hodin, nejsi schopný použít pár funkcí pro práci s řetězci (což je limitováno nepochopením základního stavebního kamene C/C++ (ano, mám na mysli tvoje oblíbené pointery)) a teď tady ze sebe budeš dělat velkého programátora a radit ostatním? S tímhle já nesouhlasím a myslím, že první, kdo by se měl doučit látku si ty! Ty hold těžíš z toho, že zdejší fórum je na každého strašně milé, zkus se podívat na fóra striktně o programování, tam bys už dávno nebyl, jak by tě ostatní zdrbali.

U tebe mi věta:

Popravdě v tom máš absolutní guláš, radím Ti doučit se látku.

fakt nesedí a nelíbí se mi, že tohle píšeš, když sám máš s programováním velké problémy. Začni nejprve u sebe! Děkuji.

↑ RePRO: Reaguji na tvoje nevhodné příspěvky. Ještě ti to nedošlo, že se ptáš? Jinak necháme toho, to je asi tak jediná věc, se kterou souhlasím. Jen taková poznámka: http://reprostudio.ic.cz/clanek/180/ o téhle stránce netřeba dále vést rozhovor. Vzhledem k tomu, jak se tam vychvaluješ a vzhledem k tomu, na jaké primitivní věci se ptáš zde na fóru musí být každému jasné, jak to s tebou je. V C, že stačí znát ty 4 funkce? To si hodně uletěl. Vynulování matice pod diagonálou je práce na 2 minuty, proč se s tím tak vychvaluješ? Ostatní jsou také nesmysly, ale nemám tolik času se s tebou zabývat, ostatně každý soudný člověk si z toho závěr odvodí sám.

kluci každopádně dík za 'pomoc' asi tomu neuvěříte ale nakonec jsem to poskládal... a pravda mám značné mezery :)
K tomu příkazu while, vážně to jde udělat aby byl přímo v proceduře... to bych pak musel všechny vypočtené hodnoty, ještě v proceduře, ukládat do nějakého pole abych je nakonec v samotném programu mohl vytisknout ne?


program Tomas_Bernat_streda_10_45_procedura;
{$APPTYPE CONSOLE}


procedure pocet(x:real;var sinus,cosinus:real);

begin
    sinus:=x-(x*x*x)/6+(x*x*x*x*x)/120;
    cosinus:=1-(x*x)/2+(x*x*x*x)/24;
end;


var
  x,sinus,cosinus:real;
begin
  writeln('Program pro nalezeni hodnot sinus a kosinus');
  writeln('*******************************************');
  writeln;writeln;
  writeln(' (x)       sin(x)              cos(x)');
  writeln('_______________________________________');
  x:=0;
  while x<=0.50 do
  begin
  pocet(x,sinus,cosinus);
  x:=x+0.05;
  writeln(x:5:2,sinus:14:6,cosinus:20:6);
  end;
  writeln;writeln;
  writeln('Konec-enter');
  readln;
end.

aha díky moc...

Ještě jedna věc, profesor nám výslovně zakazuje používat v procedurách příkazy pro čtení či zápis, je v tom nějaké opodstatnění? Výšší náročnost programu vůči paměti?... nebo mu jde jen o lepší přehlednost?!?