| ← Декабрь 2015 → | ||||||
|
1
|
2
|
3
|
4
|
|||
|
7
|
11
|
12
|
13
|
|||
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
|
28
|
29
|
30
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 188319: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Напишите программу, вычисляющую длину самого короткого слова в предложении из трех слов, разделенных пробелами.(BPascal)... Консультация # 188320: Здравствуйте! У меня возникли сложности с таким вопросом: Составить программу, которая выводит на экран бегущую строку.(BPascal)... Консультация # 188337: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Помогите исправить ошибку: Вот ошибка: http://clip2net.com/s/3rkiTss procedure Form1.openFile;//Чтение из файла begin if openFileDialog1.ShowDialog = System.Windows.Forms.dialogResult.ok then begin try var s tArr:= readAllLines(openFile... Консультация # 188338: Здравствуйте! У меня возникли сложности с таким вопросом: type pnode = ^node; node = record вопрос, что означает этот знак: ^... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 02.12.2015, 16:49 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b,c:integer;
function min(a,b:integer):integer;
begin
if a>b then min:=b
else min:=a;
end;
begin
write('Enter string:');
readln(a);
b:=pos(' ',a)-1;{длина первого слова}
delete(a,1,pos(' ',a));
c:=pos(' ',a)-1;{длина второго слова}
delete(a,1,pos(' ',a));
write('Result:',min(min(b,c),length(a))){выводим результат}
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 02.12.2015, 16:49 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): uses crt;
var
a:string;
begin
ClrScr;
write('Enter string:');
readln(a);
repeat
GotoXY(10,20);{курсор в позицию}
write(a);{выводим строку}
delay(30000);{задержка цикла}
a:=a+a[1];{сдвигаем строку}
delete(a,1,1);{удаляем сдвинутый символ}
until KeyPressed;{ждем нажатия клавиши}
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 06.12.2015, 12:53 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399158! © Цитата: Help PascalABC.NET function ReadAllLines(path: string; en: Encoding): array of string; Считывает строки из файла с кодировкой en в массив строк Вам нужно ещё указать кодировку. Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 06.12.2015, 12:55 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399158!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
