Palidziet (Pascal)

Uzdevums ir:
Ievadīt taisnstūra  formas skārda gabala izmērus A,B. Noteikt, vai no šī skārda gabala var izgriezt divus riņķus ar rādiusu R. Lielumus A,B,R ievadīt.

program lab3;
 uses crt;
   var A,B,R: integer;
begin
 clrscr;
   writeln('ievadiet A un B');
   readln(A,B);
         writeln('ievadiet R');
         readln(R);
if ( A>2*R ) and ( B>4*R ) then writeln('var izgriezt')
       else writeln('nevar izgriezt');
readln;
end.

vēlos zināt vai šāda programma ir pareiza !

Komentāri:

#1 KaNeiet @ 2009.10.20 20:55

Sāc ar http://www.datuve.lv/noteikumi/ un tēmas nosaukuma labošanu.

Kas liedz pārbaudīt?
Tikai uzmetot aci jau skaidrs, ka nav gan - nosacījumos  nav teikts, ka A>B vai otrādi, kā arī, ka tie un R ir veseli skaitļi.

Bez tam - nebūt jau ne obligāti griežot abu riņķu centriem jābūt uz malai paralēlas līnijas -  pieļauju, ka šādu gadījumu analizēt būs komplicētāk, tiec vispirms galā ar jau minēto.

#2 Knight @ 2009.10.20 20:56

ir taada kompileeshana un paarbaudiishana praksee...
lasiit netaisos.
acis zheel

#3 sqlnd @ 2009.10.20 21:01

Autor, atceries ka der arī vienādi lielumi =]