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


Ответ
 
Опции темы Опции просмотра
Старый 10.10.2015, 13:34   #1 (permalink)
merick
Новичок
 
Регистрация: 10.10.2015
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задачи по Pascal Turbo

Здравствуйте форумчане можете пожалуйста помочь составить программы по задачам?
1.Вычислить z(x)=sign(x)+sign(y)*sign(x+y)
Используя функцию
sign(x)=-1 если x<0
0 если x=0
1 если x>0
2.Написать процедуру для нахождения степени числа и вычислить значение выражения:x^5+x^4+x^8
3.Составить программу получения изображения в котором в 1-ой строке будет изображена 1*, во 2-ой строке 2*, в 3-ей строке 3*, в строке с номером m-m*.
merick вне форума   Ответить с цитированием

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

По заголовкам нашлось еще кое что схожее, можете посмотреть

Turbo Pascal
Задачи на Turbo Prolog

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

Цитата:
Сообщение от merick Посмотреть сообщение
Здравствуйте форумчане можете пожалуйста помочь составить программы по задачам?
Хорошо, на первый раз - напишу.
Но вообще-то если Вы продолжите выкладывание подобных глупейших школьных задач, то в дальнейшем, боюсь, нам придется Вам отказать.
И не потому, что нам жалко, а просто (уж поверьте) курс на лоботрясничанье и надежды выехать на форумах - это путь в никуда. Ну или к отчислению.
Так что мой Вам совет - беритесь за ум, пока жареный петух поклёвывать не начал.
Код:
Var
 x,y:Real;

Function Sign(q:real):Integer;
begin
 if q<0 then Sign:=-1 else
 if q>0 then Sign:=1 else
 Sign:=0;
end;

Begin
 Write('x = ');
 Readln(x);
 Write('y= ');
 Readln(y);
 Writeln('z = ',Sign(x)+Sign(y)+Sign(x+y));
 Readln
End.
Код:
Var
 x,D,S:Real;

Procedure X2np(x:real; n:Byte; var y:real);
var
 i:byte;
begin
  if n=0 then y:=1 else
  if n=1 then y:=x else
  begin
    y:=x;
    for i:=2 to n do y:=y*x;
  end;
end;

Begin
 Write('x = ');
 Readln(x);
 X2np(x,5,S);
 X2np(x,4,D);
 S:=S+D;
 X2np(x,8,D);
 S:=S+D;
 Writeln('S = ',S:0:5);
 Readln
End.
Код:
Var
 m,i:Byte;

Begin
 Write('m = ');
 Readln(m);
 for i:=1 to m do writeln(i,'*');
 Readln
End.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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