Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 10.03.2013, 11:35   #1 (permalink)
димон4ик
Member
 
Регистрация: 02.10.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Проверьте правильность программы на паскале

Program lab2;
Var a,b,c,x,y:real;
Fy:double
begin
writeln('Введите x');
readln(x);
if (x=0) or (sin(x)=-1) or (sqr (Ln)>0) then
begin
writeln ('Решений нет');
else
a:=(sqr*(cos(x)));
b:=(1+sin(x));
c:=(sqr(ln))*(x/exp(1/3*ln(x-1))));
y:=(a/b)-c;
if y>0 then Fy:=1'
if y=0 then Fy:=0;
if y<0 then Fy:=-1;
writeln (Fy);
end;
end.
димон4ик вне форума   Ответить с цитированием

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

Оставлю вам эти ссылки, в них вы можете найти много полезной для вас информации

Проверьте правильность сборки
Проверьте правильность программы на паскале
Проверьте пожалуйста правильность программы на паскале
Написать две программы в Паскале
Проверьте, пожалуйста, правильность ответов

Старый 10.03.2013, 17:24   #2 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Цитата:
Сообщение от димон4ик Посмотреть сообщение
Проверьте правильность программы на паскале
Выложите задание.
Léon вне форума   Ответить с цитированием
Старый 10.03.2013, 17:40   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,429
Сказал(а) спасибо: 297
Поблагодарили 538 раз(а) в 181 сообщениях
Репутация: 95593
По умолчанию

Цитата:
Сообщение от 11Angelav Посмотреть сообщение
Выложите задание.
Да бросьте Вы, Анжелика, - будет он ради нашего удобства лишний раз утруждаться! И вообще, скорее всего, появится этот Димончик здесь через месячишко-другой - такая уж у него жлобская манера. Ни толики пиетета к нам. Я уж давно не имею дела ни с ним, ни с ему подобными субъектами. Даже списочек составил. И Вам не советую впустую время тратить. Не говоря уже о том, что самостоятельная отладка таких простеньких программок - самое то для начинающего программиста. Если, конечно, там есть хоть малейшее желание чему-то научиться.

P.S. А это "or (sqr (Ln)>0)", конечно, шедевр в своем роде.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 10.03.2013, 17:57   #4 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Да бросьте Вы, Анжелика, - будет он ради нашего удобства лишний раз утруждаться!...
Да, я заметила за ним такое.
Léon вне форума   Ответить с цитированием
Старый 10.03.2013, 22:30   #5 (permalink)
димон4ик
Member
 
Регистрация: 02.10.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Составить программу
вычисления величины y(x) и F(y)
Y=(cos^2(x)/1+sin(x))-Ln^2(X/кубический корень из (x-1))
димон4ик вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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