Строковая переменная и библиотека граф

@Attels · Регистрация: 16.02.2014

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

Подскажите, а как сделать чтобы в конце программы (скажем это как бы тест) суммировались правильные ответы и на этом основании выдавалась последняя фраза. Я знаю что подчеркнутое не верно, но хочу передать смысл:

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
var s:string;
begin
 
repeat
writeln('Введите строку'); 
readln(s);
until (s='ДА') or (s='НЕТ');
if s='ДА' then 
writeln('Верно');
if s='НЕТ' then
writeln('Неверно');
 
repeat
writeln('Введите Другую строку'); 
readln(x);
until (x='ДА') or (x='НЕТ');
if x='ДА' then 
writeln('Верно');
if x='НЕТ' then
writeln('Неверно');
 
 
{if s='Да' and x='Да' then 
write ('что то');
 
readln
end.

И по графу.
1)Когда используешь модуль граф всегда открывается консольное окно, а поверх него уже модуль граф? Нельзя ли убрать этот черный экранчик?)
2)Когда выводишь слова поверх картинки текст высвечивается в рамочки, нельзя ли сделать чтобы её не было и чтоб текст был чисто поверх картинки?

@Attels · 28.02.2014, 14:38 **[ТС]**

Почему никто не отвечает????!!!!!

)))))

@Puporev · 28.02.2014, 14:54

Потому что не понятно что нужно и какой Паскаль, что за окна в графике?
Первое в принципе так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var s:string;
    k:integer;
begin
k:=0;
writeln('Вводите слова ДА или НЕТ, окончание ввода 0');
repeat
repeat
writeln('Введите строку');
readln(s);
until (s='ДА') or (s='НЕТ')or(s='0');
if s='ДА' then
 begin
  writeln('Верно');
  inc(k)
 end
else writeln('Неверно');
until s='0';
writeln('Ответов Да=',k);
readln
end.

@APALoff · 28.02.2014, 14:56

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

Почему никто не отвечает????!!!!!

Потому что Вы спрашиваете какие-то элементарные вещи, вернее - знание таких вещей подразумевает владением некими начальными знаниями о программировании на Паскале... я например ничего не писал, чтобы не выглядеть в очередной раз грубым и т.п., т.к. очень хочется написать: "Идите читайте учебники и самоучители!"

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

Добавлено через 1 минуту

Не по теме:

Puporev, опередил на минуту... )))

@Attels · 03.03.2014, 11:50 **[ТС]**

Ладно, хорощо, хорошо, всё понял, учту, Puporev, спасибо

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@Attels 0 / 0 / 0 Регистрация: 16.02.2014 Сообщений: 22
	28.02.2014, 14:38 [ТС]
	Почему никто не отвечает????!!!!!))))) 0

@Attels 0 / 0 / 0 Регистрация: 16.02.2014 Сообщений: 22
	03.03.2014, 11:50 [ТС]
	Ладно, хорощо, хорошо, всё понял, учту, Puporev, спасибо 0