Прогаммы на Turbo Pascal

[reper]

Кому нечего делать посидите над этой прогой:

new1. Вычислить значение функции F, при изменении любых двух аргументов по закону арифметической прогрессии (табулирование функции).
Значение аргумента выбрать самостоятельно из области допустимых значений таким образом, чтобы каждый из аргументов организовать в виде двух вложенных циклов с постусловием на внешнем цикле, с предусловием на внутреннем цикле.
Вот значение функции написаной на Паскале (где a и b константы a=2, b=3)
f:=4*x*sqrt(a)*ln(e*exp(-b*y*y/x))

А остальные у меня есть!

[Mariana2]

Народ спасите!!!!!! не могу решить жуть а не прога!!


Вводные данные представляют собой последовательность целых чисел, состоящую из нескольких подпоследовательностей, каждая из которых заканчивается 0.(0 не принадлежит последовательности) Сформулируйте новую последовательность, в которой сохранен порядок следования подпоследовательностей, но внутри каждой подпоследовательности числа следуют в обратном порядке.
(например:
ввод:1 10 3 9 0 7 6 2 0 4 5 8 1 2 11 1 3 0
вывод:9 3 10 1 0 2 6 7 0 1 3 11 1 2 8 5 4 0)

[holyday]

Под рукой нет ни Турбо Паскаля фор Дос ни даже Делфи, отказался от них.
Могу только экспромтом:

Код Выделить Развернуть


{
вводите масив:
a[i], где i=1,n
}
b : Array[1..20] of Integer;
//Пробегаем весь массив a[i] до "0" формируя подмассив b[j] и выводим его наоборот.
for i:=1 to n do
begin
j:=j+1;
if(a[i] <> 0) b[j]:=a[i]; // формируем подмасив.
 else
  begin
   //ну и выводим его наоборот.
   while j<>0 do
    begin
     Write(b[j], ", ");
     j:=j-1
    end;
  end;
end;


Вроде правильно ...

[Mariana2]

Спасибо))
а можно еще написать как мне вводить этот массив из файла, он же из файла берется я правильно понимаю?
Числа же просто так не появятся)
заранее спасибо)

[holyday]

Mariana2

он же из файла берется

можно и из клавиатуры ввести.

[Mariana2]

можно расписать плиз? я в паскале дуб дубом, а надо очень)

[holyday]

Код Выделить Развернуть


Procedure Proc
var
n, i:Integer;
a : Array[1..20] of Integer;
b : Array[1..20] of Integer;
begin
Read('n=', n);
for i:=1 to n do
begin
Read('a[',i,']=', a[i]);
end;
//Пробегаем весь массив a[i] до "0" формируя подмассив b[j] и выводим его наоборот.
for i:=1 to n do
begin
j:=j+1;
if(a[i] <> 0) b[j]:=a[i]; // формируем подмасив.
else
 begin
  //ну и выводим его наоборот.
  while j<>0 do
   begin
    Write(b[j], ", ");
    j:=j-1
   end;
 end;
end;



[Mariana2]

спасибо)))))))))))

я наверно очень нашглею, но можно еще вписать про файл из которого бется эта последовательность)
если можно, то буду очень признательна)

[holyday]

Mariana2
А можно на С или на С++ написать ???

[holyday]

Хотя:

Код Выделить Развернуть


Var UserFile : Text;
   FileName, TFile : String;
  a : Array[1..20] of Integer;
  i:Integer;
Begin
Writeln('Введите имя файла '+
       +'(полный путь) только текстовый файл:');
readln(FileName);
Assign(UserFile, FileName + '.txt');
Reset(UserFile);

while not eof(UserFile) do
begin
  i:=i+1;
  Readln(UserFile,a[i]);
end;

Close(UserFile);
Readln;
End.