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

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

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

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

Pascal

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

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, спасибо

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

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	28.02.2014, 14:56	4
	Сообщение от Attels Почему никто не отвечает????!!!!! Потому что Вы спрашиваете какие-то элементарные вещи, вернее - знание таких вещей подразумевает владением некими начальными знаниями о программировании на Паскале... я например ничего не писал, чтобы не выглядеть в очередной раз грубым и т.п., т.к. очень хочется написать: "Идите читайте учебники и самоучители!" По поводу графического модуля - Вы оформили тему в общем разделе Паскаля, не выбирая версию... так хотя бы укажите на какой версии Вы пытаетесь "творить", может тогда найдется тот кто сможет помочь... Добавлено через 1 минуту Не по теме: Puporev, опередил на минуту... ))) 0

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