Консультация № 58927
14.10.2006, 23:14
0.00 руб.
0 3 1
Помогите решить следующую задачу:разработать программу с единичным циклом для обработки одномерных массивов:X,Y,Z и найти значение выражения:Y[k]=A*X[k] +B/(C*Z[k] + D).(результат должен быть записан в виде таблицы со столбцами X Y и Z, у меня при выведении на экран результата получается во всех строках одно и то же значение).

Обсуждение

Неизвестный
14.10.2006, 23:38
общий
это ответ
Здравствуйте, Secret!

Предлагаемое решение см. приложение. Надеюсь, я вас правильно понял.
Удачи!

Приложение:
const n=10;var A,B,C,D:real; X,Y,Z:array[1..n]of real; i:word;BEGIN {... - ввод X и Z или какое-либо другое заполнение данными}for i:=1 to n do y[i]:=(A*x[i]+B)/(C*z[i]+D);{теперь вывод}writeln("i":10, "x":10,"y":10,"z":10);for i:=1 to n do writeln(i:10, x[i]:10:2, y[i]:10:2, z[i]:10:2);readlnEND.
Неизвестный
15.10.2006, 01:55
общий
Может быть, вы у себя неправильный индекс написали - потому и не работало.
Неизвестный
15.10.2006, 11:24
общий
А каким образом вбивать данные массива?Заставлять пользователя многострадального это делать?
Форма ответа