Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 02.06.2011, 21:17   #1
Абай
Пользователь
 
Регистрация: 31.05.2011
Сообщений: 19
По умолчанию ОШИБКА

Дан массив размера N и целое число K (1 · K < N). Осуществить
сдвиг элементов массива вправо на K позиций (при этом A1 перейдет
в AK+1, A2 — в AK+2, : : :, AN¡K — в AN, а исходное значение K последних
элементов будет потеряно). Первые K элементов полученного массива
положить равными 0.





program z13;
var a:array[1..100]of integer;
i,n,k,j:integer;
begin
writeln ('Введите размер массива'); readln (n);
writeln ('Задайте число сдвига'); readln (k);
for i:=1 to n do begin
writeln ('Введите ',i,'элемент массива'); readln (a[i]); end;
write ('Исходный массив');
for i:=1 to n do begin
write (a[i],' '); end;
for i:=1 to k do begin
if i<=k then a[i]:=0 end;
for j:=n downto k-1 do begin
a[j]:=a[j+k]; a[k]:=0;end;
writeln; write ('massiv posle sdviga ');
for i:=1 to n do begin
write(a[i],' '); end;
readln; end.

Последний раз редактировалось Абай; 03.06.2011 в 15:25.
Абай вне форума
Старый 02.06.2011, 21:39   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

И в чем или где ошибка? Вы думаете у всех в мозг встроен компилятор Паскаля?
Цитата:
writeln ('Введите ',i,*'элемент массива')
Что за *?

И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Nero - ошибка драйвера DMA. ошибка CRC NecRoMat Софт 5 09.05.2012 01:29
Ошибка run-time Error 1004 общая ошибка ODBC kaval88 Microsoft Office Excel 0 27.02.2011 20:20
Ошибка в коде, ошибка в css или это проблема с совместимостью с браузерами? ankris HTML и CSS 5 23.11.2010 16:58
Это ошибка Delphi или моя ошибка??? bloodeagle Общие вопросы Delphi 3 12.11.2009 15:26
...Ошибка 101 (net::ERR_CONNECTION_RESET): Неизвестная ошибка... infrared Помощь студентам 0 16.04.2009 17:44