lincikas79
-
Pranešimai
22 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
lincikas79 Pranešimai
-
-
Ačiū už pagalbą, pasirodo iš tiesų neužsakyta talpinimo paslauga...
Sėkmės visiems...
-
prisjunges cp.hostex.lt
eini
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.
-
-
-
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.
Reikia pagalbos su hostex
Hostingas ir serveriai
Atrašyta
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: