Написать программу по блок-схеме

Aspol · 25.01.2011, 21:43

Люди помогите. Надо написать на паскале программу по блок-схеме, я нуп в этом, так что не смейтесь)

AlexZir · 26.01.2011, 08:30

Код:

var x:integer;
y:real;
begin
for x:=5 downto -5 do begin
if x<0 then y:=5/(2*x) else y:=sqr(x)+1;
writeln('x=';x:2,'; y=',y:2:6); end;
readln;
end.

Aspol · 26.01.2011, 20:37

Благодарю)

25.01.2011, 21:43	#1 (permalink)
Aspol Новичок Регистрация: 25.01.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Написать программу по блок-схеме Люди помогите. Надо написать на паскале программу по блок-схеме, я нуп в этом, так что не смейтесь) Миниатюры

26.01.2011, 08:30	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Код: var x:integer; y:real; begin for x:=5 downto -5 do begin if x<0 then y:=5/(2*x) else y:=sqr(x)+1; writeln('x=';x:2,'; y=',y:2:6); end; readln; end. __________________ Убить всех человеков!

25.01.2011, 21:43
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Данным вопросом уже интересовались другие участники форума Написать программу в Паскале Написать программу на С++

26.01.2011, 20:37	#3 (permalink)
Aspol Новичок Регистрация: 25.01.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Благодарю)

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