Вывод рандомного числа в файл

@Андрей1926 · Регистрация: 18.03.2015

Author24 — интернет-сервис помощи студентам

Не пойму где ошибка.

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
 
var fl:text; //переменная файла
str:string;
a:integer;
 
begin
assign (fl, 'text.txt'); //адресс и имя файла
rewrite (fl); //запись в файл
read (str);
write (fl,str);
a:=random(1,10);
str:=a.ToString();
write (f1,str);
close(fl);
end.

@nezhensky · 01.08.2018, 10:57

в 14 строке вместо f1 надо fl

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
 
var 
fl:text; //переменная файла
str:string;
a:integer;
 
begin
assign (fl, 'text.txt'); //адресс и имя файла
rewrite (fl); //запись в файл
read (str);
write (fl,str);
a:=random(1,10);
str:=a.ToString();
write (fl,str);
close(fl);
end.

@Андрей1926 · 01.08.2018, 11:00 **[ТС]**

Ой. Обычная невнимательность.

И все же мне надо чтобы случайное число в файл выводилось. Я тут гору ошибок наделал в коде.

@Cyborg Drone · 02.08.2018, 02:59

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
var 
  fl: text;
  str: string;
 
begin
  assign(fl, 'text.txt');
  rewrite(fl);
  readln(str);
  write(fl, str, random(1,10));
  close(fl)
end.

Новые блоги и статьи Все статьи Все блоги /
Как использовать Behavior Graph в Unity при создании игрового AI GameUnited 14.04.2025 Искусственный интеллект в играх прошел долгий путь эволюции. От простейших алгоритмов, движущих призраками в Pac-Man, до сложных систем, управляющих поведением персонажей в современных AAA-проектах. . . .	Создание и стилизация списков в SwiftUI mobDevWorks 14.04.2025 Списки — фундаментальный элемент мобильных интерфейсов. От списка контактов до ленты новостей, от настроек до каталога товаров — трудно представить приложение, которое не использовало бы этот. . .	Паттерн SAGA и распределённые транзакции в микросервисной архитектуре stackOverflow 14.04.2025 Переход от монолитной архитектуры к микросервисам принес множество преимуществ: гибкость разработки, независимость развертывания и масштабирования отдельных компонентов. Однако этот переход создал и. . .	Кастомные аллокаторы в C++ и оптимизация управления памятью bytestream 14.04.2025 Работа с памятью в С++ всегда была и остаётся одной из самых увлекательных и сложных задач для программиста. Любой опытный C++ разработчик подтвердит: стандартные механизмы аллокации памяти – штука. . .	Организация сетей в Kubernetes и эффективное развертывание Mr. Docker 14.04.2025 Сетевая инфраструктура Kubernetes представляет собой сложную, но хорошо спроектированную систему, которая позволяет контейнерам взаимодействовать между собой и с внешним миром. За кажущейся простотой. . .
Многопоточность в Rust: Fearless concurrency и практические примеры golander 14.04.2025 Многопоточное программирование связано с рядом известных проблем. Наиболее распространенные из них — гонки данных (data races), взаимные блокировки (deadlocks) и условия гонки (race conditions). Эти. . .	Списки и кортежи в Python: различия, особенности, применение py-thonny 13.04.2025 Python славится своей гибкостью при работе с данными. В арсенале языка есть две основные последовательные структуры данных, которые программисты используют ежедневно — списки и кортежи. Эти структуры. . .	Middleware в ASP.NET Core UnmanagedCoder 13.04.2025 В ASP. NET Core термин "middleware" занимает особое место. Что же это такое? Middleware представляет собой программные компоненты, которые формируют конвейер обработки HTTP-запросов в приложении. . . .	Таблицы лута в Unity с MinMaxCurve и AnimationCurve GameUnited 12.04.2025 Создание сбалансированного лута в играх — задача не из простых. Разработчики постоянно ищут способы настройки систем выпадения предметов, которые будут одновременно справедливыми для игроков и. . .	std::expected в C++: Управление ошибками bytestream 12.04.2025 Обработка ошибок всегда была важной и одновременно сложной задачей в программировании на C++. На протяжении долгого времени разработчики использовали различные подходы: возвращаемые коды ошибок,. . .

@Андрей1926 123 36 / 0 / 1 Регистрация: 18.03.2015 Сообщений: 191
	01.08.2018, 11:00 [ТС]
	Ой. Обычная невнимательность. И все же мне надо чтобы случайное число в файл выводилось. Я тут гору ошибок наделал в коде. 0

Вывод рандомного числа в файл

Решение