|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.09.2012, 21:45 | #1 |
Пользователь
Регистрация: 24.09.2012
Сообщений: 51
|
Лаб3 - записать цикл for и repeat
Подскажите плз как правильно записать цикл for и repeat
заранее спасибо! |
24.09.2012, 22:04 | #2 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Лучше код. По картинкам не ахти какого качества работать не ахти как продуктивно!
|
24.09.2012, 22:59 | #3 |
Форумчанин
Регистрация: 26.07.2011
Сообщений: 376
|
while и repeat еще понятно
Код:
Желательно чтоб ты прочитал пост выше, и кинул сюда полное задание + код.
Люблю на ты.Я человек простой
|
25.09.2012, 13:45 | #4 |
Пользователь
Регистрация: 24.09.2012
Сообщений: 51
|
задание
звучит так :
Разработать программу табулирования функции, вывести их значения на экран. Разработать три варианта вычисления с использованием трех видов циклов, для контроля подсчитать сумму значений функций, результаты вывести отдельно в одном файле. Знак '^' означает 'в степени ". y = (ln(x^2 + 1))^2 + x; інтервал : отрезок[2,6], шаг 0.5. program Project1lb3; {$APPTYPE CONSOLE} //= (ln(x^2 + 1))^2 + x; //інтервал : відрізок [2,6], крок 0.5; uses SysUtils,math; var Exp,X,a,b,h,y:real; begin Writeln( ' x y'); writeln(' while' ); a:=2; b:=6; h:=0.5; X:=a;while x<=b+h/2 do begin Y:=Power((Ln(x*x+1)),2)+x; Writeln(x:6:3,' ',y:6:3); X:=x+h; end; Writeln( ' x y'); writeln(' for' ); a:=2; b:=6; h:=0.5; X:=a; while x<=b+h/2 do begin Y:=Power((Ln(x*x+1)),2)+x; Writeln(x:6:3,' ',y:6:3); X:=x+h; End; Writeln( ' x y'); writeln(' repeat' ); a:=2; b:=6; h:=0.5; X:=x+h; until x<=b+h/2; begin Y:=Power((Ln(x*x+1)),2)+x; Writeln(x:6:3,' ',y:6:3); End; Readln; end. Последний раз редактировалось Владан; 25.09.2012 в 14:04. |
25.09.2012, 13:58 | #5 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Код:
Код:
Правильно поставленная задача - три четверти решения.
|
25.09.2012, 14:25 | #6 |
Пользователь
Регистрация: 24.09.2012
Сообщений: 51
|
спасибо)
!!!!!!!!!!!!!!!!!!!!!!!!!
|
25.09.2012, 14:44 | #7 |
Пользователь
Регистрация: 24.09.2012
Сообщений: 51
|
|
25.09.2012, 14:59 | #8 |
Форумчанин
Регистрация: 26.07.2011
Сообщений: 376
|
Что пишет? в каком месте ?
Конкретней говори, мы же не твой компилятор.
Люблю на ты.Я человек простой
|
25.09.2012, 16:33 | #9 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
попробуйте переменные объявить:
Код:
Код:
Код:
Правильно поставленная задача - три четверти решения.
Последний раз редактировалось DiemonStar; 25.09.2012 в 16:40. |
25.09.2012, 21:42 | #10 |
Пользователь
Регистрация: 24.09.2012
Сообщений: 51
|
спасибо)
а что в цикле repeat нужно переделать ? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Цикл Repeat | Anwen | Помощь студентам | 1 | 21.11.2010 16:08 |
Цикл while and Repeat | ates | Помощь студентам | 5 | 14.05.2010 22:35 |
Цикл while-repeat | Wasisualy | Помощь студентам | 1 | 18.12.2009 20:49 |
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) | Mr.User | Помощь студентам | 9 | 23.11.2007 01:34 |