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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.12.2010, 16:37   #1
Ekvental
Пользователь
 
Регистрация: 26.11.2010
Сообщений: 26
По умолчанию Нужно сформулировать принцип выполнения программы в среде Turbo Pascal по её данному условию.

Дано условие задачи для реализации её методом разработки программы алгоритма в среде TurboPascal.
"Задан массив х, размером N. Сформировать из него матрицу А, содержащую по (альфа) элементов в строке (их кол-во задается произвольно). Недостающие элементы в последней строке( если такие будут), заполнить нулями."
Надо cформулировать принцип выполнения программы (на словах).
Ekvental вне форума Ответить с цитированием
Старый 28.12.2010, 17:26   #2
k0tone
Пользователь
 
Аватар для k0tone
 
Регистрация: 09.11.2010
Сообщений: 99
По умолчанию

Цитата:
Надо cформулировать принцип выполнения программы (на словах).
Вот принцип выполнения программы на языке Pascal. Разберись в ней и сам сформулируй принцип выполнения на словах.
Код:
program test;
uses crt;
const n=10;
var x:array [1..n] of integer;
    a:array [1..64, 1..64] of integer;
    i,j,m,k:integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
    x[i]:=random(21)-10;
    write(x[i]:4);
  end;
writeln;
write('Vvedite ALFA=');
readln(m);
k:=0;
for i:=1 to m do
  begin
    for j:=1 to m do
      begin
        if j+k>n then x[j+k]:=0;
        a[i,j]:=x[j+k];
        write(a[i,j]:4);
      end;
    k:=k+m;
    writeln;
  end;
readln;
end.
Если я вам помог - нажмите на весы пот аватаркой!

Последний раз редактировалось k0tone; 28.12.2010 в 17:39. Причина: исправил j+k>10 на j+k>n
k0tone вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Блок схема по программе в среде Turbo Pascal. Ekvental Помощь студентам 0 27.12.2010 20:15
Основы программирования в среде Turbo Pascal Рэнуля Помощь студентам 4 07.12.2010 17:21
Разработка в среде Turbo Pascal программы перестановки столбцов матрицы Kapriz Паскаль, Turbo Pascal, PascalABC.NET 1 21.05.2009 18:38