Nully

Xperia Z2

Kiek mokėjai ir iš kur užsisakei?

http://www.1a.lt/telefonai/mobilieji_telefonai/sony_c6903_xperia_z1_black

Užsisakiau pats xperia z1, ryt atsiimu, žėsim kaip bus, nemanau kad nusivilsiu. Taip pat girdėjau, kad nuplėšus plėvelę, anuliuojasi garantinis, bet kažkodėl abejoju, gal kas patvirtintų ?

Taip pat teko Z1 naudot, tikrai geras telefonas, žadu pirkti Z2 artimiausiu metu, daug domėjausi internete, ir radau daugiau pliusų pas Z2 nei S5. Samsungu daug kas skundžiasi dėl lago, prastos surinkimo kokybės. M8 Taip pat labai geras telefonas, bet man Z2 daug gražiau atrodo, geresnė kamera, didesnė baterija, truputį daugiau ramų, ir t.t., tad Z2 daug labiau traukia mane, asmeniškai.

Sveiki, gal kas ką nors naujo žinot apie šį pardavėją? Galvoju nepigų telefoną iš čia pasiimti, tai įdomu kaip su ta garantija, gal kas susidūrė su rimtesniais gedimais?

1. Jei užpildei 1. a 2. b 3. c, ir tavo konkursinio balo užtenka pirmu numeriu parašytam dalykui (a), tu į jį ir įstosi, o b ir c bus ignoruojami. Kituose turuose gali rizikuoti prarasti savo gautą vieta (šiuo atvėju a) ir apkeisti dalykus vietomis pagal prioritetus, pvz 1.b 2.c 3.a , tokiu atvėju, jei tavo KB patenkina b balą, tik į jį ir įstosi, jei netenkina, tada žiūrima į toliau einančius dalykus.

Išjungus visus garsus žaidime, nužudžius demoną vistiek yra garsas.

Smagus žaidimas, patiko :) Keep it up.

program Noname0;

type masReal = array[0..255] of real;
type masInt = array[0..255] of integer;

procedure skaitymas(var n:integer; var s,v:masInt; var sk,vk:masReal);
var duom: text;
   i: integer;
begin
   Assign(duom,'duomenys.txt');
   Reset(duom);
   Readln(duom,n);
   for i:=1 to n do
   begin
       Readln(duom,s[i],v[i],sk[i],vk[i]);
   end;
   Close(duom);
end;

procedure rasymas(var n:integer;var s,v:masInt; var sk,vk:masReal);
   var i:integer;
   var rez:text;
begin
   Assign(rez,'Rezultatai.txt');
   Rewrite(rez);
   for i:=1 to n do
   begin
       Writeln(rez,s[i]+v[i],' ',s[i]*sk[i]+v[i]*vk[i]:2:2);
   end;
   close(rez);
end;

var n: integer;
   s,v:masInt;
   sk,vk: masReal;
begin
 Skaitymas(n,s,v,sk,vk);
 Rasymas(n,s,v,sk,vk);
end.

Bėda

for i:=1 to n do
begin
   Readln(Df,M[i]);
   sum:=sum+M[i];
end;

Turėtų būti Readln, o ne Read, jei vienas duomuo parašytas vienoje eilutėje.

Read visada skaito vieną eilutę, taigi tavo atvėju jis perskaito tik vieną masyvo elementą.

Readln perskaitęs vieną duomenų eilutę, peršoka iškart į kitą.

Tu nenuskaitai tos n reikšmės, atidaręs failą skaitymui turi parašyti Readln(n); kad n turėtų kažkokią reikšmę, o tik poto su ja dirbti.

Taip klausinėdamas nieko neišmoksi.

Čia manau gera vieta pradėti mokytis:

http://www.cprogramming.com/tutorial/lesson1.html

sėkmės.

#include <iostream>
#include <stdlib.h> 

using namespace std;

main()
{
int n,m,sveik;
cin >> n;
cin >> m;
sveik=0;
while(n>=m)
{
	n=n-m;
	sveik++;
}
   cout << "sveika dalis " << sveik;
   cout << "\nliekana " << n;
}

while(n>=m)
   {
       n=n-m;
sveik++;
   }

n yra liekana, sveik yra dalmuo.

program Noname1;
   var a,b:integer;

procedure tikrinti(var a:integer);
var a1,i,j,b1:integer;
begin
   i:=0;
   j:=0;
   b1:=0;
   a1:=a;
   while a1 <> 0 do
   begin
       j:=j+1;
       b1:=a1 mod 10;
       a1:=a1 div 10;
       if b1 mod 2 = 0 then
       begin
           i:=i+1;
       end;
   end;
   if i = j then
   Writeln(a);
end;

begin
   Writeln('Iveskite intervala');
   Readln(a,b);
   while a <= b do
   begin
       tikrinti(a);
       a:=a+1;
   end;
   readln;
end.

Procedūroje dalini skaičių tol kol dalinasi iš 10, poto žiūri ar visi skaitmenys buvo lyginiai ar ne visi. Jei visi lyginiai - išvedi skaičių, jei ne - neišvedi. :)

program Noname0;
type masyvas = array[1..100] of integer;
 var d,r:text;
     i,n,isleistaIsViso,laimetaIsViso:integer;
     isleista,laimeta:masyvas;

/////// nuskaitymas
procedure nuskaitymas(var isleista,laimeta:masyvas);
begin
   assign(d,'duomenys.txt');
   reset(d);
   readln(d,n);
   for i:=1 to n do
   readln(d,isleista[i],laimeta[i]);
   close(d);
