Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Может я тупой, но я не понимаю что от меня хотят

Автор: Рома 19.03.2012 23:04

составить программу по этим строчкам,где n=10
K:=A[n]
For i:=n downto 2 do
A[i]:= A[i-1];
A[1]:=K;

Автор: Федосеев Павел 20.03.2012 0:08

Начало простое:

program MyCoolProgram;
begin
end.

Потом наполняешь эту авоську:
program MyCoolProgram;
begin
  K:=A[n];
  For i:=n downto 2 do
    A[i]:= A[i-1];
  A[1]:=K;
end.

Далее смотришь ошибки компиляции - не описаны переменные - и исправляешь их:
program MyCoolProgram;
const
  n=10;
var
  i : integer;
  A : array [1..n] of real;
begin
  K:=A[n];
  For i:=n downto 2 do
    A[i]:= A[i-1];
  A[1]:=K;
end.

Я оставил тебе возможность самостоятельно описать K.

Автор: Рома 20.03.2012 23:33

спасибо, но можно ещё помочь если не трудно
как вывести потом весь этот массив?
вставил write перед end в надежде, что будет выводить каждый элемент массива но не получилось(

Автор: Федосеев Павел 20.03.2012 23:43

Массив это не элементарный тип и для его вывода нужно ручками делать подпрограмму. Короче говоря, в цикле for i перебираешь от 1 до n и выводишь A[i].

Автор: Рома 20.03.2012 23:56

спасибо