Помогите решить задачи

[BLADEE]

Помогите решить задачи

помогите решить задачи по паскалю полностью с условием и концом плиз

вот задачи

1)Дан файл целых чисел. удвоить его размер записав в конце файла все его исходные элементы в обратном порядке.

2)Дан массив из N вещественных чисел . Сгенерировать строку состоящую из четных элементов массива разделенными пробелами.Все числа должны
быть представленыс точностью до 4 знаков после запятой.


зарание спасибо тока решите полностью с условием и концом пожалуйсто

 

[BLADEE]

ап помогите плиз

 

[Vladimir_S]

помогите решить задачи по паскалю полностью с условием и концом плиз

Экой Вы настырный, однако. И почему мы за Вас должны эти детские задачки решать? И потом - что значит "с условием и концом"? Не понимаю. А еще терпеть не могу этот оборотик: "Дан файл", "Дан массив" и т.п. Как дан? В каком виде "дан"? Надо его самому создавать или существует исходно? Ну в общем так. Будем считать, что в корневом каталоге диска С: имеется файл с целыми числами по имени xxx, не содержащий переносов (для первой задачи) и сформирован массив вещественных чисел A для второй. Дальше так:

1)Дан файл целых чисел. удвоить его размер записав в конце файла все его исходные элементы в обратном порядке.

CONST
 Nmax=500;
VAR
 C:ARRAY[1..Nmax] of INTEGER;
 N,i:INTEGER;
 f:TEXT;
BEGIN
 Assign(f,'C:\xxx');
 ReSet(f);
 N:=0;
 While (Not EoF(f)) do
  begin
   INC(N);
   Read(f,C[N]);
  end;
 Close(f);
 Append(f);
 WriteLn(f);
 For i:=N downto 1 do
  Write(f, C[i], ' ');
 Close(f);
END.

2)Дан массив из N вещественных чисел . Сгенерировать строку состоящую из четных элементов массива разделенными пробелами.Все числа должны
быть представленыс точностью до 4 знаков после запятой.

Тут опять же не очень понятно - что значит "четные элементы массива"? Если это элементы, имеющие четные номера, то так:

CONST
 N=100;
VAR
 A:ARRAY[1..N] of REAL;
 i:INTEGER;
BEGIN
 i:=2;
 Repeat
  Write(A[i]:12:4);
  INC(i,2);
 Until i>N;
 ReadLn;
END.

А если это четные числа, входящие в массив, то так:

CONST
 N=100;
VAR
 A:ARRAY[1..N] of REAL;
 i:INTEGER;
BEGIN
 For i:=1 to N do
  If (A[i] mod 2)=0 then
   Write(A[i]:12:4);
 ReadLn;
END.

 

[BLADEE]

по поводу ето задачи

CONST
Nmax=500;
VAR
C:ARRAY[1..Nmax] of INTEGER;
N,i:INTEGER;
f:TEXT;
BEGIN
Assign(f,'C:\xxx');
ReSet(f);
N:=0;
While (Not EoF(f)) do
begin
INC(N);
Read(f,C[N]);
end;
Close(f);
Append(f);
WriteLn(f);
For i:=N downto 1 do
Write(f, C, ' ');
Close(f);
END.

она должна в текстовом выгледить так чтобы выдавала
например исходные файлы записаны 12345678 его нада удвоить а в коцне чтобы выгледело все в обртаном порядке ето насчет 1 задачи. а так когда включаю выдает тока одни 0 в токой строке 0
00
000


2 задача должна генерировать числа входящие в масив любые. тока второй вариант не работает почемуто у меня

 

[Vladimir_S]

по поводу ето задачи

она должна в текстовом выгледить так чтобы выдавала
например исходные файлы записаны 12345678 его нада удвоить а в коцне чтобы выгледело все в обртаном порядке ето насчет 1 задачи. а так когда включаю выдает тока одни 0 в токой строке 0
00
000

Ну не знаю, правильно ли я понял. У меня программа работает так (показано содержимое исходного файла и того же файла после прогона программы):

 

