Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Stupid_cat
1

Файл: Вывести номера строк, в которых максимальный элемент является простым числом

29.06.2013, 13:04. Показов 456. Ответов 1
Метки нет (Все метки)

Дан текстовый файл из целых чисел в несколько строк.
Вывести номера строк в которых максимальный элемент является простым числом.

P.S. Решение должно быть через "-maxint".

И есть уже готовая функция по определению простого числа.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function Prost(p:integer):boolean;
     var x:longint;
         y:boolean;
  begin
     if p<2 then y:=false
            else
      begin
         y:=true;
         x:=2;
       while (x*x<=p) and y do
        if p mod x=0 then y:=false
                     else x:=x+1;
       end;
        Prost:=y;
      end;
Заранее спасибо.

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

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

Найти количество строк матрицы, сумма элементов которых является простым числом
1. Дана матрица А(N,M) натуральных чисел. Найти количество строк, сумма элементов которых является...

Переписать в файл числа модуль которых является простым числом
Разработать программу, которая: – создает файл, состоящий из целых чисел, случайно распределенных...

Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов
Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также...

Дан массив А(п,т). Вывести номера столбцов, в которых их среднее арифметическое значение является отрицательным числом.
Помогите............

1
158 / 137 / 106
Регистрация: 18.05.2013
Сообщений: 289
30.06.2013, 00:39 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
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
55
56
57
58
var
  f: text;
 
 
function Prost(p: integer): boolean;
var
  x: longint;
  y: boolean;
begin
  if p < 2 then y := false
            else
  begin
    y := true;
    x := 2;
    while (x * x <= p) and y do
      if p mod x = 0 then y := false
      else x := x + 1;
  end;
  Prost := y;
end;
 
function maxim(s: string): integer;
var
  i := 1;
begin
  result := -maxint;
  while i <= length(s) do
    if s[i] = ' ' then begin
      if result < strtoint(copy(s, 1, i - 1)) then result := strtoint(copy(s, 1, i - 1));
      delete(s, 1, i);
      i := 1
    end
    else inc(i);
end;
 
begin
  assign(f, 'tx.txt');
  rewrite(f); //создаем файл
  for var i := 1 to 5
      do 
  begin
    for var j := 1 to 10 
      do write(f, random(-100, 100), ' ');
    writeln(f);
  end;
  close(f);
  reset(f); //считываем его
  writeln('Номера строк, в которых максимальный элемент является простым числом:'); 
  var i := 0;
  while not eof(f) do
  begin
    inc(i);
    var s: string;
    readln(f, s);
    if Prost(maxim(s)) then  writeln(i);
  end;
  close(f);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.06.2013, 00:39

Вывести номера позиций, на которых находится максимальный элемент массива
Дан массив из 25 элементов. Вывести номера позиций, на которых находится максимальный элемент....

В массиве вывести номера позиций, на которых находится максимальный элемент
Б) Дан массив из 25 элементов. Вывести номера позиций, на которых находится максимальный элемент....

Напечатать номера строк и столбца прямоугольной матрицы, на пересечении которых стоит максимальный элемент
7.5.2. Помогите, пожалуйста, решить задачу в С++. Напечатать номера строк и столбца...

Определить количество пар чисел сумма которых является простым числом
Написать програму которая по заданым N числам опредиляет количество пар, сумма которых есть простым...


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

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

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