27.12.2009, 17:21 | #1 (permalink) |
Member
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программа алгоритма циклической структуры
помогите пожайлуста!!! на ПАскалЕ!!! |
27.12.2009, 17:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вам обязательно помогут советом, а пока можете открыть в браузере схожие обсуждения Turbo Pascal. Программирование алгоритмов циклической структуры Динамические структуры данных Динамические структуры данных, Паскаль |
27.12.2009, 17:40 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Непонятно, откуда берется значение переменной x! Допустим, что оно вводится с клавиатуры, тогда алгоритм решения задачи следующий:
1) определяете переменные x,y,z,s вещественного типа 2) в теле программы запрашиваете ввод значения x с клавиатуры. 3) задаете начальное значение переменным y=0.16 и z=0.1 4) заводите цикл "пока" (While) с условием его выполнения пока y не превысит 1.6 5) заводите цикл "пока" с условием его выполнения, пока значение z не превысит 0.5 6) внутри вложенного цикла (п. 5) вычисляете значение переменной s, затем вводите условие на увеличение значения переменной z в зависимости от значения y (соответственно на 0.1 или на 0.05), выводите полученное значение s на экран 7)внутри внешнего цикла (п. 4) увеличиваете значение переменной y 8) после внешнего цикла пишите команду ожидания нажатия клавиши. А уж программу, думаю, напишите сами, в реализации ничего особо сложного нет.
__________________
Убить всех человеков! |
27.12.2009, 17:43 | #3 (permalink) |
Member
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спс конечно... ты профессионал.. ( я и так знаю) но я не понимаю еще так .. можешь написать? да х вводится с клавиатуры!!!-) пожайлуста..я только начинаю писать программы
|
27.12.2009, 17:46 | #4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Если самостоятельно не начнете думать - никогда не научитесь!
Сходите сюда, скачайте среду, она руссифицированная, с русской справочной системой. А здесь неплохой учебник по Pascal с примерами.
__________________
Убить всех человеков! |
27.12.2009, 17:47 | #5 (permalink) |
Member
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
если не получится ...я пришлю ошибку посмотрите ?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
27.12.2009, 17:51 | #6 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Текст программы сюда разместИте, если что-то в нем не так будет - исправим вместе.
__________________
Убить всех человеков! |
27.12.2009, 18:20 | #7 (permalink) |
Member
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
program oops;
uses crt; var x,y,z,s:real; ;k:integer; begin clrscr; //для использования нужно подключать библиотеку crt, что в данном случае неоправданно, //дает увеличение размера файла write('x='); readln(x); y:=0.16; repeat z:=0.1; repeat s:=(y*sqr(x)+z)*arctan(z);:= writeln('x='); //перед writeln пишет 42 ошибка (ошибка в выражении что делать)? k:=k+1; if k mod 20=0 then begin write('Press Enter...'); readln end; if y<0.8 then z:=z+0.1 else z:=z+0.05; until z>0.55;{ y:=y+0.24; until y>1.84; readln; end. |
27.12.2009, 18:32 | #8 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Вы вообще откуда этот листинг выдрали? Ошибки и излишний код выделены красным!
__________________
Убить всех человеков! |
27.12.2009, 18:43 | #10 (permalink) |
Member
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
ну так что .. что с ней делать?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|