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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2016, 20:52   #1
Neversmilе
 
Регистрация: 09.01.2016
Сообщений: 7
Вопрос Помогите пожалуйста решить. Pascal

В двумерном массиве размещены: в первой строке - значения аргумента X, во второй — соответствующие им значения функции sin(X). Вывести в файл элементы этого массива в виде двух параллельных столбцов (аргумент и значения функции). Оформить в виде процедуры.
Neversmilе вне форума Ответить с цитированием
Старый 12.01.2016, 21:13   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Исходные данные где?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 12.01.2016, 21:15   #3
Neversmilе
 
Регистрация: 09.01.2016
Сообщений: 7
По умолчанию

через рандом
Neversmilе вне форума Ответить с цитированием
Старый 12.01.2016, 21:20   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
через рандом
Это неправда.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 12.01.2016, 21:48   #5
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Как-то так:
Код:
const 
  n=10;

type
  TTable = array[1..n,1..2] of Single;

procedure CreateTable(var t: TTable);
var
  i: byte;
begin
  for i:=1 to n do begin
    t[i,1]:=random*10;
    t[i,2]:=sin(t[i,1]);
  end;
end;

procedure WriteTable(const t: TTable);
var
  i: byte;
begin
  for i:=1 to n do begin
    writeln(t[i,1]:8:2,t[i,2]:8:2);
  end;
end;

var
  a: TTable;
  
begin
  randomize;
  assign(output,'1.txt');
  rewrite(output);
  CreateTable(a);
  WriteTable(a);
  close(output);
end.
Arigato вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста решить. Pascal Neversmilе Помощь студентам 1 12.01.2016 20:55
Пожалуйста помогите решить задачу на Pascal serafima_92 Помощь студентам 4 24.09.2009 10:13
помогите пожалуйста решить задачу в pascal volia.92 Помощь студентам 1 06.06.2009 05:42
помогите пожалуйста решить задачу на Pascal'e. roller Помощь студентам 8 13.03.2009 10:48