end;

/////// funkcija randanti pinigu suma (sudedanti masyvo elementus)
function suma(var mas:masyvas; n:integer):integer;
var laikina:integer;
begin
   laikina:=0;
   for i:=1 to n do
   laikina := laikina + mas[i];
   suma:=laikina;
end;

////// funkcija randanti max
function max(var mas:masyvas; n:integer):integer;
var didz,i:integer;
begin
   didz := 1;
   for i:=2 to n do
       if mas[i] > mas[didz] then
       begin
           didz := i;
       end;
   max:=mas[didz];
end;

/////// rasymas i faila
procedure rasymas(var isleista,laimeta:masyvas);
begin
   assign(r,'rezultatai.txt');
   rewrite(r);
   Writeln(r,suma(isleista,n),' ',suma(laimeta,n));
   Writeln(r,'Didziausias laimejimas: ',max(laimeta,n));
   if suma(laimeta,n) > suma(isleista,n) then
   begin
       Writeln(r,'Pelnas: ',suma(laimeta,n)-suma(isleista,n));
   end
   else Writeln(r,'Nuostolis: ',suma(isleista,n)-suma(laimeta,n));
   close(r);
end;

begin
 nuskaitymas(isleista,laimeta);
 rasymas(isleista,laimeta);
end.

Laukiu gero atsiliepimo ! :D

Klausk jei kas neaišku :)

Gali skaityti skaičius iš failo, sudėti juos į masyvą ir tada žiūrėti kuris didžiausias. :)

#include <fstream>
#include <iostream>
#include <stdlib.h>
#define MAX 255
using namespace std;

main ()
{
int n,j,masyvas[MAX],max=0;
ifstream failas;
failas.open("duom.txt");
failas >> n;
for (int i=0; i<n; i++)
{
	failas >> masyvas[i];
}
for(j=0; j<n; j++)
       {
              if(masyvas[j] > max)
              max = masyvas[j];
       }
cout << max;
}

Beje, kitą kartą pasakyk kokia kalba programuoji, tiksliau ko nori. :)

Tai tokiu atvėju tereiktų pridėti if skaicius > 0 then suma:=suma+skaicius;

program Noname0;
var suma,skaicius,visi,vid:real;
   i:integer;
begin
   visi:=1;
   for i:=1 to 100 do
       begin
           readln(skaicius);
           suma:=suma+skaicius;
           vid:=suma / visi;
           writeln('Vidurkis ',vid:2:2);
           Writeln;
           visi:=visi+1;
       end;
end.

Iš pradžių perskaitai skaičių, pridedi jį prie visų skaičių sumos, tada dalini iš skaičių kiekio kurį didini kiekvieną kartą įvedus skaičių. :)

Tau reikia skaityti viską tiesiai į struktūrą, kuri turi char/string elementą Vardas, ir sveikų skaičių masyvą.

struct dievas {
 char vardas[10];
 int taskai[MAX];
} ;

Perskaitai vieną eilutę - įdedi ją į struktūrą.

void skaitymas()
{
int i=0;
char vardas[10];
ifstream failas;
failas.open("u2.txt");
if (!failas)
{
	cout<<"Nepavyko nuskaityti failo";
	exit(1);
}
char c='a';
while (c != ' ')
{
	c = failas.get();
	vardas[i] = c;
	i++;
}
cout<<vardas;
}

Čia tau pavyzdukas kaip galėtum nuskaityti vardą, nes matau sunkiai sekasi tau. Skaitai po vieną simbolį, iki tol kol randi tarpą, tada jau gali pradėti skaityti skaičius. Galima gal ir gudriau sugalvot, bet taip irgi tiks.

1 užduotis be d.

#include <iostream>

using namespace std;

main()
{
int dalikliuKiekis=0, dalikliuSuma=0, n;
cin>>n;

for (int i=1; i < n; i++)
{
	if (n % i == 0)
	{
		dalikliuKiekis++;
		dalikliuSuma=dalikliuSuma + i;
	}
}
if (dalikliuKiekis < 2)	cout<<"Skaicius "<<n<<" yra pirminis\n";
else cout<<"Skaicius "<<n<<" nera pirminis\n";
cout<<"Dalikliu kiekis "<<dalikliuKiekis<<"\n";
cout<<"Dalikliu suma "<<dalikliuSuma<<"\n";
}

2 užduotis

#include <iostream>

using namespace std;

main()
{
int a,b,i,dalikliuKiekis=0;
cin>>a;
cin>>b;

for (a; a <= b; a++)
{
	for (i=1; i < a; i++)
	{
		if (a % i == 0)
		dalikliuKiekis++;
	}
	if (dalikliuKiekis <2 && a != 1 && a != 2) cout <<a<<"\n";
	dalikliuKiekis=0;
}
}

Nežinau kas yra tobuli skaičiai, jei pasakysi, vakare pabaigsiu programas :)

Tai parašyk tą uždavinį, gal kas ir padės :)

Nesvarbu, Viliaus kodas geresnis. :)

http://oi59.tinypic.com/15zrx1f.jpg

Sveiki, gal kas padėtų išspręsti šiuos uždavinius?

Sveiki, turiu laikinas teises kurios galioja iki 2014 m. vasario 4d. Ar man reikės lankyti kažkokius papildomus kursus, kad gaučiau normalias teises ? Prasižengęs nesu.