galit padet su fps uzdaviniu?

Krepsinio kamuolio skersmuo D. Turime deze, kurios vidaus aukstis, plotis ir ilgis - zinomi dydziai. Reikia nustatyti, ar visas kamuolys tikrai telpa dezeje.

gal galite sprendima buciau dekingas...

Nu tai patikrink. Jeigu kamuolio skersmuo yra mažesnis arba lygus dežės aukščiui, pločiui ir ilgiui, tai tada kamuolys tilps. Sprendimo nerašysiu, nes labai paprasta :)

Nu tai patikrink. Jeigu kamuolio skersmuo yra mažesnis arba lygus dežės aukščiui, pločiui ir ilgiui, tai tada kamuolys tilps. Sprendimo nerašysiu, nes labai paprasta :)

sprendima turiu bet kodel kalida meta?:( pataisyt galetumet?

program uzd1;

var D, h, l, b:real;

begin

WriteLn('ivesk kamuolio skersmeni');

Readln(d);

WriteLn('ivesk dezes auksti');

Readln(h);

WriteLn('ivesk dezes ilgi');

Readln(h);

WriteLn('ivesk dezes ploti');

Readln(b);

if D<=l and D<=b and D<=h then

writeln ('kamuolys telpa visas i deze') else

D<l and D<b and D>h;

writeln ('kamuolys telpa ne visas i deze');

readln;

end.

sprendima turiu bet kodel kalida meta?:( pataisyt galetumet?

 

program uzd1;

var D, h, l, b:real;

begin

WriteLn('ivesk kamuolio skersmeni');

Readln(d);

WriteLn('ivesk dezes auksti');

Readln(h);

WriteLn('ivesk dezes ilgi');

Readln(h);

WriteLn('ivesk dezes ploti');

Readln(b);

if D<=l and D<=b and D<=h then

writeln ('kamuolys telpa visas i deze') else

D<l and D<b and D>h;

writeln ('kamuolys telpa ne visas i deze');

readln;

end.

Kiek suprantu, tai čia klaida:

 D<l and D<b and D>h;
 writeln ('kamuolys telpa ne visas i deze');

jei taip?

program uzd1;
var D, h, l, b:real;
begin
 WriteLn('ivesk kamuolio skersmeni');
 Readln(d);
 WriteLn('ivesk dezes auksti');
 Readln(h);
 WriteLn('ivesk dezes ilgi');
 Readln(h);
 WriteLn('ivesk dezes ploti');
 Readln(b);
 if (D <= l) and (D <= b) and (D <= h) then
 writeln ('kamuolys telpa visas i deze')
 else
 writeln ('kamuolys telpa ne visas i deze');
 readln;

Kiek suprantu, tai čia klaida:

 D<l and D<b and D>h;
 writeln ('kamuolys telpa ne visas i deze');

jei taip?

program uzd1;
var D, h, l, b:real;
begin
 WriteLn('ivesk kamuolio skersmeni');
 Readln(d);
 WriteLn('ivesk dezes auksti');
 Readln(h);
 WriteLn('ivesk dezes ilgi');
 Readln(h);
 WriteLn('ivesk dezes ploti');
 Readln(b);
 if (D <= l) and (D <= b) and (D <= h) then
 writeln ('kamuolys telpa visas i deze')
 else
 writeln ('kamuolys telpa ne visas i deze');
 readln;

deqi

ai kaip dar paskalyje padaryt kad rodytu sveikaji skaiciu atsakyme?

writeln(ats:0:0);Tie :0:0 suapvalina iki sveiko skaičiaus.

program uzd4;

var B, N, K: real;

begin

WriteLn('ivesk prikastu bulviu maisu skaiciu');

Readln(B);

WriteLn('ivesk kiek bulviu maisu telpa vezime');

Readln(N);

K:= B div N;

writeln('Vaziavimu sk. ', K:0:0);

readln;

end.

galit pataisyt klaida, nes jei prikasa ukininkas 7 maisus o telpa i vezima tik 6 atsakymas turi buti vaziuos 2 kartus, bet man rodo kad viena karta tiktai :(

pagalvok ka parasei. jei ivedi 7 bulviu maisus ir nurodai kad i vezima tilps 6 maisai, tai tavo kodas 7 padalina is 6 ir paima sveikaja dali. o sveikoji dalis yra vienas, todel vieneta ir isveda. tau dar reikia 7 padalinti is 6 su mod'u (7 mod 6), kad gautum liekaja. tuomet patikrini: jei liekana ne nulis, prideda vieneta prie atsakymo, o jei nulis, palieka atsakyma koks yra

program uzd4;
var B, N, K: real;

begin
WriteLn('ivesk prikastu bulviu maisu skaiciu');
Readln(B);
WriteLn('ivesk kiek bulviu maisu telpa vezime');
 Readln(N);
 K:= B div N;
 if B mod N > 0 then
   k := k + 1;

writeln('Vaziavimu sk. ',  K:0:0);
readln;
end.

galit pataisyt klaida, nes jei prikasa ukininkas 7 maisus o telpa i vezima tik 6 atsakymas turi buti vaziuos 2 kartus, bet man rodo kad viena karta tiktai :(

Pataisiau tavo citatoje. Beje, naudok prasmingus kintamųjų vardus.

Program uzd13;

Var r, acx, acy, tx, ty, i, sk: Integer;

Begin

Write('Apskritimo spindulys');

ReadLn®;

Write('Apskritimo centro koordinates');

ReadLn(acx, acy);

writeln('iveskite kiek turite tasku:');

readln(sk);

for i := 1 to sk do

Write('Iveskite ', i, ' tasko koordinates');

ReadLn(tx, ty);

WriteLn;

sk:= (sqrt ( sqr(acx-tx) + sqr(acy-ty) ) < r);

writeln('Viduje ', 'sk:5:0', ' taskai');

readln;

End.

kodel man sitsam uzdavinyje meta klaida?

Program uzd13;

Var r, acx, acy, tx, ty, i, sk: Integer;

 

Begin

Write('Apskritimo spindulys');

ReadLn®;

Write('Apskritimo centro koordinates');

ReadLn(acx, acy);

writeln('iveskite kiek turite tasku:');

readln(sk);

for i := 1 to sk do

Write('Iveskite ', i, ' tasko koordinates');

ReadLn(tx, ty);

WriteLn;

sk:= (sqrt ( sqr(acx-tx) + sqr(acy-ty) ) < r);

writeln('Viduje ', 'sk:5:0', ' taskai');

readln;

End.

 

kodel man sitsam uzdavinyje meta klaida?

1. Kai klausi kodel meta KLAIDA - tai visada parasai KOKIA ir KOKIOJ EILUTEJ klaida tau meta.

2. Klaida kaip supratau meta ant sk := ... . Tu sveikam skaiciui bandai priskirti logine reiksme. Taip negalima.

3. Tu cia bandai suskaiciuot kiek ivestu skaiciu patenka i apskritima?

4. Jei taip, tai permastyk algoritma, nes visu pirma tai tavo FOR ciklas kartoja tik Write() operacija.