Programozás delphi

A férfi megkérdezte Pascalt. Delphi számára ez a kérdés egyáltalán nem értelmezhető.

Nos, ha ez történt, akkor TP-ben. Vagy ugyanazon a dolphin a konzol írni. Nem lesz különbség (a turbó között).

Súgó programok írása, itt ezekre a feladatokra, a Pascale-ban egy teljes nulla.

1. Adott természetes szám n. Számolja.
S = 1 * 2 + 2 * 3 * 4 +. + n * (n + 1) *. * 2n.

A háromszögről:
először ellenőrizzük, hogy az oldalak kielégítik-e a háromszög egyenlőtlenségét:
a, b, c: háromszög oldalai, a<=b+c; b<=c+a; c<=b+a;

akkor megtaláljuk a területet Heron szerint:
p = P / 2, ahol P a háromszög peremvonala
a négyzet a p (p-a) (p-b) (p-c) négyzetgyöke,

A program így néz ki:

P1 program;
var a, b, c, s, p: egész szám;
kezdődik
writeln ("olvastam");
readln (a);
writeln ("olvas b");
readln (b);
writeln ("olvastam c");
readln (c);
ha (a<=b+c) and (b<=c+a) and (c<=b+a) Then
kezdődik
p: = (a + b + c) / 2;
s: = sqrt (p * (p-a) * (p-b) * (p-c));
writeln ("terület egyenlő", s);
end else writeln ('ezek a számok nem háromszög oldalai');
END.

P.s. Pascalra írtam sokáig, lehet ochepyatki, de általában működnie kell

P.P.s. amit valójában akartam.
ha a meghajtó számában megadott kódban be van írva, akkor együtt dolgozhatsz velük, de hogyan lehet őket egész számra konvertálni?

Igen, és az egérrel rendelkező macskákról,
Másfél és fél macska egy és fél egeret eszik. Három egér 1,5 óra alatt eszik Három egér, vagyis egy kis horgász egy rágcsán 1,5 órán keresztül
X macskák, Y órák, legyen N egér, akkor
N = X * Y / 1,5;

hogyan kell elolvasni és hogyan kell megjeleníteni a már megírt adatokat, a változók típusa jobban valósul meg, így a hiba nem jön ki, ha ismét frakcionált macskák vannak:

Var n, x, y: valós;
és olvasd el a szinopszokat, mert ha hülye hiba van, akkor nem találod meg magad, és 3 elegendő

ha a meghajtó számában megadott kódban be van írva, akkor együtt dolgozhatsz velük, de hogyan lehet őket egész számra konvertálni?
StrToInt (szerkesztés szöveg)

2. A rizst két csomagban csomagolják. Az első tömeg m kg, a második - n kg. Készítsen egy programot, amely meghatározza: melyik csomag nehezebb - első vagy második; egy nehezebb csomag súlya.
Hmm ..
Programcsomagok;
Var m, n: Integer;
Writeln ('Írja be az első csomag súlyát:');
Olvassa (m);
Writeeln ('adja meg a második csomag súlyát');
Olvassa el (n);
Ha m> n akkor
Írja ("súly 1> súly 2");
Ha mWriteeln ("súly 1 Ha m = n akkor
Writeln ("Súlyok egyenlők");
Writeln ('Nyomja meg az enter-ot kilépéshez');
readln;
Vége.

Ui Függetlenül elmagyarázom, ha ez nem egyértelmű, kérdezd meg

Igen, általában nem Amerikát nyitották meg nekem, megdöbbentettem az áramot, és gondoltam, hogy a Che-t megkaptam, és megkérdeztem

eljárás TForm1.Edit20Exit (Feladó: TObject);
var i, j: egész szám;
kezdődik
Excel.Range ['h3']: = Edit20.Text;
i: = StrToIn (szerkesztés20.Text);
j: = StrToIn (Szerkesztés10.Text);
Edit21.Text: = i * 100 / j
végén;

i: = StrToIn (szerkesztés20.Text); a hiba ad

bár lehet valódi írni?

nem, még mindig nem tetszik

És miért?
Olvassa el, hogy a fordító valamit ír. A hibák megfejtésre kerülnek, ha Th. És írj ide.

Edit21.Text: = i * 100 / j
Írja be az összeférhetetlenséget
A Edit21.text típusú karakterlánc, és az i * 100 / j kifejezés valódi típus, ezért nem tudod hozzárendelni.
módosítására
Edit21.Text: = floattostr (i * 100 / j);
A floattostr parancs ennek megfelelően az igazi típust egy karakterláncba konvertálja)

Ne vegye be prudának, de olyan nevek, mint a "Edit21" az "Form1" -en azt sugallják, hogy mindent újra kell írni

Ne vegye be prudának, de olyan nevek, mint a "Edit21" az "Form1" -en azt sugallják, hogy mindent újra kell írni
de vannak oldalam))

és a hiba A "Unit1.pas"

eljárás TForm1.Edit20Exit (Feladó: TObject);
var i, j: egész szám;
kezdődik
Excel.Range ['h3']: = Edit20.Text;
i: = StrToInt (Edit20.Text);
j: = StrToInt (Edit10.Text);
Edit21.Text: = floattostr (i * 100 / j);
végén;

és a hiba A "Unit1.pas"

Indítsa el az első hibát a listában

Kapcsolódó cikkek

előző ◈ a következő