10.10.2015, 13:34 | #1 (permalink) |
Новичок
Регистрация: 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*. |
10.10.2015, 13:34 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По заголовкам нашлось еще кое что схожее, можете посмотреть Turbo Pascal Задачи на Turbo Prolog |
10.10.2015, 17:53 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Но вообще-то если Вы продолжите выкладывание подобных глупейших школьных задач, то в дальнейшем, боюсь, нам придется Вам отказать. И не потому, что нам жалко, а просто (уж поверьте) курс на лоботрясничанье и надежды выехать на форумах - это путь в никуда. Ну или к отчислению. Так что мой Вам совет - беритесь за ум, пока жареный петух поклёвывать не начал. Код:
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. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|