С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 16.09.2012
Сообщений: 18
1

Описать процедуру prim(f,n), записывающую в файл f все простые числа, не превосходящие n

16.12.2012, 16:59. Показов 1967. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста!

Type rad = file of 1..maxint;
Описать процедуру prim(f,n), записывающую в файл f все простые числа 2,3,5,7…, не превосходящие целого положительного числа n.
Программа : введите n. Выполните процедуру prim(f,n). Распечатайте файл f.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2012, 16:59
Ответы с готовыми решениями:

Текстовый файл. Написать процедуру, записывающую в текстый файл все положительные числа из исходного
Текстовый файл. В текстовом файле t1 записана последовательность целых чисел,разделенных пробелами...

Написать процедуру, записывающую в текстовый файл t2 все положительные числа из t1
В текстовом файле t1 записана последовательность целых чисел, разделенных пробелами (пробелов может...

Написать процедуру, записывающую в текстовый файл t2 все положительные числа из t1
В текстовом файле t1 записана последовательность целых чисел, разделенных пробелами (пробелов может...

Написать процедуру,записывающую в текстовый файл t2 все положительные числа с t1
Текстовый файл. В текстовом файле t1 записана последовательность целых чисел,разделенных пробелами...

1
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 536
Записей в блоге: 2
16.12.2012, 18:06 2
Лучший ответ Сообщение было отмечено Mhl как решение

Решение

предполагается, что n=1 вводиться не будет.
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
type    rad = file of integer;
procedure Prim(var f :rad; n :integer);
var i,k,count :integer;
begin
        Rewrite(f);
        for i:=2 to n do begin
                count:=0;
                for k:=2 to i do
                        if i mod k=0 then
                                Inc(count);
                If count=1 then write(f,i);
        end;
        Close(f);
end;
var     f :rad;
        k,n :integer;
BEGIN
        Assign(f,'FileOfInt');
        write('n = ');
        readln(n);
        Prim(f,n);
        Reset(f);
        while not Eof(f) do begin
                read(f,k);
                write(k:3);
        end;
        Close(f);
        readln;
END.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2012, 18:06

Описать процедуру, записывающую заданное количество элементов массива заданного типа в файл с заданным именем
Дано описание: Type=array of real; Описать процедуру WriteAarray(x,n,fname), которая записывает...

Описать поцедуру, записывающую в ряд все числа Фибоначчи
type ряд = file of 1..maxint; Описать процедуру fib(f,n), записывающую в ряд f все числа Фибоначчи...

Дано натуральное число P. Найдите все простые числа, не превосходящие числа P
помогите сделать её с помощью процедур. Заранее спасибо.

Найти все простые числа, не превосходящие заданного числа N. Проверить код
Найти все простые числа, не превосходящие заданного числа N надо сделать в C# консоль Посмотрите...


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

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

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