Просмотр полной версии : Turbo Pascal
Farmazon
02.10.2006, 18:17
Вот мы в 7 классе ещё с ним возимся ::).
Апчхи, вопрос есть ли какая нибудь хорошая литература!
Ибо у меня есть книжка(з.в.) но меня заклинило на 3 странице ибо раньше с Паскалем никогда не возился, а теперь надо :-?.
Тут (http://server.cheb.ru/?showtopic=94575&st=45) SiMM предложил Основы программирования: Учебник. Семакин И. Г., Шестаков А. П. М.: Мастерство, 2002, 432 стр., ISBN 5-294-00054-7 [pdf, 6 Мб] (http://rapidshare.de/files/34832649/Semakin_Osnovyi_programmirovaniya.rar). Может пригодится.
Destroyingrief
02.10.2006, 23:36
А может забьёшь ты на это дело ? А !?
Всё равно того , что в школе преподают вполне хватает !!!
И потом, ты 7-ом классе ?!!!!!!!!!! :o
Фаронов Турбо паскаль 7.0 ... самая лучшая для начинаючих имхо
Farmazon
03.10.2006, 22:11
А может забьёшь ты на это дело ? А !?
Всё равно того , что в школе преподают вполне хватает !!!
И потом, ты 7-ом классе ?!!!!!!!!!! :o
1..Ну, в 7 я классе и что, маленьких обижать будем :'(
Фаронов Турбо паскаль 7.0 ... самая лучшая для начинаючих имхо
Только я не могу понять, там вобще можно с Русского на Англиский переходить :-/?
Destroyingrief
07.10.2006, 00:05
1..Ну, в 7 я классе и что, маленьких обижать будем :'(
Не! Что ты, просто будем хладнокровно и безжалостно давить на слабую детскую психику. [smiley=diablo.gif]
Начнём с основ:
Для начала рекомендую прочитать убойную книженцию под названием"Логика программирования"(3-ёх томник.Н.Вирт ), а потом уже мона и к паскалю переходить ...
P.S. Дерзай !!!
Farmazon
07.10.2006, 19:31
1..Ну, в 7 я классе и что, маленьких обижать будем :'(
Не! Что ты, просто будем хладнокровно и безжалостно давить на слабую детскую психику. [smiley=diablo.gif]
Начнём с основ:
Для начала рекомендую прочитать убойную книженцию под названием"Логика программирования"(3-ёх томник.Н.Вирт ), а потом уже мона и к паскалю переходить ...
P.S. Дерзай !!!
*
А у тебя ссылки на эту книгу нет.
Вот. А я вчера у учителки кнжку взял и отсканил. Вот!
Farmazon
11.10.2006, 21:42
У меня ещё вопрос: откуда можно просмотреть состав процедуры(любой) и как создать собственную?
У меня ещё вопрос: откуда можно просмотреть состав процедуры(любой) и как создать собственную?
Объявление функции
function ИмяФункции(var Параметр1: Тип1): Возвращаемый тип;
const
{Описание констант}
var
{Описание переменных}
begin
{Инструкции функции}
end;
Объявление процедуры
procedure ИмяПроцедуры(var Параметр1:Тип1);
const
{Описание констант}
var
{Описание переменных}
begin
{Инструкции функции}
end;
Примечание: функция должна быть объявлена до первого ее запуска
Destroyingrief
14.10.2006, 16:35
function ИмяФункции(VAR Параметр1: Тип1): Возвращаемый тип;
+ следует различать передачу параметров "по значению" и ,если есть VAR,- "по ссылке".
В последнем случае переменные можно использовать в дальнейшем коде программы.
KAMIKADZE
18.10.2006, 21:29
function ИмяФункции(VAR Параметр1: Тип1): Возвращаемый тип;
+ следует различать передачу параметров "по значению" и ,если есть VAR,- "по ссылке".
В последнем случае переменные можно использовать в дальнейшем коде программы.
Не совсем верно.
Параметры использовать можно в любом случае ))), а вот менять их если они объявлены без VAR нельзя.
Также следует добавить, что в случае с VAR при изменении значения параметра в теле процедуры или функции изменится и переменная которая посылалась в качестве параметра.
Для начала рекомендую прочитать убойную книженцию под названием"Логика программирования"(3-ёх томник.Н.Вирт ), а потом уже мона и к паскалю переходить ...А у тебя ссылки на эту книгу нет.Боюсь, что не то, чтобы у него такой ссылки нет, а такой книги вообще в природе не существует ;)
Чувак, походу, перепутал Вирта с Кнутом, а логику - с искусством ;) Ну а про "для начала" я пожалуй скромно умолчу - совет больше похож на издевательство.
Параметры использовать можно в любом случае ))), а вот менять их если они объявлены без VAR нельзя.Менять - можно. Только меняться они будут в пределах функции и их изменение никак не скажется на переданном параметре, если это была переменная.
KAMIKADZE
21.10.2006, 21:09
Менять - можно. Только меняться они будут в пределах функции и их изменение никак не скажется на переданном параметре, если это была переменная.
+1
HardCase
09.11.2006, 02:08
расшарьте кто нить в дс++ нормальнуб версию паскаля
моя при включении CRT выдает ошибку 200
даже если тело проги пустое
расшарьте кто нить в дс++ нормальнуб версию паскаля
моя при включении CRT выдает ошибку 200
даже если тело проги пустоеПатч юзай.
http://www.brain.uni-freiburg.de/~klaus/pascal/runerr200/
народ, а подскажите кто нить в Интеренете книгу по началу языка С. А заодно ссылку на его компилятор, Турбо Си или Gnu C, сорри за офф, просто новую тему из-за этого открывать не хотелось.
HardCase
16.12.2006, 03:54
расшарьте кто нить в дс++ нормальнуб версию паскаля
моя при включении CRT выдает ошибку 200
даже если тело проги пустоеПатч юзай.
http://www.brain.uni-freiburg.de/~klaus/pascal/runerr200/
скачал а че делать с ним ?
куда тока ни пихал как тока не запускал все равно лажа
скачал а че делать с ним ?
куда тока ни пихал как тока не запускал все равно лажаИнструкции читать за тебя никто не будет. Так же, как и искать TP, чтобы их выполнить и разжевать.
Ну и конечно же ТАК проблемы не описывают - ни версии Pascal'я, ни того, что именно скачал.
*Народ, помогите, если можете.
*
*Задание:
*В массиве из 10 целых чисел найти наименьший элемент и поменять местами с последним элементом.
*
*Пример программы:
*В квадратной матрице размера 5*5 поменять местами столбец, содержащий наибольшее значение, со столбцом, содержащим наименьшее значение (эти элементы единственные).
USES CRT;VAR A:ARRAY[1..5,1..5] OF INTEGER;
I, J, MAX_I, MAX_J, MIN_I, MIN_J, Z :INTEGER;
BEGIN
CLRSCR;
MAX_I:=1; MAX_J:=1; MIN_I:=1; MIN_J:=1;
WRITELN( ' VVEDITE MASSIV: ' );
FOR I:=1 TO 5 DO
FOR J:=1 TO 5 DO
A[ I,J ]:=RANDOM(50);
FOR I:=1 TO 5 DO BEGIN
FOR J:=1 TO 5 DO
WRITE(A[I,J]:3);
WRITELN;END;
FOR I:=1 TO 5 DO
FOR J:=1 TO 5 DO
BEGIN
IF A[ I,J ]>A[ MAX_I,MAX_J ] THEN BEGIN MAX_I:=I; MAX_J:=J; END;
IF A[ I,J ]<A[ MIN_I,MIN_J ] THEN BEGIN MIN_I:=I; MIN_J:=J; END; END;
FOR I:=1 TO 5 DO BEGIN
Z:=A[ I,MAX_J ]; A[ I,MAX_J ]:=A[ I,MIN_J ]; A[I,MIN_J]:=Z; END;
WRITELN ( ' VYVOD MASSIVA: ' );
FOR I:=1 TO 5 DO BEGIN
FOR J:=1 TO 5 DO WRITE (A[ I,J ]:3);
WRITELN; END;
READKEY; END. *
*Народ, помогите, если можете.
*
*Задание:
*В массиве из 10 целых чисел найти наименьший элемент и поменять местами с последним элементом.
Как я понял, массив одномерный, если так, то вот решение:
var a:array[1..10] of integer;
min,i,b:integer;
begin
writeln('Введите 10 чисел массива:');
for i:=1 to 10 do
read(a[i]);
readln;
min:=1;
for i:=2 to 10 do
if a[i]<min then min:=i;
b:=a[10];
a[10]:=a[min];
a[min]:=b;
writeln('Получившийся массив');
for i:=1 to 9 do write(a[i],', ');
write(a[10]);
readln;
end.
begin
writeln("ВВедите массив из 10 элементов");
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for j:=2 to 10 do
if (min<mas[j]) then
min:=mas[j];
if (min=mas[10]) then
writeln("последний элемент и есть минимальный ");
temp:=mas[10];
mas[10]:=min;
min:=temp;
writeln("изменённый массив - ");
for i:=1 to 10 do
write(" ",mas[i]);
end.
возможны синтаксические ошибки )) если что в аську стучи )
*Спасибо, чуваки! Правда обе программы неправильные, но на верном пути :). Дальше сам.
Глупая программа ! Глупый чел придумал! Второй год в школе мужу ничего не понял!
Destroyingrief
29.12.2006, 17:39
Глупая программа ! Глупый чел придумал! Второй год в школе мужу ничего не понял!
Паскаль-глупая программа ?!!??!!! >:( Если ты это хотел сказать, то ,извини, эт не Паскаль, эт кто-то другой глупый...
Поиск наименьшего значения мона реализовать переделыванием проги "МЕТОД ПУЗЫРЬКА".
эт не Паскаль, эт кто-то другой глупый...+1
Кажется я даже знаю, кто :)
Помгите решить задачу на турбо паскале методом хорды :)
http://forum.etherway.ru/index.php?action=dlattach;topic=1485.0;attach=1412 18
Помгите решить задачу на турбо паскале методом хорды :)
http://forum.etherway.ru/index.php?action=dlattach;topic=1485.0;attach=1412 18
А в чем именно помочь?
Пишу совершенно не в тему но создовать отдельную тему не хочетса
Вообщей имеетса файл .exe из него надо выташить программный код
файл создан на турбо паскале :)
Пишу совершенно не в тему но создовать отдельную тему не хочетса
Вообщей имеетса файл .exe из него надо выташить программный код
файл создан на турбо паскале :)
Увы, такое невозможно, перевести экзешник на язык высокого уровня не получится. Максимум чего можно добиться - это получить программу на ассемблере.
Вот одна из простейших игрушек, разработанная мной:
Program kosti;
uses crt;
Var
d1,d2,p1,p2:Byte;
money,stavka: Integer;
Begin
money:= 1000;
Randomize;
writeln;
Repeat Begin
writeln('Your money: ', money);
writeln;
Writeln('Begin game':40);
writeln;
writeln('How much money you pose?');
writeln;
Readln(stavka);
While stavka>money do
Begin;
stavka:=0;
clrscr;
writeln ('You have not so much money as');
writeln;
writeln('Your money: ', money);
writeln;
Writeln('Begin game':40);
writeln;
writeln('How much money you pose?');
Readln(stavka)
End;
d1:=random(7); d2:=random(7); If d1=0 then Inc(d1);If d2=0 then Inc(d2);
Write('Throw dies... '); Writeln(d1,' ',d2);
Writeln('Your result ',d1+d2);Writeln;
p1:=random(7); p2:=random(7); If p1=0 then Inc(p1);If p2=0 then Inc(p2);
Write('Computer throw dies... '); Writeln(p1,' ',p2); Writeln('Computer^s result ',p1+p2);
writeln;
If d1+d2>p1+p2 then Begin writeln('You win'); money:=money+stavka end
else If d1+d2<p1+p2 then Begin writeln('You lose'); money:=money-stavka end
else Writeln('drawn game')
End;
Until (money<1) xor (money>9999);
If money>9999 then begin clrscr; Writeln; Writeln('YOU WINNER!!!':40) end;
If money<1 then begin clrscr; Writeln; Write('Throw dies... '); Writeln(d1,' ',d2);
Writeln('Your result ',d1+d2);Write('Computer throw dies... '); Writeln(p1,' ',p2); Writeln('Computer^s result ',p1+p2);
writeln;writeln('Your money: 0'); Writeln('YOU LOSSER!!!':40); end;
Readln
End.
I7OTEMKuH
14.06.2007, 22:20
удалите пожалуйста пост,
по какой то причине не могу это сделать
Нужна помощь!!! Так как я в Паскале только все ничего пару недель!
Помогите плизз решить 2 задачи ;-) Заранее буду благодарен :-)
1) x, y, z - переменные, a, b, c – константы.
Используя функцию, выполните следующее задание:
найти производную функции по определению (=0.001) в точках из интервала (0,5) с шагом 1
2)
f и g две таблично заданные монотонные функции. Используя подпрограмму, найдите промежутки возрастания и убывания этих функций. Проверьте, есть ли такие интервалы, где функции f и g возрастают (убывают) одновременно. Какие? :-|
Очень срочно надо :'(
еще одни тесты с УСЛОВИЕМ
ВОТ ТУТ УСЛОВИЕ ДЛЯ ЗАДАЧ
Ох этот турбо паскаль, как он меня задолбал в институте!!! Еще скоро по нему экзамен сдавать!!! Фуууу :-! :-! :-!
еще одни тесты с УСЛОВИЕМ
ВОТ ТУТ УСЛОВИЕ ДЛЯ ЗАДАЧ
не знаю где ты нашёл условие(проблемс.док),но эти задачи сегодня были на республиканской олимпиде по информатике!!!!!! *crazy* *crazy*
я ваще фигею!!! =-O
решите пожалуста следущую задачку:
два простых числа называются близнецами ,если их разность равна двум.нужно найти всех близнцов среди натуральных чисел из диапозона [a,b]
Использовать цикл с параметром и условие(if)
решите пожалуста следущую задачку:
два простых числа называются близнецами ,если их разность равна двум.нужно найти всех близнцов среди натуральных чисел из диапозона [a,b]
Использовать цикл с параметром и условие(if)
for i = a to b
for j = a to b
if i-j=2 then print (i," и ",j," - близнецы")
next
next
на счет операторов - это не точно (просто не помню их уж...)
Работает на vBulletin® версия 3.7.2. Copyright ©2000-2008, Jelsoft Enterprises Ltd. Перевод: zCarot