PAscal programma

Moderatori: janis.wd, Vecākie lietotāji

eriksu2
Reģistrēts lietotājs
Atbildes: 130
Pievienojies: 12 Okt 2009, 19:58
Reputācija: 0

PAscal programma

Post no eriksu2 » 03 Feb 2010, 14:54

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

User avatar
mazais_zilonis
E-žurnālists
Atbildes: 77
Pievienojies: 24 Feb 2009, 19:35
Reputācija: 0
Atrodas: Valmiera

Post no mazais_zilonis » 03 Feb 2010, 15:20

vienkāršākais -
if negadīvs tad izdrukāt
else rēķināt

User avatar
Crow
E-žurnālists
Atbildes: 5391
Pievienojies: 10 Mai 2009, 14:22
Reputācija: 0
Atrodas: Ir

Post no Crow » 03 Feb 2010, 15:50

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...
Дебилы, бл*ть...

eriksu2
Reģistrēts lietotājs
Atbildes: 130
Pievienojies: 12 Okt 2009, 19:58
Reputācija: 0

Post no eriksu2 » 04 Feb 2010, 13:59

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

User avatar
Crow
E-žurnālists
Atbildes: 5391
Pievienojies: 10 Mai 2009, 14:22
Reputācija: 0
Atrodas: Ir

Post no Crow » 04 Feb 2010, 14:30

Labdien! Man ir jāizveido programma Pascal_, kura aprēķina riņķa līnijas garumu vai riņķa laukumu... to[s]s[/s] esmu izdarījis, bet ne[s]r[/s]zinu, 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
Дебилы, бл*ть...

eriksu2
Reģistrēts lietotājs
Atbildes: 130
Pievienojies: 12 Okt 2009, 19:58
Reputācija: 0

Post no eriksu2 » 04 Feb 2010, 14:53

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

deivs001
Vecākais lietotājs
Atbildes: 2011
Pievienojies: 14 Mar 2007, 13:45
Reputācija: 0

Post no deivs001 » 04 Feb 2010, 14:57

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.
"You can't expect to hit the jackpot if you don't put a few nickels in the machine" / Flip Wilson
Image

eriksu2
Reģistrēts lietotājs
Atbildes: 130
Pievienojies: 12 Okt 2009, 19:58
Reputācija: 0

Post no eriksu2 » 04 Feb 2010, 16:54

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.

ob1
Reģistrēts lietotājs
Atbildes: 2959
Pievienojies: 23 Mar 2009, 22:01
Reputācija: 0
Atrodas: Sigulda

Post no ob1 » 04 Feb 2010, 17:15

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ā!"

nevertell
Reģistrēts lietotājs
Atbildes: 2885
Pievienojies: 13 Mar 2009, 23:25
Reputācija: 0

Post no nevertell » 04 Feb 2010, 17:30

Fiziski nekas nevar būt negatīvs, pēc teorijas gan. Spēki jau ar nav negatīvi, tikai pretēji vērsti.
You're the moron they built to make me an idiot.

User avatar
Crow
E-žurnālists
Atbildes: 5391
Pievienojies: 10 Mai 2009, 14:22
Reputācija: 0
Atrodas: Ir

Post no Crow » 04 Feb 2010, 17:34

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.
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.
Дебилы, бл*ть...

ob1
Reģistrēts lietotājs
Atbildes: 2959
Pievienojies: 23 Mar 2009, 22:01
Reputācija: 0
Atrodas: Sigulda

Post no ob1 » 04 Feb 2010, 17:52

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

nevertell
Reģistrēts lietotājs
Atbildes: 2885
Pievienojies: 13 Mar 2009, 23:25
Reputācija: 0

Post no nevertell » 04 Feb 2010, 18:14

tvaju maķ, cik šon noutpeds bugains.
Last edited by nevertell on 04 Feb 2010, 18:15, edited 1 time in total.

nevertell
Reģistrēts lietotājs
Atbildes: 2885
Pievienojies: 13 Mar 2009, 23:25
Reputācija: 0

Post no nevertell » 04 Feb 2010, 18:14

Tad nāc izmāci mūs, māster obī van kenŠbī.
You're the moron they built to make me an idiot.

ob1
Reģistrēts lietotājs
Atbildes: 2959
Pievienojies: 23 Mar 2009, 22:01
Reputācija: 0
Atrodas: Sigulda

Post no ob1 » 04 Feb 2010, 18:32

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:
http://answers.yahoo.com/question/index ... 918AAcbYGv
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.
:)

eriksu2
Reģistrēts lietotājs
Atbildes: 130
Pievienojies: 12 Okt 2009, 19:58
Reputācija: 0

Post no eriksu2 » 05 Feb 2010, 07:29

āā 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

Pievienot atbildi

Return to “Cita programmatūra ”