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

Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4.

30.01.2010, 12:03. Показов 2365. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Надо срочно решить несколько задач, моя вечная благодарность решившему прилагается:
1)Составить программу для вычисления степеней чисел а^n, если a>MaxInt, n>10.
2)Заполнить файл f целыми числами, полученных с помощью генератора случайных чисел. Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4.
3)Создать файл с текстом на английском языке. Выбрать из него те символы, которые встречаются только один раз, в том порядке в котором они встречаются в тексте.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2010, 12:03
Ответы с готовыми решениями:

Найти среди компонентов файла количество чисел, которые делятся на 2, но не делятся на 4
Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Найти среди...

Найти количество чисел в массиве которые делятся на 3, но не делятся на 7
Заполнить массив и найти количество чисел в массиве которые делятся на 3, но не делятся на 7 и...

Дан одномерный массив целых чисел. Найти количество и сумму тех членов массива, которые делятся на 5 и не делятся на
Дан одномерный массив целых чисел. Найти количество и сумму тех членов массива, которые делятся на...

Количество чисел, принадлежащих отрезку, которые делятся на 3 и не делятся на 11,13,17 и 19
Рассматривается множество целых чисел, принадлежащих отрезку , которые делятся на 3 и не делятся на...

4
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
30.01.2010, 13:52 2
2.
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
uses crt;
var f,g:file of integer;
    c,i,k:integer;
begin
clrscr;
assign(f,'filef');
rewrite(f);
writeln('Введите в файл целые числа, окончание ввода ноль.');
repeat
readln(c);
write(f,c);
until c=0;
clrscr;
writeln('Содержание файла F:');
reset(f);
k:=0;
while not eof(f) do
 begin
  read(f,c);
  write(c,' ');
  if(c mod 2=0)and(c mod 4<>0) then k:=k+1;
 end;
writeln;
write('Количество чисел, кратных 2 и не кратных 4=',k);
close(f);
readln
end.
1
0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 3
31.01.2010, 16:59  [ТС] 3
Благодарю за решение хотя-бы одного)
0
#define книжный_червь Я
185 / 96 / 21
Регистрация: 30.01.2010
Сообщений: 780
31.01.2010, 18:29 4
№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
var
  a,b: text;
  s,d: string;
  i,j,u,y: byte;
  p: boolean;
begin
  assign(a,'work1.txt');
  assign(b,'work1.txt');
  reset(a);
  reset(b);
  while not eof(a) do
  begin
    while not eoln(a) do
      read(a,s);
    inc(u);
    for i := 1 to length(s) do
    begin
      p := false;
      y := 0;
      reset(b);
    while not eof(b) do
    begin
      while not eoln(b) do
        read(b,d);
      inc(y);
      for j := 1 to length(d) do
        if (s[i] = d[j]) then
        begin
          if (y <> u) or ((y = u) and (j <> i)) then
           begin p := true; break end;
        end;
        readln(b);
        if p then break;
      end;
      if not p then writeln(s[i]);
    end;
    readln(a);
  end;
  write('Rabota okonchena! Nazmite <Enter>.');
  readln
end.
Вот! Если хочешь, чтобы программа проверяла существует ли файл или нет, то напиши после assign(b,'work1.txt'); напиши {$I-} и сделай проверку функцией IOresult! Если не существует то сделай Rewrite(b); rewrite(a);.

Добавлено через 10 минут
А вот если с клавиатуры вводится файл:
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
50
51
52
53
54
var
  a,b: text;
  s,d,e: string;
  i,j,u,y: byte;
  p: boolean;
begin
  write('Vvedite direktoriyu: ');
  readln(e);
  assign(a,e);
  assign(b,e);
  {$I-}
  reset(a);
  reset(b);
    if IOresult <> 0 then
  begin
    write('Takogo fayla ne sushestvuet, no my ego sozdadim!');
    readln;
    rewrite(a);
    rewrite(b);
    reset(a);
    reset(b);
  end;
  {$I+}
  while not eof(a) do
  begin
    while not eoln(a) do
      read(a,s);
    inc(u);
    for i := 1 to length(s) do
    begin
      p := false;
      y := 0;
      reset(b);
    while not eof(b) do
    begin
      while not eoln(b) do
        read(b,d);
      inc(y);
      for j := 1 to length(d) do
        if (s[i] = d[j]) then
        begin
          if (y <> u) or ((y = u) and (j <> i)) then
           begin p := true; break end;
        end;
        readln(b);
        if p then break;
      end;
      if not p then writeln(s[i]);
    end;
    readln(a);
  end;
  write('Rabota okonchena! Nazmite <Enter>.');
  readln
end.
1
0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 3
31.01.2010, 23:53  [ТС] 5
Хакер, вам тоже большое спасибо!
0
31.01.2010, 23:53
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.01.2010, 23:53
Помогаю со студенческими работами здесь

Найти количество и сумму тех членов последовательности, которые делятся на 5 и не делятся на 7
дано n и последовательность чисел a1,a2,a3 ... an.(цифры и n рядом из а это индексы).Найти...

Найти количество и сумму тех членов массива, которые делятся на 5 и не делятся на 7.
Дан массив из n чисел. Найти количество и сумму тех членов последовательности, которые делятся на 5...

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

Найти количество и сумму членов заданного массива, которые делятся на 5 и не делятся на 7
Дан массив целых чисел а0,...,аn-1. Найти количество и сумму тех членов данного массива, которые...


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

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

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