lincikas79

Na aš ir vėl su savo bėdom...

Užsakė talpinimo planą, bet nežinau, ką ir kur susikurti, kad galėčiau per ftp prisijungti.

Kiek paprasta prisijungti per members.000webhost.com, tai hostex'e tiek sudėtinga... Nebesuprantu... :unsure:

Ačiū už pagalbą, pasirodo iš tiesų neužsakyta talpinimo paslauga...

Sėkmės visiems...

prisjunges cp.hostex.lt

eini

Paslaugų valdymas - Sistema

paslaugu valdyma

tada

Įrankiai>IP adresai

ir ten matai ip adresa

jei ne, gal tiesiog nera uzsakyta talpinimo paslaugos?

 

 

gali dar nueit i plano keitimas ir ten turi rasyt

Dabartinis hostingo planas jei nera, tai uzsakyt reiks :)

Tai kaip suprantu talpinimo paslaugos nera... nes matau tik domeno vardo registraciją ir info apie mokėjimus...

Tai vat, kad aš to domeno nekūriau jį sukūrė kiti tik puslapio nebesukūrė, tai žmogus manęs paprašė, kad padaryčiau, gavau tik prisijungimo vardą. Šiaip ne taip prisijungiau ir nieko ten nerandu, nieko negaliu sukurti, o domeną atidarius nerodo jokio IP...

Kaip suprantu reikia į hostex kreiptis turbūt?

junkis su ip adresu, tenais turėtų jis kažkur būti, nes aš jungiuosi irgi per ip

Tai vat ten pas mane tie IP visi 4 yra, tai nesuprantu per kurį jungtis... O vartotojo vardą tai prie hostex jungiuos įvesdama elektroninį ir slaptažodį...

Bandau prisijungti prie hostex.lt per FileZila, bet nesėkmingai. Kažkaip nelabai suprantu, ką suvesti reikia. Anksčiau neteko susidurti, pirmą kartą darau... Gal galit nuosekliai paaiškinti ką ir kaip turiu padaryti, nes iš pačio hostex atsakymo nesupratau kokie tie teisingi duomenys turi būti... Domenas senai nupirktas, bet dar galioja iki lapkričio mėn.

Ką įvesti į:

Serveris (aš vedu pvz: "manodomenas.lt");

Vartotojo vardas (aš vedu pvz: "manodomenas");

Slaptažodis (vedu slaptažodį kurį rašau prisijungimo metu prie hostex);

Prievadas (vedu 21, nors kiek žinau nebūtina rašyt).

Darbas su Moduliu CRT

Sudaryti programą kalkuliatorius, kuri imituotų kalkuliatoriaus su 4 operacijomis darbą.

Nuo ko pradeti?

o tai ko tau reikia?

Chia perrasho ta pachia matrica, o reikia kad perrashytu jau pertvarkyta matrica kur vietoj mazhiausio ir didzhiausio jos elemento butu irashytas duotas skaichius k.

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;

Ash irgi taip buvau padarius bet kad nerasho to ko man reikia...

Duotas masyvas A(n) ir skaičius L. Didžiausią ir mažiausią msyvo elementus pakeisti skaičiumi L. Pradinius duomenis spausdinti lentele.

Parasiau taip, bet nebezinau kaip parashyt proceduroj "pirmas", kad atspausdintu tuos elementus pakeites mazhiausia ir didziausia elementus i kita skaiciu .

program masyvo_elementu_keitimas;

uses crt;

type mas=array [1..100,1..100] of integer;

var i, j, n, k: integer;

a:mas;

procedure ivesti(n:integer; var a:mas);

begin

for i:=1 to n do

for j:=1 to n do

a[i,j]:=random(20)-10;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:7);

writeln;

end;

end;

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

end;

end;

begin

clrscr;

randomize;

write('Iveskite kiek eiluciu ir stulpeliu bus: ',n);

readln(n);

Write('Iveskite skaiciu kuriuo keisite didziausia ir maziausia masyvo elementus: ',k);

readln(k);

writeln;

ivesti(n,a);

writeln('**************************************************');

writeln('Pakeitus didziausia elementa, skaiciumi ', k, ' masyvas bus toks: ');

pirmas(n,a);

writeln('**************************************************');

readln;

end.

program figuros;

uses Crt, Graph;

const Vieta ='';

 

ar pas tave jis prie paskalio buvo?

O jis butinas?

Įmesk ir graph biblioteka :)

Kas tas graph modulis?

Chia tas initgraph(gd,gm,'C:\TP\BGI')

Chia jau kazhko nebesigaudau... :)

Įmesk ir graph biblioteka :)

Gal galima shiek tiek daugiau :D ..

Ir dar

Niekaip negaliu sugalvoti kaip masyve proceduroje uzhrashyti, kad tarkim i-tosios eilutes j-ojo stulpelio elementas yra didzhiausias.

Kaip visa ta patikrinima surashyt.

Pvz: tarkim matrica

3 5 7 8

5 6 2 9

8 3 5 1

4 9 2 1

ir reikia kad vykdant programa uzhrasytu tokius atsakymus:

"1-mos eilutes 4-tas elementas dydzhiausias"

"2-os eilutes 4-tas elementas didziausias"

"3-os eilutes 1-mas elementas didzhiausias"

"4-os eilutes 2-ras elementas didzhiausias"

:) :) :D :)

Ir dar viena problema su grafika:

reikia nupieshti trijuose skirtinguose languose tris skirtingas uzhtushuotas figuras, zhodzhiu tris langus padaro tik kad juose visuose tas pats pieshinys. Ka ne taip darau?

Imesiu ir programa kaip rashau...

program figuros;

uses Crt, Graph;

const Vieta ='';

var gd,gm,dx, dy : integer;

{ dx, dy - grafinio ekrano taðkø skaièius horizontalia ir

vertikalia kryptimis; }

procedure Init;

begin

gd:=detect; {standartine tvarkykle}

initgraph(gd,gm,'');

if Graphresult<> grOk then begin

writeln('Aparaturos klaida'); Halt(1); end;

dx:=getMaxX;dy:=getMaxY; {ekrano skiriamoji geba}

end;

procedure Init2;

begin

gd:=detect; {standartine tvarkykle}

initgraph(gd,gm,'');

if Graphresult<> grOk then begin

writeln('Aparaturos klaida'); Halt(1); end;

dx:=getMaxX;dy:=getMaxY; {ekrano skiriamoji geba}

end;

procedure Init3;

begin

gd:=detect; {standartine tvarkykle}

initgraph(gd,gm,'');

if Graphresult<> grOk then begin

writeln('Aparaturos klaida'); Halt(1); end;

dx:=getMaxX;dy:=getMaxY; {ekrano skiriamoji geba}

end;

begin

init2;

SetBkColor( yellow ); ClearDevice;

SetColor(magenta); SetLineStyle( 0, 0, 1 );

SetActivePage(3);

Bar( 100, 100, 150, 150 ); { Staèiakampis }

SetFillStyle( 1, magenta ); FloodFill( 100, 100, magenta );

restorecrtmode;

init3;

SetBkColor( Brown ); ClearDevice;

SetColor( green ); SetLineStyle( 0, 0, 1 );

SetActivePage(2);

Fillellipse( 300, 250, 50, 340 ); {Elipse }

SetFillStyle( 1, green );

restorecrtmode;

init;

SetBkColor( LightGray ); ClearDevice;

SetColor( red ); SetLineStyle( 0, 0, 1 );

SetActivePage(1);

Setfillstyle(7,5);

pieslice( 350,300,400,200,300);

restorecrtmode;

repeat until KeyPressed;

CloseGraph;

end.

Niekaip negaliu sugalvoti kaip masyve proceduroje uzhrashyti, kad tarkim i-tosios eilutes j-ojo stulpelio elementas yra didzhiausias.

Kaip visa ta patikrinima surashyt.

Pvz: tarkim matrica

3 5 7 8

5 6 2 9

8 3 5 1

4 9 2 1

ir reikia kad vykdant programa uzhrasytu tokius atsakymus:

"1-mos eilutes 4-tas elementas dydzhiausias"

