Помогите пожалуйста с Qbasic край как надо

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

Помогите пожалуйста с Qbasic край как надо, завал по информатике...

Опции

Gespera	8.12.2006 4:38 Сообщение #1
Группа: Пользователи Сообщений: 2 Пол: Женский Репутация: 0	Не знаю команд Qbasic'a, вообще, информатика не мой а конек, а тут даже не объяснили и задали сделать прогу.. Все эти уравнения к одному заданию, т.е в одной программе.. Срочно надо.. Помогите плиз Эскизы прикрепленных изображений

Ответов

Pola	8.12.2006 16:47 Сообщение #2
Новичок Группа: Пользователи Сообщений: 38 Пол: Женский Репутация: 0	Код FOR X% = -10 TO 10 IF X% < 2 THEN L! = X% + 3 ELSE L! = LOG(X%) END IF PRINT X%, L! IF X% = -10 THEN MINX% = X%: MINXZ! = L! MAXX% = X%: MAXXZ! = L! ELSE IF L! < MINXZ! THEN MINX% = X%: MINXZ! = L! IF L! > MAXXZ! THEN MAXX% = X%: MAXXZ! = L! END IF REM СЮДА ЕЩЕ ПРО M,Z NEXT X% PRINT "MINL="; MINXZ!, "X="; MINX% PRINT "MAXL="; MAXXZ!, "X="; MAXX%