aiarasb

Pasirašai tris funkcijas atlikti veiksmams: (-1)n (čia ir if'o užtenka)xn (ciklas)n! (taip pat ciklas, rasi google)O pagrindinėje programoje leidi ciklą nuo 1 iki n kur skaičiuoja pagal reikiama formule (-1)n*xn/n!. Formule susidėlioji iš savo funkcijų. Jei kils neaiškumų klausk.

Tikrinimas tikrai nėra sudėtingas - ifas cikle. Ciklas sukasi tiek, kiek yra koordinačių. Ifas tikrina ar koordinatė priklauso kvadratui. koordinatė priklauso kvadratui kai x(n) yra tarp qA ir wB, o y(n) - tarp tA ir vB. Toliau bandyk pats, liko tik užrašyti programą. Jei kils neaiškumų klausk. :)

Suprantu aš tas funkcijas, jei reikia jas naudoju, tiesiog sakau kaip man yra kadaise nutikę per programavimo olimpiadą. :) Tai vienetiniai atvejai, nėra ko ginčytis. O dabar į temą. Kurioje tiksliai eilutėje būna pažymėta klaida, kad netinkamas skaičiaus formatas?

program sultys; var n, i, u: integer; duom, rez: text; begin assign(duom,'duom.txt'); //vietoj duom.txt duomenu failo pavadinima reset(duom); readln(duom, n); assign(rez,'rez.txt'); //vietoj rez.txt rezultatu failo pavadinima rewrite(rez); for i:=1 to n do begin readln(duom, u); writeln(rez, u div 5,' ',u mod 5 div 2,' ',u mod 5 mod 2); end; close(duom); close(rez); end. Galutinai pataisiau. Tikiuosi daugiau klaidų nebus. :)

program sultys; var n, i, u: integer; duom, rez: text; begin assign(duom,'duom.txt'); //vietoj duom.txt duomenu failo pavadinima reset(duom); readln(duom, n); assign(rez,'rez.txt'); //vietoj rez.txt rezultatu failo pavadinima rewrite(rez); for i:=1 to n do begin readln(duom, u); writeln(rez, u div 5,' ',u mod 5 div 2,' ',u mod 2); end; close(duom); close(rez); end. Pataisiau. Iš pradžių rašiau su masyvu, o paskui perdariau, tai liko nenutrinta indeksai. :)

program sultys; var n, i, u: integer; duom, rez: text; begin assign(duom,'duom.txt'); //vietoj duom.txt duomenu failo pavadinima reset(duom); readln(duom, n); assign(rez,'rez.txt'); //vietoj rez.txt rezultatu failo pavadinima rewrite(rez); for i:=1 to n do begin readln(duom, u); writeln(rez, u[i] div 5,' ',u[i] mod 5 div 2,' ',u[i] mod 2); end; close(duom); close(rez); end. Turėtų veikti, neturiu kuo patikrinti.

Tikrai suprantu jų veikimą, tiesiog kartais naudojant senesnius kompiliatorius šios komandos veikia netiksliai / meta klaidą. :)

Nepatariu naudoti eoln ir eof funkcijų, nes jos dažnai nesuveikia, arba suveikia ne taip kaip reikia. Kad tai apeiti gali pradžioje failo parašyti skaičių m, kuris nurodys, kiek elementų (tavo atveju skaičių) reiks nuskaityti iš failo. Taip pat gali kintamuosius, naudojamus tik procedūroje apsirašyti pačioje procedūroje, o ne kaip globalius (nors nemanau kad tai padės šiai programai).

Deleted.

Mums reikės : # ISO Image Windows 7 (bet kurios versijos) # UltraISO (mokamas, bet trial versija galite rasti nemokamai) # USB rakto kuriame būtų daugiau nei 2.5GB (4GB flashas būtu puiku ). Taigi pradedame. Instaliuojame UltraISO programą ir ją atidarome. Įdedame USB raktą į mūsų kompiuterį. Pakrauname UltraISO ir spaudžiame File->Open and pasirenkame the savo Windows ISO failą. http://dotnetwizard.net/wp-content/uploads/2009/08/usbultraiso01.gif Toliau Lokaliame tab (kairėje ) pasirenkame savo USB. . PVZ čia “USB Flash (M:)” Dabar pasirenkame the Bootable tab m

Sveiki. Siūlau savo paslaugas: Puslapių, temų, pluginų vertimas iš anglų į lietuvių kalbą; Wordpress TVS įdiegimas, sutvarkymas; Pascal programavimo paslaugos (bet kokios užduotys); C++ programavimo paslaugos (mokyklinės užduotys). Susisiekti el. paštu [email protected] arba AŽ.

-