wuss

Na man tai veikia gerai, gal duomenis blogai suvedei

program Noname7; var i, x, y, kol, cc : integer; a, b, c : array [1..100] of integer; begin readln(x); for i := 1 to x do readln(a[i]); readln(y); readln(kol); cc := 0; for i := 1 to x do begin if a[i] = y then b[i] := kol else begin b[i] := a[i]; inc(cc); c[cc] := a[i]; end; end; write('B '); for i := 1 to x do write(b[i],' '); writeln; write('C '); for i := 1 to cc do write(c[i],' '); Readln; end. Į pirmąją tingėjau gilintis :D

1. program kazkas; var keikis, kaina, suma : real; begin readln(kiekis, kaina); while (kiekis > 0) and (kaina>0) do begin suma := suma + kiekis * kaina; readln(kiekis, kaina); end; writeln(suma); end. 2. program kazkas; var sk, max : longint; begin max := -maxlongint; readln(sk); while (sk>0) do begin if sk > max then max := sk; readln(sk); end; writeln(sk); end.

Galiu atsiųsti į pm vienus vaistus :D pats sukūriau, tokia mini programėlė kurią paslėpus bet kur ir įdėjus į start up neis įeiti i one.lt ir į dar pora online žaidimų (runescape...). Sukūriau ja kad pc mokykloj atlaisvinčiau :D Beje kokia naršyklė? firefox, ir IE teveikia, kitų nebegalės įjungti :D

Pasiimk skaičius iš eilės patikrink pereidamas per visus skaičius kiek tokių pačių yra, jeigu 2 arba daugiau, tai skaičiaus nededame į atsakymą, kitu atveju dedam (nevienodi := nevienodi * 10 +sk ). Ir kartok su visais skaitmenimis :rolleyes:

Dar eilės numeriai blogai buvo padaryti Book12.zip

.

Prasuk rekursija su visais imanomais variantais ir viskas :) Gal ir veiks ilgiau nei naudojant koki tai algoritma, bet veiks ;)

Gal dar bu kokių nuomonių/patarimų ?

O kaip dėl bendrabučio? Teko girdėti kad labai sunku gauti

Sveiki, gal kas galit patarti kur geriau stoti KTU ar VU, gal kas ten studijuojat? Kokie + - ? Žadu studijuoti Informatika (programavimą). Šiaip visada galvojau apie studijas KTU, bet vienas žmogus privertė susimastyti, tai dabar nežinau :D

Kokia programavimo kalba ?

Taip čia paskalis :)

Netaip supratau sąlyga :D for i := 1 to a do sandauga := sandauga * i; for i := 1 to b do suma := suma + i; writeln(sandauga - suma); taip gal? :D

Netaip :D for i := a to b do begin suma += a; sandauga *= a; end; writeln(sandauga - suma);

Sveiki. Turiu du pc (su win 95 ir win xp) ir nei ant vieno neveikia normaliai com portas (ant win 95 vieną kartą buvo suradę, neįsivaizduoju ką buvau padaręs). Testavimui turiu pele (tokia seną kad jungiama per com portą :D) ir Sharp LQ1 4D412 monitorių (monitorių buvo radę vieną kartą ,vaizdą rodo, bet neranda touch screeno draivų, kuriuos turi rasti per com portą). Gal kas žinot ką daryt su tais portais?

Programoje sukurk: Memo ir button'ą unit Unit9; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm9 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form9: TForm9; implementation uses pirmas, antras; {$R *.dfm} procedure TForm9.Button1Click(Sender: TObject); begin pakeiciam(Memo1); pakeiciam2(Memo1); end; end. unit pirmas; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics

O tu nemaišai UNIT su THREADS ? Na jei su unit, tai sukurk 4 unitus, visuose patalpink ta funkcija (pakeisk pavadinimus kad nesipjautu), o ant button uždėk kad visas iškviestų.

read(f, visi[1].vardas, visi[1].pavarde); while not EoLn(f) do begin kiek := kiek + 1; read(f,a); suma := suma + a; end; visi[1].vidurkis := suma / kiek; readln(f); Prasuk cilkiuką ir perskaitysi visus :D

procedure pirmas(n:integer; var a:mas); var max,min:integer; begin for i := 1 to n do begin max := 0; min:=0; for j := 1 to n do if a[i,j] > max then max := j; if a[i,j]< min then min := j; a[i, max] := k; a[i, min] := k; end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]); writeln; end; end;

O kur tų žodžių ieškoti? ;) jaučiu net paskalis palūžtų nuo tiek variantų :)

o tai ko tau reikia?

procedure pirmas(n:integer; var a:mas); var max,min:integer; begin for i := 1 to n do begin max := 0; min:=0; for j := 1 to n do if a[i,j] > max then max := k; if a[i,j]< min then min := k; for i:=1 to n do begin for j:=1 to n do write(a[i,j]); writeln; end; end;

program figuros; uses Crt, Graph; const Vieta =''; ar pas tave jis prie paskalio buvo?

for i := 1 to 4 do //eiles begin max := -1; for i2 := 1 to 4 do //stulpai if masyvas[i,i2] > max then max := masyvas[i,i2]; writeln(i, ' eilutes max yra ', max); end; nu atsiųsk graph modulį :) aš irgi jo noriu