|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.12.2012, 20:44 | #1 |
Пользователь
Регистрация: 02.12.2012
Сообщений: 50
|
Программирование циклических алгоритмов
uses crt;
var y,a,b,h,x,d,d2:real; n:byte; punkt:integer; function max(a,b:real):real; begin if a>b then max:=a else max:=b; end; function min(c,d:real):real; begin if c<d then min:=c else min:=d; end; begin clrscr; writeln('‚Введите a'); readln(a); writeln('‚Введите b'); readln (b); writeln('Введите h'); readln (h); x:=a; n:=0; d:=-100; d2:=100; writeln(' x y'); repeat y:=3/(x+4); d:=max(d,y); d2:=min(d2,y); writeln(x:6:1, y:10:6); x:=x+h; n:=n+1; until (x>b); writeln('max f-:', d:10:5); writeln('min f-:',d2:10:5); end; until(punkt=2); end. помогите что т нето. не получается |
02.12.2012, 20:59 | #2 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,304
|
Сложно угадывать о чем речь, но вот тут:
Код:
И откуда тут end? Да, выделяй код, а затем жми значок - # Это правило. Для начала ...
Как-то так, ...
|
02.12.2012, 21:50 | #3 |
Пользователь
Регистрация: 02.12.2012
Сообщений: 50
|
тут кароче меню. я правда убирал его но видимо не совсем
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программирование циклических алгоритмов | eduard93 | Помощь студентам | 2 | 13.03.2012 12:37 |
Программирование циклических алгоритмов. | aleksander_l | Помощь студентам | 3 | 10.01.2012 16:11 |
turbo c++/ПРОГРАММИРОВАНИЕ ЦИКЛИЧЕСКИХ АЛГОРИТМОВ | Svet_lana | Помощь студентам | 2 | 28.12.2011 15:18 |
программирование циклических алгоритмов | SiNgLeR | C++ Builder | 3 | 11.12.2011 18:24 |
Программирование циклических алгоритмов в Delphi7 | Rom1k | Помощь студентам | 4 | 18.12.2009 02:24 |