Высвечивается чёрный экран и все( не высвечивается сам текст программы и возможность кликать и тд, и тп

@Stacy · Регистрация: 06.04.2020

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

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
29
30
31
32
33
program Prog2;
uses crt;
var
c: char;
glb: set of char;
letts: array['a'..'r'] of integer;
arr: array['a'..'r'] of boolean;
words: integer;
t: boolean;
begin
glb:= ['a', 'e', 'i', 'o', 'u', 'y'];
for c:= 'a' to 'r' do 
letts[c] := 0;
words := 0;
repeat
for c:= 'a' to 'r' do 
arr[c] := false;
t:= false;
repeat
read (c);
c:= lowercase(c);
if (not t) and (c >= 'a') and (c <= 'r') then begin inc( words); t:= true; end;
if (C in glb) and (not arr[c]) then
begin
arr[c]:= true;
inc (letts[c]);
end;
until (c = ',') or (c = '.');
until (c = '.');
for c:= 'a' to 'r' do
if (C in glb) and (letts[c] < words) then
write(c, ' ');
end.

Добавлено через 47 секунд
Простите, что кидаю второй раз одно и тож, просто кажется, что это увидят, а прошлое нет

@ZX Spectrum-128 · 19.04.2021, 08:17

Вводите последовательность символов, среди которых есть латинские буквы, в конце .
И нажимаете Enter.
У меня вывелись гласные английские

@Stacy · 19.04.2021, 11:21 **[ТС]**

Не получается( Но ваш вариант правильный, программа среагировала чуть по-другому, но высветилось, что переменная с не описана в заголовке цикла, но.. она описана?.. может, я слепая..

Добавлено через 19 минут
А, исправить параметр цикла for, вот) но я не соображаю, как и где его исправить

@Sun Serega · 19.04.2021, 12:23

Это не ошибка а предупреждение.

Объявление и использование это не одно и то же. Объявление это var.
Переменные надо объявлять как можно ближе к их первому использованию. Предупреждение даёт только про переменную цикла for, но это правило касается всех переменных.
Чтоб удовлетворить предупреждение - пишите for var c :=

@Stacy · 19.04.2021, 12:33 **[ТС]**

А на какой строке это писать то? А то я не особо разбираюсь в этом

@Sun Serega · 19.04.2021, 12:35

Ну, может на той, на которую показывает предупреждение?
Вы очень мало пытаетесь сами разбираться. Это никогда не легко, но научится можно только используя свою голову.

@Stacy · 19.04.2021, 12:37 **[ТС]**

Там показывает предупреждение на всех строках, я вписывала то на одной, то на всех, оно не проходит :/

Добавлено через 36 секунд
На всех строках, начинающихся с for c:=

@Sun Serega · 19.04.2021, 12:38

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

оно не проходит

И на этом вы остановились? Не прочитали текст ошибки, не попытались разобраться что он имеет в виду? Гениально.

@Stacy · 19.04.2021, 12:38 **[ТС]**

Учитывая, что я неделю бьюсь с этим заданием, то конечно, я мало пытаюсь разобраться в этом

@Sun Serega · 19.04.2021, 12:39

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

@Stacy · 19.04.2021, 12:40 **[ТС]**

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

Добавлено через 43 секунды
Так я как бы и пишу, что я испробовала и что не работает:/

@Sun Serega · 19.04.2021, 12:43

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

которые у других людей срабатывали без предупреждений

Ок, а это откуда информация? Предупреждения не мешают запускать программу. Они говорят что вы написали кривой код.
И предупреждения выдаются разные в разных компиляторах - паскалей как языков программирования много.

И приводите более конкретные примеры, а не

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

пробовала ещё два похожих кода

Добавлено через 57 секунд
Да и ближе к сути - распишите как вы поняли текст ошибки, которая получается если подставить for var c := и какие у вас были идеи по её исправлению.

@Stacy · 19.04.2021, 12:44 **[ТС]**

Тем не менее, программа не работает, как у других людей

@ZX Spectrum-128 · 19.04.2021, 12:50

Stacy, ничего не понимаю. У меня все отработало нормально

@Stacy · 19.04.2021, 12:56 **[ТС]**

Я запускала прогу, вводила все, как надо, нажимала enter и результата нет, высвечивается, что индекс снова вне массива и куча предупреждений

@Sun Serega · 19.04.2021, 13:01

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

высвечивается, что индекс снова вне массива и куча предупреждений

Это ни о чём. Чтоб было о чём говорить - надо сказать что вы вводили чтоб получить индекс вне границ массива, номер строки ошибки (и если он не тот же - это новая ошибка, исправляемая по-другому, нечего её в ту же кучу сувать). Ну и вся остальная информация, которая хоть что то может значить, иначе вы даёте нам только гадать.

Кроме всего прочего, какой из паскалей (Free Pascal, PascalABC, PascalABC.Net - это всё разные языки) и какую его версию вы используете. А то можно долго тыкаться с "у меня не работает" "а у меня работает", пытаясь компилировать на разных версиях/языках.

@Stacy · 19.04.2021, 13:03 **[ТС]**

Работаю на pascal abc net, предупреждения «параметр цикла for” выдаёт на строках 11,15,29. Ошибка «индекс вне границы» выдаётся на строке 22

@Sun Serega · 19.04.2021, 13:05

Это половина минимума ответов...

@Stacy · 19.04.2021, 13:06 **[ТС]**

Код вводила тот же, что и висит в этом вопросе, меняла только прописную С на строчную в некоторых строках

@Sun Serega · 19.04.2021, 13:09

Код не вводят, код запускают. А ввод это то что пишут на консоль (чёрное окошко) когда вы уже запустили.

Добавлено через 38 секунд
И что с версией то, вы не умеете окно "о программе" открывать?

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	19.04.2021, 08:17
	Сообщение было отмечено Stacy как решение Решение Вводите последовательность символов, среди которых есть латинские буквы, в конце . И нажимаете Enter. У меня вывелись гласные английские 0

@Stacy 0 / 0 / 0 Регистрация: 06.04.2020 Сообщений: 70 Записей в блоге: 1
	19.04.2021, 11:21 [ТС]
	Не получается( Но ваш вариант правильный, программа среагировала чуть по-другому, но высветилось, что переменная с не описана в заголовке цикла, но.. она описана?.. может, я слепая.. Добавлено через 19 минут А, исправить параметр цикла for, вот) но я не соображаю, как и где его исправить 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	19.04.2021, 12:23
	Это не ошибка а предупреждение. Объявление и использование это не одно и то же. Объявление это `var`. Переменные надо объявлять как можно ближе к их первому использованию. Предупреждение даёт только про переменную цикла `for`, но это правило касается всех переменных. Чтоб удовлетворить предупреждение - пишите `for var c :=` 0

@Stacy 0 / 0 / 0 Регистрация: 06.04.2020 Сообщений: 70 Записей в блоге: 1
	19.04.2021, 12:33 [ТС]
	А на какой строке это писать то? А то я не особо разбираюсь в этом 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	19.04.2021, 12:35
	Ну, может на той, на которую показывает предупреждение? Вы очень мало пытаетесь сами разбираться. Это никогда не легко, но научится можно только используя свою голову. 0

@Stacy 0 / 0 / 0 Регистрация: 06.04.2020 Сообщений: 70 Записей в блоге: 1
	19.04.2021, 12:37 [ТС]
	Там показывает предупреждение на всех строках, я вписывала то на одной, то на всех, оно не проходит :/ Добавлено через 36 секунд На всех строках, начинающихся с for c:= 0

@Stacy 0 / 0 / 0 Регистрация: 06.04.2020 Сообщений: 70 Записей в блоге: 1
	19.04.2021, 12:38 [ТС]
	Учитывая, что я неделю бьюсь с этим заданием, то конечно, я мало пытаюсь разобраться в этом 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	19.04.2021, 12:39
	Если попытались - пишите что вы пытались сделать и почему никак не получилось без сторонней помощи, хотя бы чтоб было понятно что объяснять. Но я не первый день на этом форуме, когда человек пытается разобраться, а не найти первый костыль чтоб хоть как то работало - это заметно. 0

@Stacy 0 / 0 / 0 Регистрация: 06.04.2020 Сообщений: 70 Записей в блоге: 1
	19.04.2021, 12:40 [ТС]
	Прочитала. Более того, пробовала ещё два похожих кода, которые у других людей срабатывали без предупреждений и работали нормально, по условию, но у меня высветились с предупреждением Добавлено через 43 секунды Так я как бы и пишу, что я испробовала и что не работает:/ 0

@Stacy 0 / 0 / 0 Регистрация: 06.04.2020 Сообщений: 70 Записей в блоге: 1
	19.04.2021, 12:44 [ТС]
	Тем не менее, программа не работает, как у других людей 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	19.04.2021, 12:50
	Stacy, ничего не понимаю. У меня все отработало нормально 0

@Stacy 0 / 0 / 0 Регистрация: 06.04.2020 Сообщений: 70 Записей в блоге: 1
	19.04.2021, 12:56 [ТС]
	Я запускала прогу, вводила все, как надо, нажимала enter и результата нет, высвечивается, что индекс снова вне массива и куча предупреждений 0

@Stacy 0 / 0 / 0 Регистрация: 06.04.2020 Сообщений: 70 Записей в блоге: 1
	19.04.2021, 13:03 [ТС]
	Работаю на pascal abc net, предупреждения «параметр цикла for” выдаёт на строках 11,15,29. Ошибка «индекс вне границы» выдаётся на строке 22 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	19.04.2021, 13:05
	Это половина минимума ответов... 0

@Stacy 0 / 0 / 0 Регистрация: 06.04.2020 Сообщений: 70 Записей в блоге: 1
	19.04.2021, 13:06 [ТС]
	Код вводила тот же, что и висит в этом вопросе, меняла только прописную С на строчную в некоторых строках 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	19.04.2021, 13:09
	Код не вводят, код запускают. А ввод это то что пишут на консоль (чёрное окошко) когда вы уже запустили. Добавлено через 38 секунд И что с версией то, вы не умеете окно "о программе" открывать? 0

Высвечивается чёрный экран и все( не высвечивается сам текст программы и возможность кликать и тд, и тп

Решение