[Vladimir_S]

2 задача должна генерировать числа входящие в масив любые. тока второй вариант не работает почемуто

Да, это я виноват - забыл, что массив-то вещественный, а не целочисленный. Так что второй вариант отменяется.

 

[BLADEE]

Ну не знаю, правильно ли я понял. У меня программа работает так (показано содержимое исходного файла и того же файла после прогона программы):

да поповоду 1 задачи все правельно тока должно быть так

10 23 43 123 3221
6442 246 86 46 20

там же написано его удвоить

 

[BLADEE]

ну и напиши плиз тут две решонные эти задачи зарание спасибо

 

[Vladimir_S]

да поповоду 1 задачи все правельно тока должно быть так

10 23 43 123 3221
6442 246 86 46 20

там же написано его удвоить

Читайте ВНИМАТЕЛЬНО формулировку задачи:

Дан файл целых чисел. Удвоить его размер, записав в конце файла все его исходные элементы в обратном порядке.

То есть не числа надо удваивать, а размер файла, путем добавления в него ТЕХ ЖЕ ЧИСЕЛ, но выстроенных в обратом порядке.


А по поводу второй задачи - ладно, добавлю еще генерацию самогО массива.

Дан массив из N вещественных чисел . Сгенерировать строку, состоящую из четных элементов массива, разделенных пробелами. Все числа должны быть представлены с точностью до 4 знаков после запятой.

CONST
 N=10;
VAR
 A:ARRAY[1..N] of REAL;
 i:INTEGER;
BEGIN
 Randomize;
 WriteLn('Initial array:');
 For i:=1 to N do
  begin
   A[i]:=Random*10;
   Write(A[i]:7:4);
  end;
 WriteLn;
 WriteLn;
 WriteLn('Even-placed elements:');
 i:=2;
 Repeat
  Write(A[i]:7:4);
  INC(i,2);
 Until i>N;
 WriteLn;
 ReadLn;
END.

 

[BLADEE]

напиши первую задачу полностью плиз

а нас чет второй должны генерироваться четные числа масива

вот например

четыне элементы 2.3454 4.3213 6.4323 что такое чтоыб числа четные были

 

[AlexZir]

BLADEE
Вы уж будьте так любезны, определитесь, что должно генерироваться - четные значения элементов массива или значения четных элементов массива? Просто это несколько разные вещи и пост #10 в этом противоречит посту #1.

 

[Vladimir_S]

напиши первую задачу полностью плиз

Так она полностью и написана в #3. Больше ничем помочь не могу.

а насчет второй должны генерироваться четные числа массива
вот например четные элементы 2.3454 4.3213 6.4323 что такое чтоб числа четные были

Согласно существующей математике, вещественные числа свойством четности не обладают. Только целые. А в условиях задачи - массив вещественных чисел.

 

[BLADEE]

ап......

 

[BLADEE]

ага первая полностью рабоатетт спс а насчет второй вот в задаче написано вот так как понять сам не в куриваю
.
Дан массив из N вещественных чисел . Сгенерировать строку состоящую из четных элементов массива разделенными пробелами.Все числа должны
быть представленыс точностью до 4 знаков после запятой.

не каких начальных чисел в масиве нету просто ее нада решить чтоыб она покзаывала решение и все как бы вы представли по этому условию как ее решать напишите плиз а тов понедельник ехать жкзамен сдавать а я не разбриаюсь в паскале =(

 

[AlexZir]

var n,i: integer;
mas: array[1..10000] of real;
begin
writeln('Input N');  //запрос размерности массива
readln(n);
for i:=1 to n do //цикл заполнения массива значениями с клавиатуры
begin
writeln('Input mas[',i,'] >');
read(mas[i]); end;
i:=2; 
while i<=n do  {цикл вывода на экран значений четных элементов массива, начиная со 2-го}
begin
writeln(mas[i]:10:4,' ');
inc(i,2); end;
readln
end.

 

[BLADEE]

спс может прокатит