Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача с системой уравнений.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Dnevnoy DOZOR
Если не затруднит, то... smile.gif (тока подробно). Заранее спасибо.

Составить программу вычисления
...../t²+z², если t>z
p=|
.....\t²-z², если t<=z
Altair
Пример входных и выходных данных в студию
klem4
А помойму все понятно ;)

uses crt;
var
   t,z,p : single;
begin
   clrscr;
   write('t='); readln(t);
   write('z='); readln(z);
   p := 0;
   if t>z then
    p := t*t+z*z
   else
    p := t*t-z*z;

   writeln('p = ',p:4:2);
   readln
end.


М
Это утром... а в час ночи все гораздо сложнее... smile.gif
Altair



М
Особенно когда в этот самы час ночи задачин на Си решаешь да ? lol.gif
klem4

volvo
Dnevnoy DOZOR, если не затруднит, то объясни мне, где ты тут увидел систему уравнений (тока подробно) !!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.