Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел.

@Aboltys · Регистрация: 08.01.2009

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

Заполнить файл f целыми числами, полученными с помощью
генератора случайных чисел. Из файла f получить файл g, исключив повторные вхождения чисел. Порядок следования чисел сохранить.

@Vladiator · 09.03.2009, 16:45

А сколько их должно быть?

@Aboltys · 09.03.2009, 16:52 **[ТС]**

Kidalvь, вот хороший вопрос, НО (!), вот если бы я знал .... Дали задачу , в учебнике и усё , на решай , а как....тупик!

@Vladiator · 09.03.2009, 16:54

Пускай их будет... кто больше? Выведем среднее: я предлагаю 50.

@Aboltys · 09.03.2009, 16:58 **[ТС]**

Сообщение от Kidalvь

Выведем среднее: я предлагаю 50.

Да чот уже многа....

Я ваше не понимаю это условие ... Чо где как....

Я_В_ПАНИКЕ!

@Vladiator · 09.03.2009, 17:08

Хорошо, хорошо. Их будет 25.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program xxx;
var
 am:array[1..25]of byte;
 a:array[1..254]of boolean;
 f,g:Text;
 i:integer;
begin
 assign(f,'f.txt');
 assign(g,'g.txt');
 randomize;
 rewrite(f);
 for i:=1 to 25 do write(f,random(254):4);
 close(f);
 reset(f);
 for i:=1 to 25 do read(f,am[i]);
 close(f);
 for i:=1 to 25 do a[am[i]]:=a[am[i]]+1;
 rewrite(g);
 for i:=1 to 25 do if a[am[i]]=0 then write(g,am[i]:4);
 close(g);
end.

@Aboltys · 09.03.2009, 17:15 **[ТС]**

Толи Звёзды сегодня не в моём знаке зодиака, толи паскаля сегодня плохое настроение , что он не хочешь компилировать программу!

@Vladiator · 09.03.2009, 17:16

Как понять? Ошибки? Зависки? Неверный результат?

@Aboltys · 09.03.2009, 17:20 **[ТС]**

Ошибки

Попробуй сам откомпань её и посмотри.....

(ЗЫ: вызовите мне скорую )

@Vladiator · 09.03.2009, 17:23

скажи номер линии.

Сообщение от Aboltys

вызовите мне скорую

Мне так и сказать, что у тебя адрес "Russia"?

@Aboltys · 09.03.2009, 17:31 **[ТС]**

Сообщение от Kidalvь

Мне так и сказать, что у тебя адрес "Russia"?

Да ! так им и передай, будь любезен , пусть тоже побьются ап стенку в панике..... А то всё им скажи!!!

@Vladiator · 09.03.2009, 17:34

А ошибки-то есть?

@Aboltys · 09.03.2009, 17:38 **[ТС]**

Сообщение от Kidalvь

А ошибки-то есть?

Где именно?

если в программе - то есть!
если во мне - то тоже есть!

@Vladiator · 09.03.2009, 17:41

В ПРОГРАММЕЕЕ!!!

@Aboltys · 09.03.2009, 17:42 **[ТС]**

Сообщение от Aboltys

если в программе - то есть!

Еррор 26!

@Vladiator · 09.03.2009, 17:50

26-я строка, или 26-я ошибка? Если ошибка, напиши, какая она (словами, у меня нет справочника).

@Aboltys · 09.03.2009, 17:55 **[ТС]**

Сообщение от Kidalvь

26-я строка

Если мне зрение не обманывает то в коде 21 строка!

26 Type mismatch (Несоответствие типов). — Причины, вызвавшие
появление данного сообщения, могут быть следующими:
1) несовместимы типы переменной и выражения в операторе при¬сваивания;
2) несовместимы типы фактического и формального параметров в обращении к процедуре или функции;
3) тип выражения несовместим с типом индекса при индексирова¬нии массива;
4) несовместимы типы операндов в выражении.

@Vladiator · 09.03.2009, 18:07

21-я строка - это безобидный "end.". Что он может сделать?

Добавлено через 3 минуты 8 секунд
АААААААа, до меня дошло. Это 19-я строка:

Pascal
1
for i:=1 to 25 do if a[am[i]]=0 then write(g,am[i]:4);

Поменяй её на:

Pascal
1
for i:=1 to 25 do if a[am[i]] then write(g,am[i]:4);

Добавлено через 4 минуты 16 секунд
Добавь ещё после begin-а:

for i:=1 to 254 do a[i]:=true;

@Aboltys · 09.03.2009, 18:07 **[ТС]**

Сообщение от Kidalvь

21-я строка - это безобидный "end.". Что он может сделать?

:'(:'(:'( я плакалъ!

Да END , то не чего не делает , нет вернее он делает своё дело и усё , а ошибка возникает 26 в строке 17 (for i:=1 to 25 do a[am[i]]:=a[am[i]]+1

@Vladiator · 09.03.2009, 18:11

Стой! Не исправляй ту ошибку, которая в строке 19 (пред. сообщение). Сделай переменную a не array[1..254] of boolean, а array[1..254] of byte;

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Aboltys 45 / 43 / 3 Регистрация: 08.01.2009 Сообщений: 306

	Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. 09.03.2009, 16:43. Показов 8764. Ответов 24 Метки нет (Все метки) Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Из файла f получить файл g, исключив повторные вхождения чисел. Порядок следования чисел сохранить. 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	09.03.2009, 16:45
	А сколько их должно быть? 0

@Aboltys 45 / 43 / 3 Регистрация: 08.01.2009 Сообщений: 306
	09.03.2009, 16:52 [ТС]
	Kidalvь, вот хороший вопрос, НО (!), вот если бы я знал .... Дали задачу , в учебнике и усё , на решай , а как....тупик! 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	09.03.2009, 16:54
	Пускай их будет... кто больше? Выведем среднее: я предлагаю 50. 0

@Aboltys 45 / 43 / 3 Регистрация: 08.01.2009 Сообщений: 306
	09.03.2009, 17:15 [ТС]
	Толи Звёзды сегодня не в моём знаке зодиака, толи паскаля сегодня плохое настроение , что он не хочешь компилировать программу! 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	09.03.2009, 17:16
	Как понять? Ошибки? Зависки? Неверный результат? 0

@Aboltys 45 / 43 / 3 Регистрация: 08.01.2009 Сообщений: 306
	09.03.2009, 17:20 [ТС]
	Ошибки Попробуй сам откомпань её и посмотри..... (ЗЫ: вызовите мне скорую ) 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	09.03.2009, 17:34
	А ошибки-то есть? 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	09.03.2009, 17:41
	*В ПРОГРАММЕЕЕ!!!* 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	09.03.2009, 17:50
	26-я строка, или 26-я ошибка? Если ошибка, напиши, какая она (словами, у меня нет справочника). 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	09.03.2009, 18:11
	Стой! Не исправляй ту ошибку, которая в строке 19 (пред. сообщение). Сделай переменную a не array[1..254] of boolean, а array[1..254] of byte; 1