Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
34 / 34 / 22
Регистрация: 23.03.2013
Сообщений: 176
1

Используя файловую структуру, написать программу ввода элементов массива и вывода отрицательных элементов

11.07.2013, 17:11. Показов 708. Ответов 6
Метки нет (Все метки)

Используя файловую структуру, написать программу ввода элементов массива и вывода отрицательных элементов. Использовать оператор case.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.07.2013, 17:11
Ответы с готовыми решениями:

Написать программу ввода вывода вектора. Найти количество положительных, отрицательных и нулевых элементов, и
Дана задача: написать программу ввода вывода вектора (под вектором имеется ввиду массив). Найти...

Разработайте программу ввода элементов массива по столбцам и вывода элементов массива в виде матрицы на экран
14,Разработайте программу ввода элементов массива по столбцам и вывода элементов массива в виде...

Составить программу для ввода с клавиатуры 15 чисел и вывода отрицательных элементов через подпрограмму функции
Добрый вечер)0Составить программу для ввода с клавиатуры 15 чисел и вывода отрицательных элементов...

Написать программу ввода в массив 6x5 элементов чисел и вычисления суммы элементов полученного массива
Пожалуйста помогите решить!

6
Эксперт 1С
475 / 413 / 92
Регистрация: 26.09.2012
Сообщений: 1,885
11.07.2013, 17:21 2
Мне задание не совсем ясно. М.б есть более подробное описание
1
34 / 34 / 22
Регистрация: 23.03.2013
Сообщений: 176
11.07.2013, 19:48  [ТС] 3
Цитата Сообщение от Joker_vad Посмотреть сообщение
Мне задание не совсем ясно. М.б есть более подробное описание
1)С клавиатуры вводить элементы массива(это не проблема)
2)Записать их в файл
3)Открыть этот файл и вывести на экран только отрицательные
4)(самое главное) использовать (где-то там) оператор case
0
Модератор
8669 / 4328 / 2974
Регистрация: 17.08.2012
Сообщений: 13,783
12.07.2013, 04:58 4
Оператор case по-любому здесь оказывается притянут за уши. Что поделать, очередное бестолковое задание. Вот так как-то:
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
program Negat;
 
var a: array [1..10] of integer;
    i: byte;
    k: integer;
    f: file of integer;
    b, n: boolean;
 
begin
  n := true;
  assign(f, 'c:\1.bin');
  rewrite(f);
  writeln('Enter array:');
  for i := 1 to 10 do
    begin
      write('a[', i:2, '] = ');
      readln(a[i]);
      write(f, a[i])
    end;
  close(f);
  assign(f, 'c:\1.bin');
  reset(f);
  writeln('Negative elements od array:');
  for i := 1 to 10 do
    begin
      read(f, k);
      if k < 0 then b := true
               else b := false;
      case b of
        true:
          begin
            writeln('a[', i:2, '] = ', k);
            n := false
          end;
        false: continue
      end;
    end;
  close(f);
  if n then writeln('None');
  readln
end.
Всего доброго.
1
34 / 34 / 22
Регистрация: 23.03.2013
Сообщений: 176
12.07.2013, 11:22  [ТС] 5
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Оператор case по-любому здесь оказывается притянут за уши. Что поделать, очередное бестолковое задание. Вот так как-то:
переменная b на строке 29 типа boolean, а прога кричит что в case-е могут быть только integer, byte и т.д. но не этот. Меняю на integer указывает на строку 27 и кричит что использовали переменную типа integer как boolean. Тоже самое касается и переменной n. Че делать?
0
Эксперт 1С
475 / 413 / 92
Регистрация: 26.09.2012
Сообщений: 1,885
12.07.2013, 11:26 6
приравнивай единице и нулю ноль будет заменять ложь, единица истину
1
Модератор
8669 / 4328 / 2974
Регистрация: 17.08.2012
Сообщений: 13,783
14.07.2013, 23:54 7
Странно... boolean перечисляемый тип, и в case использовать его не возбраняется... У меня работает... Видно, всё от компилятора зависит. Тогда да, как Joker_vad прописал.
Кликните здесь для просмотра всего текста
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
program Negat;
 
var a: array [1..10] of integer;
    b, i: byte;
    k: integer;
    f: file of integer;
    n: boolean;
 
begin
  n := true;
  assign(f, 'c:\1.bin');
  rewrite(f);
  writeln('Enter array:');
  for i := 1 to 10 do
    begin
      write('a[', i:2, '] = ');
      readln(a[i]);
      write(f, a[i])
    end;
  close(f);
  assign(f, 'c:\1.bin');
  reset(f);
  writeln('Negative elements od array:');
  for i := 1 to 10 do
    begin
      read(f, k);
      if k < 0 then b := 1
               else b := 0;
      case b of
        1:
          begin
            writeln('a[', i:2, '] = ', k);
            n := false
          end;
        0: continue
      end;
    end;
  close(f);
  if n then writeln('None');
  readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.07.2013, 23:54

Разработать программу для ввода и вывода элементов массива
Разработать программу для ввода и вывода элементов одномерного массива размером 10 элементов. при...

Написать программу ввода вывода вектора. Подсчитать количество всех элементов и вывести на экран
Помогите разобраться с постановкой задачи: Написать программу ввода вывода вектора. Подсчитать...

Составьте программу ввода с клавиатуры элементов массива а [1.10] и вывода их на экран в столбец
Составьте программу ввода с клавиатуры элементов массива а и вывода их на экран в столбец

Вычислить среднее арифметическое чётных элементов массива( написать подпрограммой с использование процедур ввода и вывода)
Вычислить среднее арифметическое чётных элементов массива( написать подпрограммой с использование...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru