Помощь - Поиск - Пользователи - Календарь
Полная версия: Unit
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
V.k.l.chr.by
Уважаемые форумчане помогите пожалуйста в задаче. Что я не правильно сделал если оно так .И так вот условие:

Используя модуль Unit для вычисления сумм (произведений), построить схему машинного алгоритма и составить Паскаль-программу решения задачи

a1=
t1= a1 *
N £ 5.
А вот само решение моё:
Unit Modul1;
interface
const w=14;q=21;v=12;k=5;
Type
m=array [1..k]of real;
Procedure Pr(zf:m;xf:m;kf:integer);
var
Pro:real;
implementation
Procedure Pr(zf,xf:m;kf:integer);
var
Pro:real;
var
i:integer;
begin
pro:=1;
for i:=1 to kf do
begin
Pro:=Pro*(zf[i]*sqrt(abs(q)))/(sqr(cos(xf[i]))+ln(xf[i]));
writeln(' Pro=' , Pro:6:1);
end;
end;
end.
Program mod1;
uses CRT,printer,Modul1;
var
z,x:m;
i.k:integer;
d2,q2:real;
begin
clrscr;
q2:=ln(w-v)
for i:=1 to k do
begin
writeln('vesti z[' ,i, ']:');
read(z[i]);
writeln('vesti x[' , i, ']:');
read(x[i]);
d2=q2+Pr(z,x,kf);
writeln('d2=' , d2:4:2);
end.


Ozzя
Кхмм...
Может, синтаксические ошибки исправишь?

Hint: Нажми волшебную кнопочку F9.
V.k.l.chr.by
Проверял ответ то дало мне.Но чего-то внутри кажется что-то не так сделал.Хотя может я ошибаюсь.
Michael_Rybak
 ! 
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги code.



Исправляем.
Ozzя
Цитата
Проверял ответ то дало мне.


V.k.l.chr.by
Мне очень неудобно обвинять Вас во лжи, но...
i.k:integer;

Вот тут компилятор обругает Вас нехорошими английскими словами. А ведь я Вас просил:
Цитата
Может, синтаксические ошибки исправишь?


Извините, более НЕ собираюсь Вам помогать. nea.gif
V.k.l.chr.by
Цитата(Ozzя @ 27.12.2007 16:47) *

V.k.l.chr.by
Мне очень неудобно обвинять Вас во лжи, но...
i.k:integer;

Вот тут компилятор обругает Вас нехорошими английскими словами. А ведь я Вас просил:
Извините, более НЕ собираюсь Вам помогать. nea.gif

Полностью с Вами согласен насчёт ошибки.Но у меня не выдавала ошибку как ни странно.Вот высылаю скриншот.А ошибку исправил.После сего выдала ошибку"File not found"Кстати именно это и ошибка тоже выскакивала у меня в предудущих премарах когда тренировался на примерах.На именно стоит обратить внимание.По идее алгоритм решенее верен.Или...
volvo
Мне во второй раз ОЧЕНЬ неприятно уличать тебя, НО... Ты во второй строке сверху точку видишь? А после точки я могу написать в программе все, что я думаю о фирме Borland, выпустившей компилятор, заодно упомянуть близких родственников ее управляющего, но на компилятор ЭТО не окажет никакого влияния, он будет исправно выдавать "Compile Successful"... Потому что все то, что находится после точки Паскаль считает комментарием и никакого внимания на это не обращает... Так что смотри на ВЕРХНЮЮ часть программы, до точки, там происходит самое интересное...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.