Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 27.02.2011, 23:13   #11 (permalink)
Хелен
Sparkling
 
Аватар для Хелен
 
Регистрация: 29.09.2010
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 93
По умолчанию

Извиняюсь сейчас нет времени проверить ваш вариант.
Мною программа завершена, если хотите, выложу позднее свой вариант на ваше рассмотрение. =)
Хелен вне форума   Ответить с цитированием

Старый 27.02.2011, 23:13
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Поищите информативные ответы в похожих темах

Ждущий режим
Полноэкранный режим
Спящий режим

Старый 28.02.2011, 09:36   #12 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Хелен Посмотреть сообщение
Извиняюсь сейчас нет времени проверить ваш вариант.
Мною программа завершена, если хотите, выложу позднее свой вариант на ваше рассмотрение. =)
Хочу! Рассмотрим...
Vladimir_S вне форума   Ответить с цитированием
Старый 10.03.2011, 19:09   #13 (permalink)
Хелен
Sparkling
 
Аватар для Хелен
 
Регистрация: 29.09.2010
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 93
По умолчанию

Вот конечный вариант программы - принят на ура))

Основная программа:
Код:
uses crt,zad2;
var
i,r:integer;
begin
for i := 1 to 100 do
begin
writeln;
writeln('1 - Zadacha №1, 2 - Zadacha №2, 3 - Exit');
read(r);
case r of
1:begin
zad11(zad2.x);
end;
2:begin
zad1(zad2.z);
writeln;
end;
3:exit;
end;
end;
end.
Модуль:
Код:
unit zad2;
 interface
var
 i,n,s,i1,d:integer;
 x,z:real;
 p:string;
 a:array[1..1000] of integer;
 b:array[1..1000] of integer;
 Procedure zad1(var x:real);
 Procedure zad11(var x:real);
 implementation
 
Procedure zad1(var x:real);
begin
writeln('vvedite n= ');
read(n);
x:=0;
for i:=1 to n do
x:=(-1)/(2*n+1)*n;
if n mod 2 = 0 then
x:=x*(-1);
writeln('x=',x:8:4);
end;
 Procedure zad11(var x:real);
 var
 y1,y2,y3,y4,n,h:real;
 i,x1,x2,r,q:integer;
 begin
  x:=0;
writeln('vvedite x1,x2,h:');
read(x1,x2,h);
writeln('     Shag          Argument             Otvet');
for i:=1 to 1000 do
begin
if(x>x2)
then
break;
x:=x1+((i-1)*h);
if(x<=0)
then
p:='Не определена на оси ОХ';
if(x>=0) and (x<=5)
then
begin
p:='Принадлежит оси 0<x<5';
y1:=(3*x*x+2*x)/(2*exp(x));
y2:=(2*y1*cos(x)*cos(x)*cos(x));
z:=y1*y1+y2;
z:=z+z;
end;
if(x>5)
then
begin
p:='Принадлежит оси x>5';
y3:=x+x*cos(x);
y4:=(y3*cos(x)*cos(x));
z:=y3*y3+y4;
z:=z+z;
end;
if (x>x2) then
writeln ('')
else
begin
if(x<=0)
then
writeln(' ',x:8:2,'     ',p)
else
writeln(' ',x:8:2,'     ',p,'    ',z:8:2);
end;
end;
 end;
end.
Вот так красиво это всё выглядит:
Миниатюры
aacuiyiiue.png  
Хелен вне форума   Ответить с цитированием
Старый 10.03.2011, 20:36   #14 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Хелен Посмотреть сообщение
Вот конечный вариант программы - принят на ура))
Ну и прекрасно - поздравляю! А мне еще, увы - учиться и учиться. Потому что с моими скудными знаниями уразуметь смысл сентенции
Цитата:
z:=z+z;
не представляется возможным.
"Пойду, забудусь сном" © М.Булгаков.
Vladimir_S вне форума   Ответить с цитированием
Старый 10.03.2011, 22:17   #15 (permalink)
Хелен
Sparkling
 
Аватар для Хелен
 
Регистрация: 29.09.2010
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 93
По умолчанию

Сколько бы нам ни было, а жизни нам ещё учиться и учиться...
Хелен вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 11.03.2011, 09:55   #16 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Хелен Посмотреть сообщение
Сколько бы нам ни было, а жизни нам ещё учиться и учиться...
Ох, и не говорите...
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:37.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.