fps uzduotis

Sudarykite funkciją, atsakančią į klausimą „Kuriame žemyne yra nurodyta valstybė?" Kiekvienam žemynui (išskyrus Antarktidą ir Australiją) parinkite ne mažiau kaip po 5 žinomas ir ne mažiau kaip po 5 mažai žinomas valstybes.

gal galit kas padet? :/

Jezau marija, kam emei programavima jei tokio elementaraus nepadarai?

sukuri zemynus (su arrays?), juos uzpildai valstybemis, tada padarai f-ja, kuri tikrina, kuriam masyve toks yra?

Arba dar kaip nors.

program aa;

type Mas = array [1..100] of string;

var salis : mas;

lol : string;

function klausti (s: string) : string;

var i : integer;

begin

//mas[1..10] - europa

Mas[1]:= 'Lietuva';

Mas[2]:= 'Lenkija'; // iki galo

for i := 1 to 50 do

if s = mas then begin

case i of

1..10 : klausti := Europa;

11..20 : klausti := P. Amerika;

21..30 : klausti := Azija;

//taip iki visų

end;

end;

read (lol);

klausti (lol, lol);

writeln (lol);

end.

Turėtų veikt, gal sintaksės klaidos nebent.

Sudarykite funkciją, atsakančią į klausimą „Kuriame žemyne yra nurodyta valstybė?" Kiekvienam žemynui (išskyrus Antarktidą ir Australiją) parinkite ne mažiau kaip po 5 žinomas ir ne mažiau kaip po 5 mažai žinomas valstybes.

 

gal galit kas padet? :/

Na galėjai sąlygą truputi aiškiau aprašyti, bet kaip supratau, taip ir padariau. Duomenis susivesi pagal save, keletą pavyzdžių parašiau.

p.s. Jei reiks galiu pataisyti.

program zemynai;

//Funkcija
  function nustatom (var ats: string; salis:string) :string;
  begin
  //EUROPA
  if 'lietuva' = salis then ats := 'Europai';
  if 'latvija' = salis then ats := 'Europai';
  if 'estija' = salis then ats := 'Europai';
  //EUROPA

  //AFRIKA
  if 'nera' = salis then ats := 'Afrikai';
  //AFRIKA

   //AMERIKA
  if 'nera' = salis then ats := 'Amerikai';
  //AMERIKA

   //AZIJA
  if 'nera' = salis then ats := 'Azijai';
  //AZIJA

  //IR T.T.

  end;
//Funkcijos pabaiga

var duomenys, zemynas:string;
begin
writeln('Įveskite valstybės pavadinimą?');
read(duomenys);
nustatom(zemynas,duomenys);
write('Nurodyta valstybė priskirta: ',zemynas);
Readln;
Readln;
end.

Yr 6 žemynai, tai Tavuosius if'us galime keisti:

case salis of

'Lietuva' : ats := 1;

'Latvija' : ats := 1;

'Estija' : ats := 1;

'Lenkija' : ats := 1;

'Suomija' : ats := 1;

'Vokietija' : ats := 1;

'Nigerija' : ats := 2;

'Ir taip toliau' : ats := 2; //iki galo

end;

case ats of

1 : ats := 'Europa';

2 : ats := 'Afrika';

3 : ats := 'Amerika';

ir t.t.

O dar gudriau nebūtų sudaryt su tekstiniu failu?

Yr 6 žemynai, tai Tavuosius if'us galime keisti:

case salis of

<..>

Ar aš kažką blogai padariau?

Man toks klausimas.. Kuo skirias

function labas (var a:string);

nuo

function labas (a:string);

?

Man toks klausimas.. Kuo skirias

program Bevardė40;
var s: string;
   x: boolean;

function pirma (var a: string): boolean;
begin
   a := 'Kažkas kito';
   pirma := true;
end;

function antra (a: string): boolean;
begin
   a := 'Kažkas kito';
   antra := true;
end;

begin
   s := 'Pradinis s';
   x := pirma(s);
   writeln(s); // Išveda 'Kažkas kito'

   s := 'Pradinis s';
   x := antra(s);
   writeln(s); // Išveda 'Pradinis s'

   Readln;
end.

Man irgi case'as pirmiausia atėjo į galvą, tačiau paskui patikrinau, ir pamačiau, kad pascalis yra neprotinga programavimo kalba ir stringų (arba array of char) į case kintamąjį nepriima. :)

Ar aš kažką blogai padariau?

