Просмотр полной версии : Turbo Pascal. Ищу единомышленников.
TORPEDO-RG
26.04.2007, 09:53
Поступаю в МЭИ, где к первокурсникам требование - знать ТурбоПаскаль. Если кому интересна тема - отписываемся здесь. В будущем хочу выкладывать здесь скрипты и командные файлы.
интересно, сам я из глубинки, но цели ставлю высокие (хочу в москву поступить:) )
вот тоже собираюсь на программиста учиться, паскаль изучал два года, так что могу помочь если что, большой минус паскаля - программы, созданные им не отличаются хорошей графической заставкой:)
Neverlinger
11.05.2007, 10:49
большой минус паскаля - программы, созданные им не отличаются хорошей графической заставкой:)
для хорошего графического эфекта конечных программ нужно пользоваться обьектно ориентированными языками програмирования, ну к примеру Делфи
для хорошего графического эфекта конечных программ нужно пользоваться обьектно ориентированными языками програмирования, ну к примеру Делфи
ага ты мне скажи кто в школьной программе его проходит, я щас еще изучаю visual basic и С++, до делфи еще не дошел:)
<=M@}{IMUM=>
10.12.2007, 17:15
Мужики выручайте.нужен рисунок в паскале. Всё обыскал не могу найти. Надо типа там дом,небо,облака ,ну чёнибудь простенькое.Помогите кто чем может.
robson-73
10.12.2007, 21:08
Прям сейчас делаю лабораторные работы по строчному типу данных. Если кому надо, могу скинуть теоритический материал (лицей 2 курс)
Мужики выручайте.нужен рисунок в паскале. Всё обыскал не могу найти. Надо типа там дом,небо,облака ,ну чёнибудь простенькое.Помогите кто чем может.
Тут пирамида(типа домик)), звёздное небо, луна.
Могут быть ошибки и не совсем в орфографии так сказать, сильно за это меня не пинать:)
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=>
11.12.2007, 13:51
Тут пирамида(типа домик)), звёздное небо, луна.
Могут быть ошибки и не совсем в орфографии так сказать, сильно за это меня не пинать:)
Спасип.;)
<=M@}{IMUM=>
13.12.2007, 15:04
Ещё вопросик.Нужны примеры тригонометрических уравнений ,чтобы завёл и появлялся график функции. Желательно чем больше тем лучше.
robson-73
16.12.2007, 20:19
Очень, ну просто очень надо решить следующие задачи:
1. Определить слово в заданном предложении, в котором доля гласных максимальна
2. Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы.
3. Сформировать Вектор Т из четных элементов матрицы P(k,l). Найти в нем максимальный элемент.
4. Имеется матрица A(m,n). Найти максимальный из всех минимальных элементов строк. Вывести номер строки, в которой расположено выбранное число.
В случае удачной сдачи, отблагодарю ;)