Turbo Pascal. Ищу единомышленников.

[TORPEDO-RG]

Поступаю в МЭИ, где к первокурсникам требование - знать ТурбоПаскаль. Если кому интересна тема - отписываемся здесь. В будущем хочу выкладывать здесь скрипты и командные файлы.

[RCarlos]

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

[Neverlinger]

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

большой минус паскаля - программы, созданные им не отличаются хорошей графической заставкой

для хорошего графического эфекта конечных программ нужно пользоваться обьектно ориентированными языками програмирования, ну к примеру Делфи

[RCarlos]

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

для хорошего графического эфекта конечных программ нужно пользоваться обьектно ориентированными языками програмирования, ну к примеру Делфи

ага ты мне скажи кто в школьной программе его проходит, я щас еще изучаю visual basic и С++, до делфи еще не дошел

[<=M@}{IMUM=>]

Мужики выручайте.нужен рисунок в паскале. Всё обыскал не могу найти. Надо типа там дом,небо,облака ,ну чёнибудь простенькое.Помогите кто чем может.

[robson-73]

Прям сейчас делаю лабораторные работы по строчному типу данных. Если кому надо, могу скинуть теоритический материал (лицей 2 курс)

[shava13]

Сообщение от <=M@}{IMUM=>

Мужики выручайте.нужен рисунок в паскале. Всё обыскал не могу найти. Надо типа там дом,небо,облака ,ну чёнибудь простенькое.Помогите кто чем может.

Тут пирамида(типа домик)), звёздное небо, луна.
Могут быть ошибки и не совсем в орфографии так сказать, сильно за это меня не пинать

Program picture;
uses crt, graph;
var gd,gm,i:integer;
Begin
gd:=VGA; gm:=VGAHi;
InitGraph(gd,gm,"); {пирамида фиолетовая}
setcolor(5);
for i:=0 to 11 do
rectangle(50+i*10.450-i*15.300-i*10.450-i*15+15);{вершинка пирамиды(зелёная)}
setcolor(10);
ellipse(175,260,0,360,10,25);{звёздное небо из 5000 случайно разбросанных серых звёзд}
for i:=1 to 5000 do
putpixel(random(640),random(200),7);{жёлтая луна}
setcolor(14);
ellipse(500,80,270,90,30,40);
ellipse(500,80,270,90,30,40);
sefillstyle(1,14); floodfill(535,80,14);
readkey;
CloseGraph;
end.

[<=M@}{IMUM=>]

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

Тут пирамида(типа домик)), звёздное небо, луна.
Могут быть ошибки и не совсем в орфографии так сказать, сильно за это меня не пинать

Спасип.

[<=M@}{IMUM=>]

Ещё вопросик.Нужны примеры тригонометрических уравнений ,чтобы завёл и появлялся график функции. Желательно чем больше тем лучше.

[robson-73]

Очень, ну просто очень надо решить следующие задачи:
1. Определить слово в заданном предложении, в котором доля гласных максимальна
2. Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы.
3. Сформировать Вектор Т из четных элементов матрицы P(k,l). Найти в нем максимальный элемент.
4. Имеется матрица A(m,n). Найти максимальный из всех минимальных элементов строк. Вывести номер строки, в которой расположено выбранное число.

В случае удачной сдачи, отблагодарю