@ss@ss!n, есть, но не помню как она звучит. знаю что она была на стене группы club105253 в вконтакте в сообщении Вадима Харитонова, но дату не помню

@ss@ss!n, LowCase(c); - это символ. LowerCase(s); - перевод в нижний строки

Люди добрые, нужна программка на ТурбоПаскале, которая будет спрашивать имя пользователя, и предлагать поле ввода для этого имени. После ввода, если текст был введен, нужно вывести его на экране (в консоли). На всякий случай написал такую прогу на C++ и Python - перепишите кто может: C++:
#include <iostream.h>
int main(void)
{
char* name;
while(name=="") {
cout << "Please input Your name: ";
cin >> name;
cout << "Your name: " << name;
return 0;
}
Python:
while name!="":
name = raw_input("Please input Your name: ")
print "Your name: " + name
=== заранее огромное спасибо

Program imy; uses crt; begin var i:integer; name:char; name:array[50] of char; clrscr; writeln("Введите имя: "); for i:=1 to name do readln(name); for i:=1 to name do writeln("Вы ввели имя: ",name); readln; end.

Не помню уже паскаль.Так что возможно там много ошибок.Но примерно так

Finnk, ты прав. Там бред.

Кстати,народ,нет ни у кого исходников программы движения математического маятника?

помогите плз надо написать следущую программу. дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-100, 200].. найти сумму отрицательных элементов. найти количество всех элементов, значения которых положительны и не превосходят заданного с клавиатуры числа K. вот еще одна программа 2.дана матрица целых чисел 4х5. Найти сумму элементов по периметру этой матрицы.

aWeLoL, var a:array[-100..200] of integer; i,n,m,s:integer; begin randomize; writeln("введите количество элементов"); readln(n); for i:=1 to N do a[i ]:=random(301)-100; writeln("введите k"); readln(k); for i:=1 to n do begin if a[i ]<0 then s:=s+a[i ] else if (a[i ]>=0) and (a[i ]<k) then m:=m+1; end; writeln("сумма отрицательных элементов = ",s,"Число положительных элементов = ",m);end.
если на randomize; будет ругаться, то убери. Иногда и без него работает. P.s. Писал с тела, могут быть ошибки

спасибо не много откорректировал (число к не задано как переменная:) ) теперь бы 2 задачку решить)

разобрался с давно интересовавшим вопросом, на который в этой теме ответа нет: ParamStr(i : word) - функция, возвращающая параметры командной строки, с которыми была запущена программа, i - номер параметра

black_dove, это даже в справке написано RTFM.