как сделать вывод таблицы через massive для этой программы
Код:
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.
|