Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Turbo Pascal проблема - помогите, плиизз!

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3

Открыть новую тему     Написать ответ в эту тему

Don_Rumata



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
pomogite pozhaluista s algoritmami i sostavleniem program v turbo paskale 7.0  o4en proshu kto znaet, i imeet svobodnoe vremja napishite na e-mail: malumi@pisem net . o4en proshu ! sro4no ina4e vyle4u is instituta
 
1) Dan massiv Z={Zi} i = ot 1 do 5
vy4islit' dispersiju( harakterezuet razbros rezultatov  
izmerenija , vokrug srednego zna4enie) dlja Y, gde Yi  
vy4isljaetsa sledujushim ob razom :
proizvedenie (x=2;10<--matemati4eskii znak  
proizvedenija snizu x=2,cverhu 10) (x+a)*e^Zi pri a=<  
Zi<A+B/2, h( shag)=2
i
integral f(X;Z)dx pri a+b/2=<Zi <b
H ljuboe
gde  a=Z min ;b =Z max
dlja vy4islenija integrala ispolzovat metod trapecii  
f(x;Zi)-ljubye funkcii.  
 
 
Большое спасибо заранее всем кто поможет!

Всего записей: 2 | Зарегистр. 17-10-2001 | Отправлено: 02:35 17-10-2001
Shurik



Главком. флейма
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Don_Rumata

Цитата:
Большое спасибо заранее всем кто поможет!
А по-русски всё сообщение нельзя было написать? Даже ломает читать.

----------
Metal Bands...

Всего записей: 3171 | Зарегистр. 11-06-2001 | Отправлено: 16:57 17-10-2001
Erick Flatcher



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
так может у человека нет шрифтов, или еще че нить...
а последнюю месагу он год назад в качестве подписи писал...

Всего записей: 581 | Зарегистр. 12-10-2001 | Отправлено: 20:38 17-10-2001
WhitE_HeaD



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Народ привет. Тут у меня задачка -  в турбо паскале написать корень кубический из числа. Убил целый вечер. Помогите пожалуйста!

Всего записей: 29 | Зарегистр. 13-08-2001 | Отправлено: 13:06 01-04-2002
hash



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Erick Flatcher
 и название поста тоже год назад заготовил )
 
Don_Rumata
если хочешь чтоб тебе помогли прояви уважение и напиши тз нормальное, потому как читать действительно в лом
 
WhitE_HeaD
во блин, а как он считается то ?

----------
а мы еще и на заказ программируем panki@ru.ru

Всего записей: 293 | Зарегистр. 07-12-2001 | Отправлено: 13:30 01-04-2002
Wowik



The Warlock
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
в турбо паскале написать корень кубический из числа.  


Цитата:
во блин, а как он считается то ?

А в степени B X:=exp(B*ln(A));  
 
а корень кубический это у нас A в степени 1/3  



----------
Настоящие программисты не ищут легких путей!

Всего записей: 1192 | Зарегистр. 27-08-2001 | Отправлено: 06:50 02-04-2002
Yartsev



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Ну раз тут  вопросы задают, так я тоже сюда же )
Тоже задание из института, не могу понять одной вещи как мне перевести значение из получившегося массива в значение Х и потом передать это значения в формулу.
Условие звучит так
==
Для Х, принимающего значения от XN до XK с шагом &#8710;X,  
 определить Y.  При этом: если x>g, то Y=A; если  0<=x<=g , то Y=B; если x<0, тоY=C.
Результат выдать в форме таблицы значений X и Y.  
Значении переменных
A = e (в степени) x-8.6
B = Sin x
С = -9
Xn = -5
Xk = 25
&#8710;X = 7
G = 9.54
====
вот что я написал
====
Program Task2;
var
m: array [-5..25] of integer;
x, i, C : Integer;
A, B, G : real;
Y : real;
begin
    for i:= -5 to 25 do
    begin
     m[i] := i*7 -5;
     if m[i] > 0 then
       if m[i] < 25 then
       write(m[i]); {вот тут и возникает вопрос как из этого массива вытащить его значения и присвоить его иксу}
    end;
    begin
    A := Exp(x-8.6);
    B := Sin(x);
    C := -9;
    G := 9.54;
    if x > G then Y := A
    else if x < 0 then Y := C
    else if x <= 0 then Y := B
    else if x <= G then Y := B;
    write(x,' ',Y);
    writeln;
    end;
end.
==
Заранее спасибо за помощь
 
Добавлено
&#8710; = дельта или шаг

Всего записей: 142 | Зарегистр. 27-04-2002 | Отправлено: 11:43 01-10-2002
amnick

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Yartsev
Все решение можно записать в виде одного простого цикла (после присвоения начальных значений; a, b, c - функции от x):

  x := Xn;
  while x <= Xk do begin
    if x < 0 then
      y := c(x)
    else if x > g then
      y = a(x)
    else
      y := b(x);
    write( x, '   ', y );
    x := x + dx;
  end;

И никаких массивов не нужно (хотя можно и сохранять значения в массиве, а уже потом печатать). А в том, что написали Вы, мне даже разбираться лень.
 
А извлечь значение из массива очень просто: x := m[i];
 
Don_Rumata
Ни малейшего желания читать транслит.

