PAscal programma

Sākumlapa Forumi Software Cita programmatūra PAscal programma

Tiek skatīts 1 ieraksts (no 16 kopumā)
  • Autors
    Ieraksti
  • #150535
    eriksu2
    Participant

    Labdien! man ir jāizveido programma pascal , kura aprēķina rinķa līnijas garumu vai riņķa laukumu.. tos esmu izdarījis, bet nerzinu kā uztaisīti, piem. kad ieraksta negatīvu rādiusu, lai parāda ka risinājuma nav vai ka negativs negrib būt, tas parāda risinājumu pozitīvu

    Uses crt;

    var radiuss,result:real;

    var izvelne:string;

    begin

    Writeln(‘Ievadi rinka linijas radiusu!’);

    readln (radiuss);

    writeln (‘Ko rekinat? L – Laukumu, G – Garumu’);

    Readln (izvelne);

    If radiuss<0 then

    Writeln (‘Risinajuma nav’);

    If izvelne = ‘L’ then

    begin

    result := pi*radiuss*radiuss;

    writeln (‘Laukums ir ‘,result:2:2,’cm^2’);

    end;

    If izvelne = ‘G’ then

    begin

    result := 2*pi*radiuss;

    writeln (‘Garums ir ‘,result:2:2,’cm’);

    end;

    readln;

    end.

    īSak sakot lai kad ieraksta rādiusa vietā burtus, simbolus vai negatīvu, lai uzraksta ka nepareizi

    #227185
    mazais_zilonis
    Participant

    vienkāršākais –

    if negadīvs tad izdrukāt

    else rēķināt

    #227186
    Crow
    Participant

    If radiuss<0 then

    Writeln (‘Risinajuma nav’)

    ELSE

    begin

    If izvelne = ‘L’ then

    begin

    // blablabla

    end

    ELSE

    If izvelne = ‘G’ then

    begin

    // blablabla

    end

    end

    P.S. un vispār… nākamreiz, kad kaut ko prasi – uzraksti to, ko tev vajag, saprotamā valodā, ar pieturzīmēm, garumzīmēm. Vispār gribējās tevi pasūtīt iet taisni…

    #227187
    eriksu2
    Participant

    to crow : tad tevi arī ar līkumu jāsūta? ir gan garumzīmes, gan pieturzīmes !

    #227188
    Crow
    Participant

    Labdien! Man ir jāizveido programma Pascal_, kura aprēķina riņķa līnijas garumu vai riņķa laukumu tos esmu izdarījis, bet nerzinu, kā uztaisīti, piem., kad ieraksta negatīvu rādiusu, lai parāda, ka risinājuma nav, vai, ka negatīvs negrib būt, tas parāda risinājumu pozitīvu.

    ka negatīvs negrib būt, tas parāda risinājumu pozitīvu O_O

    Diagnoze: taurs

    #227189
    eriksu2
    Participant

    tev varbūt par skolotāju tad jāiet ,ne? Ja esi tik acīgs?

    #227190
    deivs001
    Participant

    Eriksu2, varbūt labāk apskaties uz savāk kļūdām un pasaki paldies, ka tev palīdzēja. Ne izliecies par ūberkadru, kas prot visu un visi vienmēr pārmet tikai kļūdas. Crow izlaboja tavu tekstu, jo tu jau uzstāji, ka esi salicis visas vajadzīgās pieturzīmes un garumzīmes.

    #227191
    eriksu2
    Participant

    Paldies! 🙂

    nelecos vienkārši atbildēju 🙂

    Ar šo mīnusu sapratu arī pielaboju pēc vajadzības, bet skolā mēģināju uztaisīt vēl, lai tad ja ievada nepareizo burtu tur kur izteikts garums G vai laukums L, ja ievada kādu citu burtu tad lai parāda ka apzīmējums nav pareizs.. izmēģināju : If (r=’q’) (r=’w”) .. writeln (‘burts nav pareizi izteikts’) tā visus liekos burtus izņemot G un L bet nesanāca..

    Varbūt kāds zina arī šo iespēju.

    #227192
    ob1
    Participant

    Kopš kura laika rādiuss nevar būt negatīvs? Atkal skolotāji izvaro skolēnu smadzenes…

    Autoram – lūdzu nodod skolotājam ziņu no ob1:

    “Tu, nedajātais loh, netuvojies skolai tuvāk kā kilometra rādiusā!”

    #227193
    nevertell
    Participant

    Fiziski nekas nevar būt negatīvs, pēc teorijas gan. Spēki jau ar nav negatīvi, tikai pretēji vērsti.

    #227194
    Crow
    Participant

    Vienkārši izstudē IF-THEN-ELSE konstrukcijas. Tās var likt vienu iekš otras līdz bezjēdzībai. Var arī kabināt beigās.

    Quote:

    If radiuss<0 then

    Writeln (‘Risinajuma nav’)

    ELSE

    begin

    If izvelne = ‘L’ then

    begin

    // blablabla

    end

    ELSE

    If izvelne = ‘G’ then

    begin

    // blablabla

    end

    ELSE

    Writeln (‘Nepareizs burts mlje!’);

    end;

    P.S. Cik nu es sajēdzu, algebrā rādiuss var būt negatīvs. Ä¢eometrijā nē. Bet man matemātikā švaki… ak nu jā, nevertell jau pateica 🙁

    P.S.S. Ar atkāpēm labāk varētu parādīt, kā tas darbojās, bet galu galā tam domāti mācību materiāli.

    #227195
    ob1
    Participant

    Nabadziņi… jūs arī skolotāja vietā lohi mācīja?

    #227196
    nevertell
    Participant

    tvaju maķ, cik šon noutpeds bugains.

    #227197
    nevertell
    Participant

    Tad nāc izmāci mūs, māster obī van kenŠbī.

    #227198
    ob1
    Participant

    Matemātika, bērni, ir zinātnes valoda. Un, ja matemātika saka, ka var, tad var.

    Patiesībā matemātika ir reālitāte, nevis mūsu iztēle (ka rādiuss nevar būt negatīvs).

    Matemātikā nav pretrunas. Ä¢eometrija nav (un nekad nebūs) pretrunā ar algebru. Matemātika ir skaista, vienota celtne, tajā nav vietas dogmām (kā reliģijā).

    Jebkurš dogmatisms matemātikas celtni padara šķību – un galu galā tā sabrūk… un, tas, ka skolā mēģina mācīt matemātiku ar dogmām… tā vairs nav matemātika… un paliek sarežģīta un neinteresanta.

    Kas attiecas uz negatīvo rādiusu… mēģinājums paskaidrot vienkāršā valodā atrodams šeit:

    https://answers.yahoo.com/question/index?qid=20080814025918AAcbYGv

    lai gan patiesība ir daudz vienkāršāka, bet to grūti izprast ar dogmatisku domāšanu.

    Free your mind – tas nozīmē “izmet dogmas no savām smadzenēm”. Jo ar dogmām matemātika no skaista, vienkārša grafa pārvēršas par smagu, nerisināmu lineārās programmēšanas uzdevumu ar dauuuuudz nevienādībām…

    Hmm, atcerējos vecu džedaju parunu – ja tava krāna izmērs ir negatīvs… nu, tad tu droši vien esi sieviete.

    🙂

    #227199
    eriksu2
    Participant

    āā ar ELSE jāpieliek.. paldies sapratu..

    Par to negatīvo rādiusu, jā protmas ka nevar būt, bet ja programmā ievadi negatīvu, piemēram -10, tad programma uzprasa ko rēķināt paņemam piem. L un tad programma parāda, ka Laukums ir Pi*r*r= ~300 cm^2

Tiek skatīts 1 ieraksts (no 16 kopumā)
  • Jums ir jāpieslēdzas sistēmai, lai varētu komentēt šo tēmu.
Jaunākais portālā