Nu kad lig ir buvo, kažkaip buvau sugebėjęs pasileist. Bandysiu prisimint. O gal ir sapnavau tada..

tame ir esme, kad su paskaliu kaikurias funkcijas sunku atlik. beto destytojas per paskaitas nieko neaiskina, kartais per jas sedi ir skaito delfi, jai jo pakjausi tai jis tik pasiziures kvailu zvilgsniu i tave. tipo daryk kaip nori. beto paskalio jau nebesimokau. cia is algorimtu. o salygos kokios duotos tokias nukopinau, nors nera aiskios

aciu uz pagalba darex. bet destyojui netiks, nes su type turi but padaryta

aciu uz pagalba darex. bet destyojui netiks, nes su type turi but padaryta

Padariau su type. Jei reiks pagalbos sakyk, nes laisvalaikiu kai neturiu ką veikti mėgstu programuoti.

program zemynai;
const max = 100;
type mas = array [1..max] of string;

//Funkcija
  function nustatom (var ats: mas; salis:string) :string;
  var i: integer;
  begin
  i:=1;
  //EUROPA
  if 'lietuva' = salis then ats[i] := 'Europai';
  if 'latvija' = salis then ats[i] := 'Europai';
  if 'estija' = salis then ats[i] := 'Europai';
  //EUROPA

  //AFRIKA
  if 'nera' = salis then ats[i] := 'Afrikai';
  //AFRIKA

   //AMERIKA
  if 'nera' = salis then ats[i] := 'Amerikai';
  //AMERIKA

   //AZIJA
  if 'nera' = salis then ats[i] := 'Azijai';
  //AZIJA

  //IR T.T.

  end;
//Funkcijos pabaiga

var duomenys:string; zemynas:mas;
begin
writeln('Áveskite valstybës pavadinimà?');
read(duomenys);
nustatom(zemynas,duomenys);
write('Nurodyta valstybë priskirta: ',zemynas[1]);
Readln;
Readln;
end.

aciu :)

Tema gana sena, tačiau neseniai pats gavau šį uždavinį su tema vardinis tipas, tai mano variantas būtų

Function kur(x:valstybes):zemynai;

var val:valstybes;

n:integer;

begin

n:=50;//apsidrauziam jei nerastu

for val:=Prancuzija to Gajana do //nuo pirmojo eiles numerio iki paskutiniojo

if x=val then begin n:=ord(val); break; end;/*jei randama valstybe, grazinamas eiles numeris ord(val)*/

case(n div 10) of //kadangi miestu po 10 ir jie surikiuoti pagal valstybes, tai 0-9 eiles nr bus Europa ir t.t.

0: begin writeln(‘Europoje‘); kur:=Europa; end;

1: begin writeln(‘Azijoje‘); kur:=Azija; end;

2: begin writeln(‘Afrikoje‘); kur:=Afrika; end;

3: begin writeln(‘Siaures Amerikoje‘); kur:=Siaures_Amerika; end;

4: begin writeln(‘Pietu Amerikoje‘); kur:=Pietu_Amerika; end;

end;

end;

Programa patikrinimui ir tipo apibrėžimas atrodytų

type valstybes=(Prancuzija, Ispanija, Italija, Graikija, Olandija, Lietuva, Latvija, Estija, Lenkija, Slovakija,

Rusija, Irakas, Turkija, Kinija, Japonija, Taivanas , Filipinai, Indija, Vietnamas, Pakistanas,

Senegalas, Nigerija, Gana, Tunisas, Marokas, Egiptas, Kongas, Uganda, Etiopija, Burundis,

Kanada, JAV, Meksika, Belizas, Gvatemala, Honduras, Salvadoras, Nikaragva, Kostarika, Panama,

Argentina, Bolivija, Brazilija, Ekvadoras, Kolumbija, Paragvajus, Peru, Ugugvajus, Venesuela, Gajana);

zemynai=(Europa, Azija, Afrika, Siaures_Amerika, Pietu_Amerika);

var val,x:valstybes;

zem:zemynai;

begin

val:=Rusija;

zem:= kur(val);

end.

Pastaba kadangi užduotis reikalauja funkcijos tai ji savo ruožtu turėtų kažką gražint todėl apsibrėžiau tipa zemynai, ir dar funkcija turi atsakyti į klausimą, tai case teko išplėsti į išvedimą ir funkcijos reikšmės grąžinimą. Atrodo gal ir gremesdiškai, bet apibrėžtas vardinis tipas