как сделать вывод таблицы через massive для этой программы
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | program Project2;
{$APPTYPE CONSOLE}
var
q,a,z,Result1,result2: integer ;
begin
writeln ( 'V=V0+-a*t from it we have V0=V+-a*t' );
writeln ( 'write here value of V' );
readln(q);
writeln ( 'write here value of a' );
readln(a);
writeln ( 'write here value of t' );
readln(z);
Result1:=q+a*z;
result2:=q-a*z;
Writeln ( 'RESULT in formula with plus: ' , Result1);
writeln ( 'RESULT in formula with minus' , result2);
Readln;
end .
|
Админ: Пользуемся тегами для оформления кода.
Последний раз редактировалось Admin, 26.12.2013 в 19:28.
|