Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Polina@
0 / 0 / 0
Регистрация: 09.10.2012
Сообщений: 28
1

Разработайте алгоритм и программу, реализующую этот алгоритм. Исходные данные вводите из текстового файла. Результаты работы программы также помести

11.11.2012, 11:45. Просмотров 1208. Ответов 1
Метки нет (Все метки)

Разработайте алгоритм и программу, реализующую этот алгоритм.
Исходные данные вводите из текстового файла. Результаты работы программы также поместите в текстовый файл.
Функции программы, оформленные в виде процедур и функций, поместите в отдельный модуль.
Дан массив А, состоящий из n натуральных чисел. Определите количество элементов, являющихся простыми числами.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.11.2012, 11:45
Ответы с готовыми решениями:

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

Составьте программу, реализующую алгоритм вычисления суммы данного ряда. Записать результат работы программы при заданн
Составьте программу, реализующую алгоритм вычисления суммы данного ряда. ...

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

Разработайте алгоритм для решения задачи.Результаты представить в виде массива
Даны две прямые, заданные уравнением у=к1х+b1 y=k2x+b2, вводятся к1 b1 к2 b2, определить являются...

составить программу в которой вводятся исходные данные,выводятся результаты вычислений
y= (a^2+b^2)^(1/3) ; z= abs((sin(a/2)^2)* cos(b/3) ; x= (y^2+z^3)/e^(a*y+b^2*z) помогите,...

1
HighPredator
5710 / 2033 / 726
Регистрация: 10.12.2010
Сообщений: 5,826
Записей в блоге: 3
11.11.2012, 12:45 2
Лучший ответ Сообщение было отмечено Polina@ как решение

Решение

Код модуля:
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
unit MyUnit;
 
interface
 
const
  N=10;
 
type
  TMyArray=array[1..N] of integer;
 
procedure GetArray(var A:TMyArray; const MakeRandom:boolean; const MaxValue:integer);
procedure PrintArray(const A:TMyArray);
function GetPrimeNumberCount(const A:TMyArray):integer;
 
implementation
 
function IsPrime(const Number:integer):boolean;
var
  flag:boolean;
  i,N:integer;
begin
  flag:=true;
  if (Number=0) or (Number=1) then flag:=false;
  N:=Trunc(sqrt(Number));
  i:=2;
  while (i<=N) and (flag=true) do
  begin
    if (Number mod i)=0 then flag:=false;
    inc(i);
  end;
  Result:=flag;
end;
 
procedure GetArray(var A:TMyArray; const MakeRandom:boolean; const MaxValue:integer);
var
  i:integer;
begin
  if MakeRandom=true then
    begin
      for i:=1 to N do A[i]:=random(MaxValue);
    end
  else
    begin
      for i:=1 to N do
      begin
        writeln('Enter A[',i,']:');
        readln(A[i]);
      end;
    end;
end;
 
procedure PrintArray(const A:TMyArray);
var
  i:integer;
begin
  writeln('Array:');
  for i:=1 to N do
  begin
    writeln('A[',i,']:');
    writeln(A[i]);
  end;
end;
 
function GetPrimeNumberCount(const A:TMyArray):integer;
var
  i,cnt:integer;
begin
  cnt:=0;
  for i:=1 to N do
  begin
    if IsPrime(A[i]) then inc(cnt);
  end;
  Result:=cnt;
end;
 
begin
  Randomize;
end.
Код программы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses
  MyUnit;
 
var
  Arr:TMyArray;
 
begin
  GetArray(Arr,true,N);
  PrintArray(Arr);
  writeln('There are ',GetPrimeNumberCount(Arr),' prime numbers.');
  readln;
end.
Единственное, данные вводятся не из файла, а произвольно или с клавиатуры. Но переделать вам несложно будет.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2012, 12:45

Как ввести исходные данные из текстового файла
Задача такая: Есть переменные T(1), T(2), T(3), T(4), T(5), T(6), T(7). Значения этих переменных...

Разработайте алгоритм используя текст программы
CLS Input &quot;N=&quot;; n a=STR(n) k=LEN(a) b1=MID(a, 3, 1) b2=MID(a,j+1, 1) h=VAL(b2)-VAL(b1) IF...

Ввести исходные данные из текстового файла, и вывести на экран в формате
1. Исходные величины представить в виде внешнего текстового файла, ввести их из файла и вывести на...


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

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

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