Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
m1ron
0 / 0 / 0
Регистрация: 11.02.2010
Сообщений: 26
#1

Записать в новый текстовый файл - Pascal

15.05.2010, 13:47. Просмотров 442. Ответов 1
Метки нет (Все метки)

Записать в новый текстовый файл f1.pas 100 реальных случайных чисел (от –100 до 100) в 5 колонок с точностью 6 знаков после десятичной точки.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2010, 13:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Записать в новый текстовый файл (Pascal):

Текстовый файл. Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и записать в новый файл
Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и...

Дан текстовый файл. В каждой строке файла подсчитать среднюю длину слов. В новый файл записать слова с длиной большей
Помогите, пожалуйста. 1) Как вернуть значения n к 0 после подсчета количества...

В текстовый файл записать целые числа, четные числа переписать в новый файл
В текст. файл записать целые числа четные числа переписать в новый файл.

Необходимо создать текстовый файл и переписать его в алфавитном порядке в новый файл
Создать на диске текстовый файл, состоящий из имен девочек вашей группы....

Текстовый файл. В новый файл поместить те строки файла, которые содержат заданное слово
Дан текстовый файл и некоторое слово. В новый файл поместить те строки файла,...

Создать новый текстовый файл, содержащий k последних строк исходного файла
Дано число k (< 10) и текстовый файл, содержащий более k строк. Создать новый...

1
Puporev
Модератор
54137 / 41770 / 28880
Регистрация: 18.05.2008
Сообщений: 98,313
15.05.2010, 14:22 #2
Лучший ответ Сообщение было отмечено m1ron как решение

Решение

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
uses crt;
var f:text;
    i,k:byte;
    name:string;
    a:real;
begin
clrscr;
randomize;
repeat
write('Имя файла для записи: ');
readln(name);
if name='' then writeln('Вы не ввели имя файла!');
until name<>'';
name:=name+'.txt';
assign(f,name);
rewrite(f);
k:=0;
for i:=1 to 100 do
 begin
  a:=200*random-100;
  write(f,a:12:6);
  k:=k+1;
  if k mod 5=0 then writeln(f,'');
 end;
close(f);
write('Файл ',name,' записан!');
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2010, 14:22
Привет! Вот еще темы с решениями:

Записать результат работы программы в текстовый файл
uses crt; const max=30; type TStud=record fam:string; ...

Создать текстовый файл и записать в него все константы
нужно создать текстовый файл и записать в него все константы, а потом прочитать...

Записать в текстовый файл всё, что пишет юзер
Записать в текстовый файл всё, что пишет юзер в браузере. Возможно ли решить на...

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


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

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

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