Всего записей: 130 | Зарегистр. 16-12-2001 | Отправлено: 19:17 01-10-2002 | Исправлено: amnick, 19:35 01-10-2002
Esc



Сетевой демон
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Don_Rumata не появлялся на руборде уж год, а добрые рубордовцы продолжали его изредка попинывать.


----------
шинигами с вызовом на дом

Всего записей: 2194 | Зарегистр. 24-01-2002 | Отправлено: 03:47 02-10-2002
UncoNNecteD



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
Всего записей: 1 | Зарегистр. 17-10-2001 | Отправлено: 06:35 17-10-2001  

 
РОФЛ
 
Esc


----------
-= Я тут чертовски давно =-

Всего записей: 4040 | Зарегистр. 21-03-2002 | Отправлено: 07:58 02-10-2002
defis



LP fan
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Люди помогите если могете - у мя вот какая задача - в универе дали - а мы в школе тока чуть-чуть качались паскаля:
Причитать текстовой файл str.txt состоящий из произвольного числа строк, и вывести в файл str1.txt этот же текст так, чтобы в каждой строке содержалось ровно по 50 знаков.
я делал так:
из файла в строку скидывал - а вот как эту строку разделить бы?

Всего записей: 1253 | Зарегистр. 07-10-2002 | Отправлено: 09:17 08-03-2003
raven



Черный ворон
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
defis
Удаляешь всё после 50 символа через delete
Вроде так:
delete(s,50,length(s)-50);

----------
n/a

Всего записей: 992 | Зарегистр. 13-08-2002 | Отправлено: 10:51 08-03-2003
defis



LP fan
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
raven
Чёрт, ведь хотел - пасиб - щас провернем.

Всего записей: 1253 | Зарегистр. 07-10-2002 | Отправлено: 10:53 08-03-2003
defis



LP fan
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Другой вопрос - если дано много-много маленьких массивов - а надо их объединить в группы(более большие массивы, а длина этих маленьких - один символ)  - как?

Всего записей: 1253 | Зарегистр. 07-10-2002 | Отправлено: 18:43 08-03-2003
raven



Черный ворон
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
defis
Ничего не понял - поподробнее, если мона с конкретным примером.

----------
n/a

Всего записей: 992 | Зарегистр. 13-08-2002 | Отправлено: 21:05 08-03-2003
defis



LP fan
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
raven
Извиняюсь - до меня дошло почти - эту задачку низя через строку сделать - у неё же ведь длина максимум 255 - а там может быть и больше.
так что если есть предложения как сделать эту(Причитать текстовой файл str.txt состоящий из произвольного числа строк, и вывести в файл str1.txt этот же текст так, чтобы в каждой строке содержалось ровно по 50 знаков.) задачку буду благодарен.
-------------------
Мне вот тут предложили-но оно всё делает но в файле str1.txt не делает четко строчки по 50 символов, а через каждые 50 символов добавляет пробел.Вот текст который мне дали:
uses crt;
var
 fp,fi:file of char;
 i : integer; ch:char;
 
begin
assign(fi,'c:\111.bak');
assign(fp,'c:\111.bbb');
reset(fi); rewrite(fp);
 
while (not eof(fi)) do
begin
 for i:=1 to 50 do
  begin
   if not eof(fi) then read(fi,ch);
   if not eof(fi) then write(fp, ch);
  end;
 ch:=chr(13); write(fp,ch);  
end;
close(fi); close(fp);
end.

Всего записей: 1253 | Зарегистр. 07-10-2002 | Отправлено: 21:30 08-03-2003
raven



Черный ворон
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
ch:=chr(13); write(fp,ch);

Попробуй поменять writeln(fp);
Или что-то типа этого.

----------
n/a

Всего записей: 992 | Зарегистр. 13-08-2002 | Отправлено: 21:40 08-03-2003
defis



LP fan
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
неа не катит.уже не догадываюсь ваще.

Всего записей: 1253 | Зарегистр. 07-10-2002 | Отправлено: 17:25 09-03-2003
UncoNNecteD



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Аднака по стандарту надо вставлять chr(10)+chr(13)...
если я не туплю

Всего записей: 4040 | Зарегистр. 21-03-2002 | Отправлено: 20:27 09-03-2003
raven



Черный ворон
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
Аднака по стандарту надо вставлять chr(10)+chr(13)...

Асек нахакался?
 
Можно ещё так writeln(fp,' ') или writeln(fp,'\n');
 
Ещё решение:

Код:
 
uses crt;  
var  
 fp,fi:file of char;  
 i : integer; ch:char;  
 
begin  
assign(fi,'c:\111.bak');  
assign(fp,'c:\111.bbb');  
reset(fi); rewrite(fp);  
 
while (not eof(fi)) do  
begin  
 for i:=1 to 49 do  
  begin  
   if not eof(fi) then begin
    read(fi,ch);  
    write(fp, ch);
   end;
  end;  
  if not eof(fi) then begin
       read(fi,ch);  
       writeln(fp, ch);

      end;
end;  
close(fi); close(fp);  
end.


----------
n/a

Всего записей: 992 | Зарегистр. 13-08-2002 | Отправлено: 21:08 09-03-2003 | Исправлено: raven, 21:08 09-03-2003
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Turbo Pascal проблема - помогите, плиизз!


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru