|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
16.06.2009, 10:43 | #1 (permalink) |
Новичок
Регистрация: 15.06.2009
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Необходима помощь в доработке
Вот, что я смог сделать: Program massiv Const N=10; var i:integer; X:array[1..n] of real; L:array[1..n] of real; begin for i:=1 to n do begin writeln('vvedite znacenie',i,'-go elementa'); read(L[i]); begin if (i mod 2<>1) then x[i]:=sqr(L[i]) else x[i]:=L[i]; writeln('X[',I,']=',X[i]:6:2); end; end; end. Мне нужно ещё, чтобы выводился исходный массив, ведь тут выводится только изменённый. Пару варинантов пробовал - не получилось. Я в паскале совсем начинающий и программу делал не сам, хотя дорабатывал её именно я. Но не до конца. Помогите, пожалуйста |
16.06.2009, 10:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме найдено несколько совпадений Необходима помощь с комплектацией Паскаль, помощь в доработке программ Паскаль, помощь в доработке программ Паскаль, помощь в доработке программ. Помогите в доработке компьютера |
16.06.2009, 12:40 | #2 (permalink) |
Member
Регистрация: 22.01.2008
Сообщений: 553
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
|
Можно даже поблагодарить.
Program massiv; uses crt; Const N=10; var i:integer; X:array[1..n] of real; L:array[1..n] of real; begin clrscr; for i:=1 to n do begin write('L[',i,']='); readln(L[i]); end; for i:=1 to n do if i mod 2=0 then x[i]:=sqr(L[i]) else x[i]:=L[i]; writeln(' masiv L'); for i:=1 to n do write(L[i]:6:2); writeln; writeln(' masiv X'); for i:=1 to n do write(X[i]:6:2); writeln; end. Последний раз редактировалось ww01031977; 16.06.2009 в 12:46 |
16.06.2009, 12:55 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Program massiv; Const N=10; var i:integer; X:array[1..n] of real; L:array[1..n] of real; begin for i:=1 to n do begin Write('vvedite znacenie',i,'-go elementa '); readLn(L[i]); end; for i:=1 to n do if (i mod 2<>1) then x[i]:=sqr(L[i]) else x[i]:=L[i]; WriteLn('Array L:'); for i:=1 to n do Write(L[i]:7:2); WriteLn; WriteLn('Array X:'); for i:=1 to n do Write(X[i]:7:2); WriteLn; ReadLn; end. |
|
16.06.2009, 19:40 | #5 (permalink) |
Member
Регистрация: 22.01.2008
Сообщений: 553
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
20.06.2009, 10:41 | #6 (permalink) |
Новичок
Регистрация: 15.06.2009
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Большое спасибо!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|