Цитата:
Сообщение от BLADEE
помогите решить задачи по паскалю полностью с условием и концом плиз
|
Экой Вы настырный, однако. И почему мы за Вас должны эти детские задачки решать? И потом - что значит "с условием и концом"? Не понимаю. А еще терпеть не могу этот оборотик: "Дан файл", "Дан массив" и т.п. Как дан? В каком виде "дан"? Надо его самому создавать или существует исходно? Ну в общем так. Будем считать, что в корневом каталоге диска С: имеется файл с целыми числами по имени 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.