"2-os eilutes 4-tas elementas didziausias"

"3-os eilutes 1-mas elementas didzhiausias"

"4-os eilutes 2-ras elementas didzhiausias"

Aš būčiau daręs kitaip, susirašai visus simbolius į vieną kintamąjį ir žiūri ar jame yra rastas simbolis:

pvz:

 

simb :=',/.\';][-';
if pos(c,simb) > 0 then k := k +1;

Be to, vietoj k := k +1; gali naudoti k+=1; kiečiau atrodo :)

 

 

O pas tave klaida tame, kad reikia visada lyginti

 

if c=(',')orc=('.')orc=(':')orc=('?')orc=(';')orc= ('"')orc=('!') then k:=k+1;

aishkumelis.

achiu.

Gal kas paziuresit kur cia klaidos, nebesuprantu. Reikia suskaiciuoti skirybos zenklus ir kad parashytu kokie jie yra tekste. Kimba prie "OR"..

program telegrama;

var c, a:string; i, k: integer;

begin

WriteLn('Iveskit telegramos teksta: ');

Readln (a);

k:=0;

for i:=1 to length(a) do begin

c:=copy(a,i,1);

if c=(',')or('.')or(':')or('?')or(';')or ('"')or('!') then k:=k+1;

end;

writeln('Viso skirybos zenklu yra: ',k);

writeln('Yra sie skirybos zenklai: ',c);

readln;

end.

program matrica;
VAR a : array[ 1 .. 1000, 1..1000] of integer;
m, n, i, j, i2: integer;
begin
//write ('Kiek bus eiluciu ? '); readln(m);	  nereikalingas
write ('Kiek bus stulpeliu? '); readln(n);
m:=0;
for i:=1 to n do
begin
  for j :=1 to m do
begin
a[i,j] := 0;
write(a[i,j],' ');
end;
  for i2 := 1 to n-m do
begin
a[i,i2+m] := i2;
write(a[i,i2+m],' ');
end;
writeln();
m += 1;
end;


end.

Aciukas

Nu zodziu parasau visaip ir kad nuo 1 iki 100 surasho ir dar kitaip nu kad su nuliais butu priekyje niekai neisheina

pvz parashiau kad surashytu visose eilutese nuo 1 iki 10, ka reikia dadeti, kad priekije tie nuliai atsirastu. Brrr atsibodo...

program matrica;

USES crt;

VAR a : array[ 1 .. 10, 1..10 ] of integer;

m, n, i, j: integer;

begin

write ('Kiek bus eiluciu ? '); readln(m);

write ('Kiek bus stulpeliu? '); readln(n);

for i:=1 to m do

for j:=1 to n do

a[i,j]:= (i - 1)*1+j ;

for i:=1 to m do

begin

for j:=1 to n do

write ((a[i,j]), ' ');

writeln;

end;

readln

end.

Gal kas zinot kaip shi uzhdavini ishspresti?

Sudaryti programą , kuri užpildytų duotą dvimatį masyvą ir atspausdintų jo elementus ekrane:

1 2 3 4 5 6 7 8 9 10

0 1 2 3 4 5 6 7 8 9

0 0 1 2 3 4 5 6 7 8

---------------------------------

0 0 0 0 0 0 0 0 0 1

Pagal idėją - veiks. netestinau aš. Ištikro, x ir y integer padaryk. nepatinka man, kai žinai, kad bus skaičius, bet saugai kaip realųjį :)

Achiuuu

Prasau gal galit padeti:

Reikia ishspresti labai paprasta uzhduoti ishsorendzhiau tik nezhinau ar teisingai:

"Parašykite sakinius, kuriais realusis skaičius, reiškiantis pinigų sumą, būtų paverstas dviem sveikaisiais skaičiais: litais ir centais."

program Pinigai;

var x, y, pin: real;

begin

WriteLn('Iveskite realuji skaichiu reishkianti litus ir centus');

Readln(pin);

x:= int(pin);

y:= frac(pin);

Writeln('Bus: ', x :8 :0, ' litu(-ai) ir ', y :0 :2, ' centu(-ai) .');

Readln;

end.