Технический форум
Вернуться   Технический форум > Программирование > Форум программистов


Ответ
 
Опции темы Опции просмотра
Старый 16.06.2009, 10:43   #1 (permalink)
kill4itski
Новичок
 
Регистрация: 15.06.2009
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Необходима помощь в доработке

Задача: Дан одномерный массив L[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.

Мне нужно ещё, чтобы выводился исходный массив, ведь тут выводится только изменённый. Пару варинантов пробовал - не получилось. Я в паскале совсем начинающий и программу делал не сам, хотя дорабатывал её именно я. Но не до конца. Помогите, пожалуйста
kill4itski вне форума   Ответить с цитированием

Старый 16.06.2009, 10:43
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме найдено несколько совпадений

Необходима помощь с комплектацией
Паскаль, помощь в доработке программ
Паскаль, помощь в доработке программ
Паскаль, помощь в доработке программ.
Помогите в доработке компьютера

Старый 16.06.2009, 12:40   #2 (permalink)
ww01031977
Member
 
Аватар для ww01031977
 
Регистрация: 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
ww01031977 вне форума   Ответить с цитированием
Старый 16.06.2009, 12:55   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от kill4itski Посмотреть сообщение
Задача: Дан одномерный массив L[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.

Мне нужно ещё, чтобы выводился исходный массив, ведь тут выводится только изменённый. Пару варинантов пробовал - не получилось. Я в паскале совсем начинающий и программу делал не сам, хотя дорабатывал её именно я. Но не до конца. Помогите, пожалуйста
Например, так:

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.
Vladimir_S вне форума   Ответить с цитированием
Старый 16.06.2009, 14:04   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Забавно. Обе программы, моя и ww01031977, практически идентичны. Ну надо же!
Vladimir_S вне форума   Ответить с цитированием
Старый 16.06.2009, 19:40   #5 (permalink)
ww01031977
Member
 
Аватар для ww01031977
 
Регистрация: 22.01.2008
Сообщений: 553
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Забавно. Обе программы, моя и ww01031977, практически идентичны. Ну надо же!
Она очень проста. Школьный курс. По-другому и нет смысла делать.
ww01031977 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 20.06.2009, 10:41   #6 (permalink)
kill4itski
Новичок
 
Регистрация: 15.06.2009
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Большое спасибо!
kill4itski вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 22:08.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.