Заполнить файл 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;

Новые блоги и статьи Все статьи Все блоги /
Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {	PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .
PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .

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

	Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. 09.03.2009, 16:43. Показов 8745. Ответов 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