Нужно составить программу

[stasstas777]

Впервые пользуюсь паскалем ! как это сделать кто знает какие коды мне нужны или может подобное что нить есть? а еще легкая или тяжелая эта программа? я просто совсем не шарю но хотел бы научится или какое видео или статья поможет мне? мне нужно сделать эту задачу! в ближайшие два дня

[Poma][a]

Для паскаля нужен :
1) Сам паскаль
2) Хоть какие-то знания
3) Хоть чуть-чуть разума

З.Ы. на вот почитай
З.Ы.Ы. и желательно показывать хоть что-то своё, а то не всё добрые как я... (програмку напишу через часик - другой)

[Paster Fob]

Прочитав 1 тему в этой книге:Паскаль для школьников
можно решить половину задания.Т.е. написать программу без цикла.Прочитаете про циклы решите полностью.

[Paster Fob]

Лично я по этой книге учусь: Песни о паскале.Книга отличная.

[BDA]

uses
  CRT;

var
  s, a, b, c, d: string;

begin
  clrscr;
  repeat
    writeln('Input string with 4 words (or nothing to exit):');
    readln(s);
    if s = '' then
      exit;
    a := copy(s, 1, pos(' ', s) - 1);
    s := copy(s, pos(' ', s) + 1, length(s) - pos(' ', s));
    b := copy(s, 1, pos(' ', s) - 1);
    s := copy(s, pos(' ', s) + 1, length(s) - pos(' ', s));
    c := copy(s, 1, pos(' ', s) - 1);
    d := copy(s, pos(' ', s) + 1, length(s) - pos(' ', s));
    writeln(a);
    writeln(b:(length(a) + length(b)));
    writeln(c);
    writeln(d:(length(c) + length(d)));
    readln;
    clrscr;   
  until s <> '';
end.

Спрашивайте, если что-то непонятно в программе.

[stasstas777]

Что то я даже щас паскаль включить не могу(( кто знает где норм прогу скачать можно? а то всякий мусор качается с СМС сообщениями .. но думаю ничего страшного попарюсь)) что уж там говорить о кодах... седня ждет меня жесткая ночь

[stasstas777]

спс всем)) думаю я еще вернусь с вопросами а там уже с опытом ))))

[BDA]

Если Windows XP, то http://programmersforum.ru/showpost....8&postcount=14 можно попробовать.
Если Windows 7, то Pacsal ABC NET (есть существенные отличия от обычного паскаля) или Delphi (лучше версий 7 или 2006, т.к. в новых версиях строки стали юникодовыми).

[Paster Fob]

http://sourceforge.net/projects/free...ownload?source

[stasstas777]

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

uses
  CRT;

var
  s, a, b, c, d: string;

begin
  clrscr;
  repeat
    writeln('Input string with 4 words (or nothing to exit):');
    readln(s);
    if s = '' then
      exit;
    a := copy(s, 1, pos(' ', s) - 1);
    s := copy(s, pos(' ', s) + 1, length(s) - pos(' ', s));
    b := copy(s, 1, pos(' ', s) - 1);
    s := copy(s, pos(' ', s) + 1, length(s) - pos(' ', s));
    c := copy(s, 1, pos(' ', s) - 1);
    d := copy(s, pos(' ', s) + 1, length(s) - pos(' ', s));
    writeln(a);
    writeln(b:(length(a) + length(b)));
    writeln(c);
    writeln(d:(length(c) + length(d)));
    readln;
    clrscr;   
  until s <> '';
end.

Спрашивайте, если что-то непонятно в программе.

у меня открывается окно и пишет Input string with 4 words (or nothing to exit) я пишу первое слово потом второе и тут у меня почему то сбрасывает с второго слова... 0.о я так понял я должен 4 слова вбить? или не так