Версия для печати темы

Автор: CrAzY_GeNiYS 22.9.2008, 19:44

В приложении я добавил само задание... Текст программы выложу чуть ниже, а сейчас объясню суть проблемы...
Не смотрите что я не сделал для 3 части , уменя проблема с 1 и 2 частью ... Не могу понять почему у меня не хочет выполняться первый цмкл, с тем же While... это я проверял так, вывел какуюто надпись перед и после цикла и получилось так, что 1-й цикл не хотит выполняться... вродебы всё удовлетворяет, но почему, я не понимаю ... Помогите пожалуйста...

П.с.Правда хоть это и первый курс, но я решил выпендриться и решить не так как в условии... дело в том, что мы массивы не изучали... мы изучили только эти цыклы, но ещё и if then else... Вобщем это не важно... найдите ошибку если сможите...

Вот сама программа:

program lab5_var13;
uses crt;
const xn=0.4; xk=2.8; hx=0.4; a=1.7;
var x,y:real; v,i:integer; tab:array[1..7,1..2] of real;
begin
clrscr;
writeln('vubirite sposob reshenija i postavte cifry:');
writeln('1) WHILE');
writeln('2) REPEAT');
writeln('3) FOR');
write('Variant => '); read(v);
if v=1
then
begin
x:=xn;
i:=1;
writeln('nachali...');
while x<=a
do
begin
y:=cos((x)/(25));
tab[i,1]:=x;
tab[i,2]:=y;
x:=x+hx;
i:=i+1;
end;
writeln('prodolguli...');
while (x<=xk+hx)and(x>a)
do
begin
y:=sqrt(exp(3*ln(x))+4);
tab[i,1]:=x;
tab[i,2]:=y;
x:=x+hx;
i:=i+1;
end;
for i:=1 to 7
do writeln('Pri X=', tab[i,1]:10:7, ' => Y=', tab[i,2]:10:7);
end;

if v=2
then
begin
x:=xn;
i:=1;
writeln('nachali...');
repeat
y:=cos((x)/(25));
tab[i,1]:=x;
tab[i,2]:=y;
x:=x+hx;
i:=i+1;
until (x<=xk)and(x<a);
writeln('kapec...');
repeat
y:=sqrt(exp(3*ln(x))+4);
tab[i,1]:=x;
tab[i,2]:=y;
x:=x+hx;
i:=i+1;
until (x<=xk)and(x>a);
for i:=1 to 7
do writeln('Pri X=', tab[i,1]:10:7, ' => Y=', tab[i,2]:10:7);
end;
if v=3
then
begin



end;

readkey
end.


Прикрепленные файлы
 LR5.doc ( 33 килобайт ) Кол-во скачиваний: 8

Автор: граф Монте-Кристо 22.9.2008, 21:58

В цикле while всё вроде бы работает нормально,а вот repeat у Вас неправильно написан.Посмотрите,что должно означать условие после until.
Вывод результатов лучше всего писать в самом конце программы - один раз вместо трёх.
К тому же Ваша программа слишком привязана к задаче,стоит немного изменить входные данные - и придётся почти заново её писать.Старайтесь делать её универсальнее.

Автор: crazymaster 23.9.2008, 6:33

Потому что во втором цикле while в матрицу на теже места перезаписываются вычисления
while (1)
tab[i,1]:=x;
tab[i,2]:=y;
end
while (2)
tab[i,1]:=x;
tab[i,2]:=y;
end

Автор: crazymaster 23.9.2008, 6:43

Сорри, не заметил i глобальная перем. вроде должно работать

Автор: CrAzY_GeNiYS 23.9.2008, 14:52

Да пофиг на тот Репит... я его буду делать по образу и подобию Вайл ... Я просто не пойму какого **** первый цикл Вайла не хочет работать?!... мож я и правда намудрил с i, но вроде оно должно в любом случае, но оно какого-то вобще не хочет делать первый цикл ...
Ну три раза вместо одного вывод я сделал просто чтобы показать, что каждая часть проги работает отдельно, тоесть это не важно ...

либо вы не так поняли либо я ... там даны определённые числа... я их в константы определил, чтобы не парить себе мозг ... а если вам переписать прогу нада, введите другое значение в константах соответствующему значению... да и собственно я это знаю, просто это не есть программа такая уж нужная, чтобы её делать универсальней , согласитесь со мной, что она предназначена один раз сделать и здать... её легче заново написать если понадобиться, чем редактировать это ...


Вот и я о том же... я полностью продумал логику... по идее оно должно в любом случае работать ... но увы ...

Может кто ещё что скажет?... я то могу нормально переделать и сделать так как нужно... Но мне аж интересно стало, какого **** оно не работает

Автор: creer 23.9.2008, 17:37

А почему Вы решили, что что-то не работает?

Это цикл while. На мой взгляд, вывелось то, что необходимо.

Автор: CrAzY_GeNiYS 23.9.2008, 18:33

Ну ведь я же вывел одну надпись до цикла, а вторую после цикла... вот они и вывелись до и после, а междуними ничего...а то видимо результат второго цикла...

Автор: crazymaster 23.9.2008, 18:40

а в первом цикле что то должно выводится на экран?

Автор: граф Монте-Кристо 23.9.2008, 20:01

Так между ними Вы ничего и не выводите на экран

Автор: creer 23.9.2008, 20:21

CrAzY_GeNiYS,
посмотрите как будет выводиться теперь, я дописал несколько строчек.

Автор: CrAzY_GeNiYS 24.9.2008, 12:32

Тьфу я дибил... я ж забыл, что я записую результат в таблицу, а потом уже из таблици вывожу... Всё терь понял какого оно не выводилось ...
А вот теперь вопрос... Я немного отредактировал код для вывода через Репит, но оно не хочет заполнять последние 3 или 4 параметра ... опять не пойму чо...
Вот код:
if v=2
then
begin
x:=xn;
i:=1;
repeat
y:=cos((x)/(25));
tab[i,1]:=x;
tab[i,2]:=y;
x:=x+hx;
i:=i+1;
until (x<=xk)and(x<=a);
repeat
y:=sqrt(exp(3*ln(x))+4);
tab[i,1]:=x;
tab[i,2]:=y;
x:=x+hx;
i:=i+1;
until (x<=xk)and(x>a);
for i:=1 to 7
do writeln('Pri X=', tab[i,1]:10:7, ' => Y=', tab[i,2]:10:7);
end;

Мож я чо в Антил не так написал?... ну всмысле в условии ...

Автор: граф Монте-Кристо 24.9.2008, 13:27

В until пишется условие,при выполнении которого цикл завершается,насколько я помню. То есть Вам нужно поменять знаки,ну и некоторые условия можно убрать.

Автор: CrAzY_GeNiYS 24.9.2008, 16:00

Тю... а я думал, что пока выполняется это условие в Until выполняется цикл ...
Спасибо всем за помощь Пошол делать... Если что ещё раз спрошу ...
Ещё раз спасибо