IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Метод файлов, Исправление ошибки
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской

Репутация: -  0  +


Уважаемые форумчане помогите пожалуйста в задаче.Что я не правильно сделал если оно так .И так вот условие:
Используя метод файлов,построить схему машинного алгоритма и составить Паскаль-программу решения задачи

w2 k= | a5 k|+
b2 k= w2 k *tg
k=
mЈ 5.
Запись в файл оформить для первой строки условия,
исходные данные которой соответствуют набору №1.
А вот само моё решение:

Program lr18;
uses CRT,Printer;
Const t=5;z=7;
Type
mas=array [1..50] of real;
var
k,m,n,f:integer;
w2,a,bt2,x:mas;
P:TEXT;
STR:string;
begin
clrscr;
write('vecti ima STR=');
readln(str);
assign(f,STR);
writeln ('vecti n,m:');
readln(n,m);
if n=1 then
begin
rewrite(f);
for k:=1 to m do
begin
write('vecti a[' ,k, ']=');
read(a[k]);
w2[k]:=abs(exp(5*ln(a[k])))+exp(1/3*sqr(cos(z)));
writeln(f,k:2,w2[k]:9:2);
end;
writeln(' ':2, ' rezultat:');
writeln;
writeln(' ':4, '* k *',' n *',' n2[k] *');
for k:=1 to m do
writeln(k:4,n:6,w2[k]:11:2);
end;
if n>1 then
begin
reset(f)
fjr
k:=1 to m do
begin
write(' vesti x[' ,k, ']=');
read(x[k]);
read(f,k,w2[k]);
end;
writeln(' rezultatu' , ' i 4tenie' );
writeln;
writeln(' ':4,'* k *' , ' n *' , bt2[k] *' , ' w2[k] *');
for k:=1 to m do
begin
bt2[k]:=w2[k]*sin(x[k]/t);
writeln(k:8,n:6,bt[k]:11:2,w2[k]:11:2);
end;
end;
close(f)
end.


М
Используем теги



Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Условие задачи непонятно. Напиши формулу нормально, например в Word'е, запакуй и приложи файл.

Более того, программа не компилируется. И не должна. Объявляешь

var
p:text;


а в программе вызываешь как?

assign(f,STR);

str - стандартная процедура, не рекомендуется использовать. Замени, например на str1.

ну и тд.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской

Репутация: -  0  +


Спасибо,за советы.Если честно,то данную тему я ещё не понял.А решение я списал на ходу.Прошу не ругайтесь на меня smile.gif


Прикрепленные файлы
Прикрепленный файл  Постановка_задачи.doc ( 21 килобайт ) Кол-во скачиваний: 199
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


V.k.l.chr.by
Думаешь, стало понятнее? rolleyes.gif
Ну, примерно так: (если я правильно понял)

Составить таблицу:
const
m=5;
var
omega, beta : array [1..m] of real;
begin
for i:=1 to m do
begin
omega[i]:= // вставляешь формулу
beta[i]:= // вставляешь формулу
end;
...
end.


Цитата
Запись в файл оформить для первой строки условия,
исходные данные которой соответствуют набору №1.

Вот этот момент хотелось бы поподробнее. yes2.gif

Сообщение отредактировано: Ozzя -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.11.2020 15:32
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name