Программа на Pascal

turcia7 · 06.11.2012, 10:47

Помогите написать программу

Vladimir_S · 06.11.2012, 11:27

Ну и какой вариант нужен?

turcia7 · 06.11.2012, 11:31

Цитата:

Сообщение от Vladimir_S

Ну и какой вариант нужен?

второй)
вообще не представляю как программа может выглядеть

Vladimir_S · 06.11.2012, 11:33

Со вторым я не очень понимаю - почему для подкоренного выражения просто не написать 2/х? По-моему, это то же самое. Или там в условии ошибка. Уточните.

turcia7 · 06.11.2012, 11:44

Цитата:

Сообщение от Vladimir_S

Со вторым я не очень понимаю - почему для подкоренного выражения просто не написать 2/х? По-моему, это то же самое. Или там в условии ошибка. Уточните.

это для пущего страха у студентов)
ошибки нет)

Vladimir_S · 06.11.2012, 11:45

Цитата:

Сообщение от turcia7

это для пущего страха у студентов) ошибки нет)

Ладно. Нарисую.

Vladimir_S · 06.11.2012, 11:59

Вот, извольте:

Код:

Const
 a1=1.0;
 a2=4.0;
 da=1.0;
Var
 N,i:Byte;
 x,y,a:real;
Begin
 Writeln('Parameter A    Argument X    Function Y');
 N:=Round((a2-a1)/da);
 For i:=0 to N do
  begin
   a:=a1+da*i;
   x:=Exp(a)-Sqr(Sin(a*a*a));
   y:=Exp(Ln(2.0/x)/3);
   Writeln(a:7:1,'        ',x:10:5,'    ',y:10:5);
  end;
 Readln;
End.

turcia7 · 06.11.2012, 14:03

и в очередной раз я Вас благодарю Владимир)

06.11.2012, 11:59	#7 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Вот, извольте: Код: Const a1=1.0; a2=4.0; da=1.0; Var N,i:Byte; x,y,a:real; Begin Writeln('Parameter A Argument X Function Y'); N:=Round((a2-a1)/da); For i:=0 to N do begin a:=a1+dai; x:=Exp(a)-Sqr(Sin(aa*a)); y:=Exp(Ln(2.0/x)/3); Writeln(a:7:1,' ',x:10:5,' ',y:10:5); end; Readln; End.

06.11.2012, 10:47
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вы можете посмотреть похожие на вашу темы Pascal Программа Pascal, разобраться в ошибках кода Программа в Pascal abc Программа в Pascal

06.11.2012, 11:27	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ну и какой вариант нужен?

06.11.2012, 11:33	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Со вторым я не очень понимаю - почему для подкоренного выражения просто не написать 2/х? По-моему, это то же самое. Или там в условии ошибка. Уточните.

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

06.11.2012, 14:03	#8 (permalink)
turcia7 Member Регистрация: 05.11.2012 Сообщений: 25 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	и в очередной раз я Вас благодарю Владимир)