0 / 0 / 0
Регистрация: 14.04.2015
Сообщений: 49
1

Присоединить к вводу с файла и выводу на него

16.12.2015, 10:42. Показов 464. Ответов 3
Метки нет (Все метки)

Присоединить к вводу с файла и выводу на него
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
function ok(y, z: byte): boolean;
var
  x: byte;
  i: integer;
begin
  x := y xor z;
  { Развернем двоичное число в массив }
  for i := 1 to m do
  begin
    b[i] := x and 1;
    x := x shr 1;
  end;
 
  { Проверим, что нет двух нулей подряд }
  for i := 2 to m do
    if (b[i] = 0) and (b[i-1] = 0) then
    begin
      ok := false;
      exit;
    end;
  ok := true;
end;
 
Теперь ядро программы – заполнение динамически массива A:
 
  { Находим максимальное значение профиля } 
  p := 1 shl m - 1;
 
  fillchar(a, sizeof(a), 0);
  { Начальные значения }
  for i := 0 to p do
    a[1][i] := 1;
 
  { Заполнение }
  for i := 2 to n do
  begin
    for j := 0 to p do
      for k := 0 to p do
      begin
        if ok(j, k) then
          a[i][k] := a[i-1][j] + a[i][k];
      end;
  end;
 
  { Подсчет и вывод ответа }
  r := 0;
  for i := 0 to p do
    r := r + a[n][i];
  writeln(r);
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2015, 10:42
Ответы с готовыми решениями:

Контрольная по вводу/выводу , оператор условного перехода
Помогите сложить блок-схему и написать программу к к двум заданиям 1)Операторы ввода/вывода...

Написать программу по вводу-выводу
Здравствуйте. Помогите пожалуйста с выполнение лабораторных работ.. Через неделю экзамен, а я...

Переход от чтения с файла к вводу с клавиатуры
Добрый вечер. Помогите пожалуйста. Тема в заголовке. Тут суть проста. Дано несколько предложений,...

Запись и считывание из файла. Вывод не соответствует вводу
void STF(String n){ ofstream file("343.txt",ios_base::app); file<<n.c_str()<<endl;...

3
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
16.12.2015, 12:21 2
Цитата Сообщение от nikolaka Посмотреть сообщение
к вводу с файла
А что должно быть в файле?
0
0 / 0 / 0
Регистрация: 14.04.2015
Сообщений: 49
16.12.2015, 13:45  [ТС] 3
Размер массива, пример: 2 2 или 3 3
0
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
16.12.2015, 13:49 4
Из файла
Pascal
1
2
3
4
assign(f,'input.txt');
reset(f);
read(f,m,n);
close(f);
В файл
Pascal
1
2
3
4
assign(f);
rewrite(f);
writeln(f,r);
close(f);
Добавлено через 37 секунд
Только нахрена это нужно...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2015, 13:49

Как присоединить к форме загрузку файла?
Есть код отправки файла на сервер и есть форма с данными. По отдельности всё работает, а как только...

как после вывода данных из текстового файла вернуться к выводу с клавиатуры
как после вывода данных из текстового файла вернуться к выводу с клавиатуры в следующей...

Составить программу по выводу из файла всех текстовых сообщений с указанием порядкового номера их первого символа
Составить программу по выводу из файла всех текстовых сообщений с указанием порядкового номера их...

Как присоединить к exe файлу произвольный файл, а при запуске exe файла открыть его
Есть файл, который представляет из себя набор других файлов ) и есть exe файл, который открывает...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.