Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача с системой уравнений.
Форум «Всё о Паскале» > 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, если не затруднит, то объясни мне, где ты тут увидел систему уравнений (тока подробно) !!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.