16.01.2010, 18:30 | #1 (permalink) |
Новичок
Регистрация: 16.01.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачи
вот задачи 1)Дан файл целых чисел. удвоить его размер записав в конце файла все его исходные элементы в обратном порядке. 2)Дан массив из N вещественных чисел . Сгенерировать строку состоящую из четных элементов массива разделенными пробелами.Все числа должны быть представленыс точностью до 4 знаков после запятой. зарание спасибо тока решите полностью с условием и концом пожалуйсто |
16.01.2010, 18:30 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Если вы еще не читали похожие обсуждения - сделайте это Помогите решить задачи на C++ Помогите решить задачи на C++ Помогите пожалуйста решить задачи |
18.01.2010, 15:53 | #3 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Экой Вы настырный, однако. И почему мы за Вас должны эти детские задачки решать? И потом - что значит "с условием и концом"? Не понимаю. А еще терпеть не могу этот оборотик: "Дан файл", "Дан массив" и т.п. Как дан? В каком виде "дан"? Надо его самому создавать или существует исходно? Ну в общем так. Будем считать, что в корневом каталоге диска С: имеется файл с целыми числами по имени xxx, не содержащий переносов (для первой задачи) и сформирован массив вещественных чисел A для второй. Дальше так:
Цитата:
Код:
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. Цитата:
Код:
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. |
||
19.01.2010, 13:18 | #4 (permalink) |
Новичок
Регистрация: 16.01.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
по поводу ето задачи
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. она должна в текстовом выгледить так чтобы выдавала например исходные файлы записаны 12345678 его нада удвоить а в коцне чтобы выгледело все в обртаном порядке ето насчет 1 задачи. а так когда включаю выдает тока одни 0 в токой строке 0 00 000 2 задача должна генерировать числа входящие в масив любые. тока второй вариант не работает почемуто у меня http://www.tehnari.ru/imagehosting/2...578aa24bb3.png Последний раз редактировалось BLADEE; 19.01.2010 в 13:24 Причина: дописать |
19.01.2010, 14:58 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну не знаю, правильно ли я понял. У меня программа работает так (показано содержимое исходного файла и того же файла после прогона программы):
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
20.01.2010, 14:11 | #9 (permalink) | |||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
А по поводу второй задачи - ладно, добавлю еще генерацию самогО массива. Цитата:
Код:
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. |
|||
20.01.2010, 14:59 | #10 (permalink) |
Новичок
Регистрация: 16.01.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
напиши первую задачу полностью плиз
а нас чет второй должны генерироваться четные числа масива вот например четыне элементы 2.3454 4.3213 6.4323 что такое чтоыб числа четные были Последний раз редактировалось BLADEE; 20.01.2010 в 15:03 Причина: дописал |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|