Varbūt kādam ir idejas programmas kodam

[a7x*]

Lietotājs ievada no tastatūras teksta mainīgo A. Ievada arī teksta mainīgo B un C.  A,B,C var būt gan vārds, gan nesakarīga simbolu virkne, jebkas.

Programmai ir jāparbauda vai  teksta mainīgais A sākas ar Y un ir vienāds ar kādu no teksta mainīgajiem B vai C

[kazarma]

...

 

Vecīt šitik elementāram uzdevumam domāju piemēru ir pilns internets.....

 

Tas ir tas pats kā jautāt "kā man pakaļu noslaucīt?"

 

Lai kur tu arī mācītos vienmēr dod līdzi paraugus, ja nevīžo apmeklēt lekcijas un/vai praktiskās nodarbības, tad rēķinies arī ar sekām vai maksā kādam par tava uzdevuma izpildi.

Labots Janvāris 20, 2013 - kazarma

[kirils]

function verify(a,b,c){ return a[0]=='Y' && (a==b || a==c);}

[kazarma]

Kiril cik tev tas ilgi aizņēma 10s, lai izdomātu un 30s lai uzrakstītu....

 

Kā arī var redzēt, ka tavā risinājuma ir izmantots minimālisms, ko nomālā gadījumā iesācēji neprastu uzrakstīt.

 

Es domāju, ka reāli pasniedzējs gaidīs vismaz vienu IF , bet tavā gadījumā ir uzrakstīta jau gatava funkcija. 

 

Es uzskatu, ka šādiem cilvēkiem barot ar karoti ir kaitīgi. Viņiem pašiem būtu jāiemācās pattstāvība...

Labots Janvāris 20, 2013 - kazarma

[kirils]

viņam jau vēl jāpacīnās, lai ievads uzrakstītu ;p

tā jau tik vien kā funkcija, kas starp citu ir gana vienkārša, lai viņu varētu izprast ar interneta info palīdzību.

[archezz]

Šis uzdevums bik pārsteidz ar tā uzdošanas laiku, janvāra vidus, jo šāds piemērs, ja nemaldos, tad varēja būt pirmā kursa pašā sākumā, nu labi vidū.

ja nu vienīgi nenokārtoti parādi

[a7x*]

Ja sanāk noslimot pāris nedēļas semestra beigās ,tad sakrājas darbi un nav jau jāapgūst tikai viens priekšmets. Paldies par ideju izmantot funkcijas,tomēr vēl nav pasniegts tas.

Man sanāca šāds risinājums

program simboli;
uses crt;
var A,B,C,Z,L,T,F,G:string;
var n,m,k,s,sk,q: integer;
begin
clrscr;
Z:='Y';
writeln (Z);
readln(A);
readln(B);
readln©;
s:=0;
sk:=0;
If copy(A,1,1)=Z then writeln ('Sakas ar Y')
                 else writeln ('Nesakas ar Y');

n:=length(A);
m:=length(B);
k:=length©;
q:=0;
If  n=m then begin
             writeln('A un B ir vienada garuma');
             repeat
             q:=q+1;
             if copy(A,s,1)=copy(B,s,1) then s:=s+1;
             until q>=n;
             end
else writeln('A un B nav vienada garuma');
If  s=n then writeln  ( 'A un B ir vienadas')
        else writeln ('A un B nav vienadas');
q:=0;
If  n=k then begin
             writeln('A un C ir vienada garuma');
             repeat
             q:=q+1;
             if copy(A,s,1)=copy(C,s,1) then sk:=sk+1;
             until q>=n;
             end
else writeln('A un C nav vienada garuma');
If  sk=n then writeln  ( 'A un C ir vienadas')
        else writeln ('A un C nav vienadas');

readln
end.
 

[kirils]

ak dies, pascal.

[itanium]

A ko tu gribēji?

[eddyboi]

Es arī pēc tēmas nesapratu kādā valodā prasa, bet paskatījos tagus, tad sapratu. Vispār jau derētu izlabot un ierakstīt tēmā arī.

[javastar]

Na dannij moment samim populjarnim jazikom programmirovanija javljaetsja Java.

Kak professionaljnij programmer skazu chto na Java programmirujut pocti vse samie bolshie IT kompanii v Latvii. Otkroite cv.lv i pocitaite vakansii po programmirovaniju!

 

Esli estj zelanie nacatj izuchatj Java prihodite na nashi kursi JavaGuruLV.

www.javaguru.lv

javagurulv.wordpress.com

www.facebook.com/JavaGuruLV

 

Pocitaite pro nas, nashi kursi odni iz ludshih v Latvii tak kak na nih prepodajut professionali!