Omul la întrebat pe Pascal. Pentru Delphi, această întrebare nu are sens deloc.
Ei bine, dacă asta sa întâmplat, atunci în TP. Sau pe același dolph pentru consolă scrie. Nu va fi nici o diferenta (intre ea si turbo).
Ajutați la scrierea programelor, aici pentru aceste sarcini, în Pascale este zero.
1. Având în vedere un număr natural n. Calculați.
S = 1 * 2 + 2 * 3 * 4 +. + n * (n + 1) *. * 2n.
Despre triunghiul:
mai întâi verificăm că laturile îndeplinesc inegalitatea triunghiului:
a, b, c: laturile unui triunghi, a<=b+c; b<=c+a; c<=b+a;
atunci găsim zona conform formulei lui Heron:
p = P / 2, unde P este perimetrul triunghiului
pătratul este rădăcina pătrată a p (p-a) (p-b) (p-c)
Programul arată astfel:
Programul P1;
var a, b, c, s, p: întreg;
începe
writeln ("Am citit un ');
readln (a);
writeln ('citește b');
(b);
writeln ("Am citit c ');
readln (c);
dacă (a<=b+c) and (b<=c+a) and (c<=b+a) Then
începe
p: = (a + b + c) / 2;
s: = sqrt (p * (p-a) * (p-b) * (p-c));
writeln ("zonă egală cu", s);
end else writeln ("aceste numere nu sunt laturile unui triunghi");
END.
P.S. Am scris pe pascal pentru o lungă perioadă de timp, pot exista ochepyatki, dar în general ar trebui să funcționeze
P.P.S. pe care am vrut-o de fapt.
dacă în codul din numerele de unitate sunt introduse, puteți lucra cu ele ca un șir, dar cum pot fi convertite la un tip întreg?
Da, și despre pisicile cu șoareci,
O jumătate de oră și jumătate pisică mănâncă șoareci și jumătate. înseamnă trei pisici în 1,5 ore vor mânca Trei șoareci, cu alte cuvinte, unul kis horsens un rozător pentru 1,5 ore
X pisici, ore Y, să fie șoareci N, atunci
N = X * Y / 1,5;
cum să citească și cum să afișeze datele deja menționate, tipul de variabile mai bune cere o reală, astfel încât eroarea nu merge, în cazul în care există din nou pisica fracționată:
Var n, x, y: real;
și citiți sinopsele, pentru că dacă există un bug stupid, nu îl puteți găsi singur și 3 va fi suficient
dacă în codul din numerele de unitate sunt introduse, puteți lucra cu ele ca un șir, dar cum pot fi convertite la un tip întreg?
StrToInt (Edit.Text)
2. Orezul este ambalat în două pachete. Masa primului este m kg, a doua - n kg. Efectuați un program care determină: care pachet este mai greu - primul sau al doilea; greutatea unui pachet mai greu.
Hmm ..
Pachete de programe;
Var m, n: Integer;
Writeln ('Introduceți greutatea primului pachet:');
Citiți (m);
Writeln ('Introduceți greutatea celui de-al doilea pachet:');
Citiți (n);
Dacă m> n atunci
Writeln ("greutate 1> greutate 2 ');
Dacă m
Writeln ("Greutățile sunt egale");
Writeln ('Apăsați enter pentru ieșire');
readln;
Sfârșit.
P.S. Mă simt stânjenit de explicat, dacă nu este clar, întrebați
dar, în general, noi nu mi-a descoperit curent Americii am mâzgălit acest nonsens, și eu figura Th se transformă pe acesta și a cerut
procedura TForm1.Edit20Exit (Expeditor: TObject);
var i, j: întreg;
începe
Excel.Range ['h3']: = Editare20.Text;
i: = StrToIn (Edit20.Text);
j: = StrToIn (Edit10.Text);
Edit21.Text: = i * 100 / j
se încheie;
pe i: = StrToIn (Edit20.Text); eroarea da
totuși, poate scrie real?
nu, încă nu-mi place
Și de ce ToIn?
Citiți că compilatorul scrie ceva. Erori sunt descifrate dacă Th. Și scrie aici.
Edit21.Text: = i * 100 / j
Incompatibilitate tip
Edit21.text este de tip șir, iar expresia i * 100 / j este un tip real, deci nu îl puteți atribui.
modifica
Edit21.Text: = floattostr (i * 100 / j);
Comanda floattostr, în consecință, traduce tipul real într-un șir)
procedura TForm1.Edit20Exit (Expeditor: TObject);
var i, j: întreg;
începe
Excel.Range ['h3']: = Editare20.Text;
i: = StrToIn (Edit20.Text);
j: = StrToIn (Edit10.Text);
Edit21.Text: = i * 100 / j
se încheie;
Nu cred că pentru o mironosiță, dar nume precum „Edit21“ situat pe „Form1“ sugerează, că toate au nevoie de un pic de re-scriere
Nu-l luați ca un prude, dar nume precum "Edit21" pe "Form1" sugerează că trebuie să rescrieți totul puțin
dar am pagini))
și eroarea Nu s-a putut compila unitatea utilizată "Unit1.pas"
procedura TForm1.Edit20Exit (Expeditor: TObject);
var i, j: întreg;
începe
Excel.Range ['h3']: = Editare20.Text;
i: = StrToInt (Edit20.Text);
j: = StrToInt (Edit10.Text);
Edit21.Text: = floattostr (i * 100 / j);
se încheie;
și eroarea Nu s-a putut compila unitatea utilizată "Unit1.pas"
Începeți cu prima eroare din listă