программа, которая выводит на экран одно из данных слов

[vados]

Я новичок в паскале----
Помогите пожалуйста написать простую программу, которая выводит на экран одно из данных слов, но чтоб не одно и тоже...
2.Скажите, если имеется готовый текст программы---чем ее откомпилировать ??? и как?

[Alex21]

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

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

Совсем не понятно...

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

2.Скажите, если имеется готовый текст программы---чем ее откомпилировать ??? и как?

Компилятором. Входит в состав Среды программирования, т.е. того языка, на котором написан код.

[Небесный]

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

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

Вообще в паскале есть такая функция как Write
Например:
Write('Hallo!');
Тоесть паскаль напишет на экране Hallo!
Есть такое как Writeln
Это оператор исполняет все тоже самое, только курсор переходит на новую строку.

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

Я новичок в паскале----
но чтоб не одно и тоже...

Вот это я не совсем понял.
Что напишешь, то и будет выводить. Можно выводить на экран заранее написаные слова где-то в текстовом файле.

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

Я новичок в паскале----
2.Скажите, если имеется готовый текст программы---чем ее откомпилировать ??? и как?

Качаешь себе Паскаль, пишешь там свой текст - нажимаешь ctrl+F9 и прога компилируеться и запускаться. И вроде F9 если не ошибаюсь, прсто скомпилировать.

[KORT]

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

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

Я понял тебя так:

 
uses crt;
var k:byte;
n,m:char;
begin
write('введите 1 слово -> ');
readln(n);
write('введите 2 слово -> ');
readln(m);
clrscr;
write('нажми 1, чтобы вывести 1 слово');
write('нажми 2, чтобы вывести 2 слово');
readln(k);
case k of
1: begin
    writeln(n);
   readkey; 
end;
2: begin
    writeln(m);
    readkey;
    end;
end;
end.

программа я не проверял, она написана на скору руку, т.е. он-лайн.

[nikleb]

Я бы лучше зделал бы так:

 
uses crt;
var k:integer;
     n,m:string;
begin
write('введите 1 слово -> ');
readln(n);
write('введите 2 слово -> ');
readln(m);
clrscr;
writeln('нажми 1, чтобы вывести 1 слово');
writeln('нажми 2, чтобы вывести 2 слово');
readln(k);
case k of
    1:writeln(n);
    2:writeln(m);
    end;
readln;
end.

[vados]

Нет. Не то. Я имел ввиду:
есть в программе 2 слова...
Запускаешь программу и выводится одно из слов(или 1 или 2)
И при каждом запуске ты не знаешь какое из них выведится на экран.

[Alex21]

Попробуй это:

const
  N=3;
  var a:array[1..3]of string=('slovo1','slovo2','slovo3');
begin
  Randomize;
  WriteLn(a[random(N)+1]);
  ReadLn;
end.

т.е. random(Х) - выдает случайное число из диапазона 0-Х
на экран выводим значение массива А, номер элемента определяется через random

[vados]

Чего-то ты напутал...синтаксис не правельный
после string хочет запятую...

[Alex21]

тестил на консоле.

Тогда объявляйте вручную:

var a:array[1..3]of string;
 ..
begin
a[1]:='a1';
a[2]:='a2';
a[3]:='a3';
...

[Небесный]

vados лови и не мучайся!!! Только разберись в коде, если не разобрался, так спрашивай. Даю тебе код от а до я, в полне рабочий. Вижу тебе кусками написали, если ты вообще начинающий, наверное не совсем понимаешь, что тебе за подсказки дают.

Program Vubor_slov;

Uses crt;

var
a:array[1..2] of string;
n:integer;

Procedure vivod;
begin
a[1]:='Hello';
a[2]:='Good bay';
randomize;
n:=random(2)+1;
Writeln(a[n]);
end;

begin
clrscr;
vivod;
readln;
end.