|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.01.2014, 23:21 | #1 |
Новичок
Джуниор
Регистрация: 14.01.2014
Сообщений: 2
|
Задача на файлы
Уважаемые программисты!очень нужна ваша помощь.
Создать файл из 150 целых чисел, лежащих на отрезке [35,4000], используя генератор случайных чисел. -Вывести все данные на экран. -Вывести все числа, взаимно простые с своими соседями. -Найти наибольшее среди составных чисел. |
14.01.2014, 23:36 | #2 | |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Цитата:
Код:
Код:
Последний раз редактировалось type_Oleg; 14.01.2014 в 23:39. |
|
14.01.2014, 23:49 | #3 |
Новичок
Джуниор
Регистрация: 14.01.2014
Сообщений: 2
|
я вот так начала, но не могу понять,как дальше..и как цикл на взаимно простые числа задать
program project1; var f:file of integer; x,k,m,n,i:integer; c:real; Procedure vvod; begin for i:=1 to n do begin x:=random(3966)+35; write(f,x); end; end; Procedure print; begin reset(f); while not eof(f) do begin read(f,x); write(x,'_'); end; close(f); end; Procedure vzaimnopr; begin reset(f); while not eof(f) do begin read(f,x); for i:=2 to n do begin x:=n;k:=i; while k<>x do if k>x then k:=k-x else x:=x-k; if (k=1)or(x=1) then writeln(i,' '); end; end; end; Begin assign(f,'file.dat'); rewrite(f); writeln('vvedite kol-vo cel chisel'); readln(n); randomize; vvod; writeln('vse chisla: '); print; vzaimnopr; writeln; readln; End. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача на файлы | Tattoquardas | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 24.12.2011 00:24 |
Задача на файлы | Sandysman | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 18.05.2011 12:04 |
задача на файлы | Сristina | Помощь студентам | 2 | 15.03.2011 20:53 |
Задача на файлы | Janetka | Помощь студентам | 66 | 31.08.2010 10:20 |