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

@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 секунд
И что с версией то, вы не умеете окно "о программе" открывать?

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	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,433
	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

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

Решение