22.01.2010, 02:04
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 29
Провел на форуме:
101927
Репутация:
0
|
|
Исправте пожалуйста ошибки.
Делфи.
PHP код:
program funktion;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;
var
x,a,alpha,betta,y:real;
Rezult:real;
fo:text;
procedure ReadFromFile(var x,a,alpha,betta:real) ;
var fi:text;
begin
AssignFile(fi,'file1.txt');
Reset(fi);
Readln(fi,x,a,alpha,betta);
Closefile(fi);
end;
procedure WriteToFile(var f:text ;y:real);
begin
WriteLn(f,' Arithmetic expression: Y=',Rezult);
CloseFile(f);
end;
function F(x,a,alpha,betta:real):real;
var
ch,zn,y:real;
begin
ch:=logN(3,power(x+1,3))-15*power(10,-3.5)*
x+power(sqrt(alpha+6*power(10,-5)),5)+arcsin(betta);
zn:=exp(a)*(x*x*x)+6.15*power(10,4)*
sqr(cos(betta)) +power(x/a+tan(0.6),4);
y:=ch/zn;
F:=Y;
end;
begin
ReadFromFile(x,a,alpha,betta) ;
Y:= F(x,a,alpha,betta);
AssignFile(fo,'funks.txt');
Rewrite(fo);
WriteToFile(fo,y);
end.
В итоге, результат "У" должен записатся в файл с ответом Arithmetic expression: Y=(ответ). но выводяться только нули.
И по возможности вторую задачку:
PHP код:
PROGRAM laba_6;
{$APPTYPE CONSOLE}
uses
SysUtils,math;
var
F:array [1..10] of integer;
e,c,pi,k,m :real;
i,n:integer;
ee,ff :string;
fi,fo :text;
begin
AssignFile(fi,'1.txt');
read(fi); //откр. для чтения
READ(fi,e,c,pi,k,m); //читаем строку
for i:=1 to n do Read(fi,F[i]);
CloseFile(fi); //закрываем файл
//вывод инфы в файл
AssignFile(fo,'1.out');
Rewrite(fo); // открываем для записи
Writeln(fo,' e',e,' c=',c,' pi=',pi,' k=',k,' m=',m);
//Writeln(fo,' ' e',e,' c=',c,' pi=',pi,' k=',k,' m=',m);
Write(fo,' F=(');
for i:=1 to n do Write(fo,F[i]:3);
Writeln(fo,' )');
CloseFile(fo); // закрываем файл
//Вывод
Writeln(' e',e,' c=',c,' pi=',pi,' k=',k,' m=',m);
//Writeln(' e=',e:12:9,' c=',e:4);
Write(' f=(');
for i:=1 to n do Write(F[i]:3);
Writeln(' )');
WriteLn('***** Press <ENTER> to finish *****');
Readln;
Readln;
END.
Взять из файла и переписать в другой. Но второй файл остается пустой. Заранее благодарен. |
|
|
23.01.2010, 13:37
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 18
Провел на форуме:
92411
Репутация:
3
|
|
Здравствуйте помогите лабу сделать
Тема ОБработка одномерных массивов (pascal)
1. вычислить значение 37 элиментов одномерного целочисленного массива F в интервале (-9;6) с использованием генератора случайных чисел
2. Вычислить среднеквадратичное значение положительных элементов второй половинны массива.
3. Определить наименьший по модулю элемент среди нечетных по номеру элементов третьей четверти массива.
4. Упорядочить каждые вторые элементы последней четверти массива по убыванию обратных функций.
|
|
|
|
23.01.2010, 14:01
|
|
Познающий
Регистрация: 27.05.2009
Сообщений: 44
Провел на форуме:
105684
Репутация:
-1
|
|
всем привет мине нужно решить 1 задачу мине нужно програмно перестовлять и решат линеиные и квадратние уровнения а тагже чтобы прога могла перестовлять формулы по задонои переменои и решать патом ету переменую функцыи надо написать самому ест у каво какаянибуть инфа или подсказки буду благодарен !
|
|
|
|
23.01.2010, 15:14
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 130
Провел на форуме:
436500
Репутация:
11
|
|
new-sl, ты вообще знаешь что такое запятая?? Или другие знаки препинания. Я не понял твой запрос  |
|
|
|
23.01.2010, 15:44
|
|
Познающий
Регистрация: 27.05.2009
Сообщений: 44
Провел на форуме:
105684
Репутация:
-1
|
|
мине нужно програмно перестовлять и решат линеиные и квадратние уровнения .
Тагже чтобы прога могла перестовлять формулы по задонои переменои и решать патом ету переменую.
Функцыи надо написать самому!
Ест у каво какаянибуть инфа или подсказки ? , буду благодарен !
пример :
1: x^2+6x+4=0 x=?
2: 2x+3=4 x=?
3: x^2+6x+4=2x^2+5x-4 x=?
|
|
|
|
23.01.2010, 18:38
|
|
Новичок
Регистрация: 12.12.2009
Сообщений: 10
Провел на форуме:
14658
Репутация:
0
|
|
Помогите найти ошибку. Программа должна искать количество вхождений подстроки в строку, а вместо нужного числа всегда выводит только 0
Код:
#include <iostream.h>
void main()
{
char stroka[30];
char podstroka[6];
int ch=0;
cout<<"vvedite stroky ";
cin.getline(stroka, 30);
cout<<"\nvvedite iskomyjy podstroky ";
cin.getline(podstroka,6);
for(int i=0; i<25; i++)
{
if ((stroka[i]==podstroka[0])
&& (stroka[i+1]==podstroka[1])
&& (stroka[i+2]==podstroka[2])
&& (stroka[i+3]==podstroka[3])
&& (stroka[i+4]==podstroka[4])
&& (stroka[i+5]==podstroka[5]) )
ch++;
}
cout<<ch;
}
|
|
|
|
23.01.2010, 19:30
|
|
Новичок
Регистрация: 02.01.2010
Сообщений: 26
Провел на форуме:
33560
Репутация:
15
|
|
Сообщение от STIFFmaster
Помогите найти ошибку. Программа должна искать количество вхождений подстроки в строку, а вместо нужного числа всегда выводит только 0
Код:
#include <iostream.h>
void main()
{
char stroka[30];
char podstroka[6];
int ch=0;
cout<<"vvedite stroky ";
cin.getline(stroka, 30);
cout<<"\nvvedite iskomyjy podstroky ";
cin.getline(podstroka,6);
for(int i=0; i<25; i++)
{
if ((stroka[i]==podstroka[0])
&& (stroka[i+1]==podstroka[1])
&& (stroka[i+2]==podstroka[2])
&& (stroka[i+3]==podstroka[3])
&& (stroka[i+4]==podstroka[4])
&& (stroka[i+5]==podstroka[5]) )
ch++;
}
cout<<ch;
}
Или я задание не понял или очень странный код проверки у тебя
Есть стандартная функция проверки......
Код:
for(int i=0; stroka[i] != '\0'; i++)
{
if(stroka[i] == podstroka[0])
{
bool fl = true;
for(int j = 0; podstroka[j] != '\0'; j++)
{
if(stroka[i + j] != podstroka[j]) { fl = false; break; }
}
if(fl) { ch++; }
}
}
|
|
|
|
23.01.2010, 20:18
|
|
Новичок
Регистрация: 22.01.2010
Сообщений: 25
Провел на форуме:
63520
Репутация:
0
|
|
1.провести подсчет согласных букв во введенной стоке, на си
2.Данная целочисленные матрица. Отсортировать строки матрицы в соответствии с первого элемента строки по убыванию.
|
|
|
|
24.01.2010, 12:26
|
|
Новичок
Регистрация: 23.01.2010
Сообщений: 8
Провел на форуме:
12222
Репутация:
0
|
|
Доброго времени суток.
Помогите решить пожалуйста 6 лаб по с++.
на upload.com.ua
С меня качественный рерайт) |
|
|
|
25.01.2010, 14:08
|
|
Новичок
Регистрация: 23.01.2010
Сообщений: 8
Провел на форуме:
12222
Репутация:
0
|
|
Сообщение от atomOK
Помогите решить пожалуйста 6 лаб по с++.
на upload.com.ua
С меня качественный рерайт) Люди, помогите плиз...... Горю......
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
