|
Результаты поиска
| | | | | |
| vicu2010 | Дата: Вторник, 06 Марта 2012, 19:24 | Сообщение # 845 | Тема: Как за 2 месяца стать АССОМ в Pacla'e??? |
Сейчас нет на сайте
| TimKruz, ожидал ответа от тебя ещё когда тему создавал))))
Quote (TimKruz) А чего ужасаться? Отформатировать код, чтобы было приятно читать, и всё понятно станет. Там используются только понятия работы процедур-функций, файлов и конструкций если. А уж накрутить код несложно, если представлять в уме, как он должен выглядеть, видеть примерный план программы.
Я привёл самую простую прогу с олимаиды)) А с тех пор когда писал тему она стала мне намного понятней))
Поможешь с ошибками 103 и 104 при использовании вывода?
И кстате, известно что char при вводе берёт только первую букву, а как сделать чтобы копировать в ОДНУ переменную всё слово?Добавлено (06.03.2012, 19:24)
---------------------------------------------
Quote (TimKruz)
Код правильный, у меня без ошибки выполняется. Ошибка 103 - файл не открыт. Может быть, у тебя этот файл заблокирован другой программой?
Нет, вроде ничем не заблокиравано, тем более что ошибка выскакивает, но программа полюбому выполняется.
 
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
Сообщение отредактировал vicu2010 - Вторник, 06 Марта 2012, 19:23 |
|
|
| |
| vicu2010 | Дата: Вторник, 06 Марта 2012, 18:58 | Сообщение # 846 | Тема: Как за 2 месяца стать АССОМ в Pacla'e??? |
|
Сейчас нет на сайте
| Quote (Lord_F) Юзай FPC (Free Pascal)
По-моему на всех олимпиадах при тестировании используется именно он.
Он не так удобен как турбо. В турбо если допустил ошибку то курсор смешяется в место ошибки, в турбо цвета приятнее...Добавлено (06.03.2012, 18:58)
---------------------------------------------
Прикольно) Я уже научился писать в txt файл  Всё работает, но появляется такая ошибка: Ошибка выполнения 103 по адресу 0000:0038. В следующей программе:
Code Program TF1;
var
filin: text;
begin
assign(filin, 'output.txt');
rewrite(filin);
write(filin,'Ahahah');
close(filin);
end.
В файл всё нормально записывается.
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| | |
| vicu2010 | Дата: Вторник, 06 Марта 2012, 16:43 | Сообщение # 848 | Тема: Как за 2 месяца стать АССОМ в Pacla'e??? |
|
Сейчас нет на сайте
| Спасиб) Добавлено (06.03.2012, 16:43)
---------------------------------------------
Я нашёл два учебника по паскалю, однако не в них, не в гугле я не нашёл как работать с файлами. Вот например у меня есть файл input.txt с вводными данными и output.txt с выходными. Как сделать чтобы паскаль считывал слово с входного, потом выводил её в выходную? И где по всему этому инфу найти(чтобы потом уже выводить решение формулы)??
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| |
| vicu2010 | Дата: Пятница, 02 Марта 2012, 00:12 | Сообщение # 849 | Тема: Пример простого инвентаря! |
|
Сейчас нет на сайте
| Quote (HardiK) Suirtimid, Спасибо)
С чего спасибо Стуирмиду-то? 
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| | | |
| vicu2010 | Дата: Вторник, 28 Февраля 2012, 20:56 | Сообщение # 852 | Тема: -=WAR of STELS IV=- |
|
Сейчас нет на сайте
| Quote (MightyCake) vicu2010,
Никто тебя не троллит и не хочет. Он выглядит адекватнее всех отписавшихся в этой теме.
ты прямо жырнееееейший троллль...
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| |
| vicu2010 | Дата: Вторник, 28 Февраля 2012, 20:49 | Сообщение # 853 | Тема: Как за 2 месяца стать АССОМ в Pacla'e??? |
|
Сейчас нет на сайте
| Короче я не особый мастер в pascal'e. Изучаю его около недели, но уже выиграл областную олимпиаду... Но вот взглянул на Республиканскую(по стране) и ужаснулся... Вот сколько надо учится чтобы сделать такую программу?
Program Multimicroprocesor;
var r12, r13, r23,
d12, d13, d23,
a, b, c, Lmin : longint;
procedure Reading;
var Intrare : text;
begin
assign(Intrare, 'MULTI.IN');
reset(Intrare);
readln(Intrare, r12, r13, r23);
readln(Intrare, d12, d13, d23);
close(Intrare);
end;
procedure Writing;
var Iesire : text;
begin
assign(Iesire, 'MULTI.OUT');
rewrite(Iesire);
writeln(Iesire, a, ' ', b, ' ', c);
writeln(Iesire, Lmin);
close(Iesire);
end;
procedure Searching;
var L : longint;
begin
Lmin:=1000000000;
L:=r12*d12+r13*d13+r23*d23;
if L<=Lmin then begin a:=1; b:=2; c:=3; Lmin:=L; end;
L:=r12*d13+r13*d12+r23*d23;
if L<=Lmin then begin a:=1; b:=3; c:=2; Lmin:=L; end;
L:=r12*d12+r13*d23+r23*d13; 8
if L<=Lmin then begin a:=2; b:=1; c:=3; Lmin:=L; end;
L:=r12*d23+r13*d12+r23*d13;
if L<=Lmin then begin a:=2; b:=3; c:=1; Lmin:=L; end;
L:=r12*d13+r13*d23+r23*d12;
if L<=Lmin then begin a:=3; b:=1; c:=2; Lmin:=L; end;
L:=r12*d23+r13*d13+r23*d12;
if L<=Lmin then begin a:=3; b:=2; c:=1; Lmin:=L; end;
end;
begin
Reading;
Writing;
Searching;
end.
Мои знания не заходят дальше простых циклов типа repeat until и работы с if then.
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| |
| vicu2010 | Дата: Вторник, 28 Февраля 2012, 18:20 | Сообщение # 854 | Тема: Русскоязычные сайты о Construct |
|
Сейчас нет на сайте
| Construct.GFAQ.Ru - Восстановлен!!!!
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
Сообщение отредактировал vicu2010 - Вторник, 28 Февраля 2012, 18:22 |
|
|
| |
| vicu2010 | Дата: Вторник, 28 Февраля 2012, 00:46 | Сообщение # 855 | Тема: -=WAR of STELS IV=- |
|
Сейчас нет на сайте
| ahno, Что за ерись ты несёшь? Я не писал вообще об проекте, я говорил что создан он для того чтобы потроллить. Это-ж очевидно по его ошибкам в тех же словах, но в разных писаниях, потом об рализации всяких моментов...
Quote (ahno) завидуют пытаются доказать, что они умнее двенадцатилетнего пацана, который при этом рядом с ними ещё и более адекватным выглядет, лол.
Жёёёёёёёшшь.... Какой с него адекват? Или ты тоже решил потроллить?
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| | |
| vicu2010 | Дата: Воскресенье, 26 Февраля 2012, 23:21 | Сообщение # 857 | Тема: Falco Software + Flight Dream Studio: New Game: Billiardino |
|
Сейчас нет на сайте
| Quote (falcoware) перенести уже никак?
Попроси модеров.
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| |
| vicu2010 | Дата: Воскресенье, 26 Февраля 2012, 23:10 | Сообщение # 858 | Тема: Falco Software + Flight Dream Studio: New Game: Billiardino |
|
Сейчас нет на сайте
| Quote (falcoware) Не понял сарказма.
Quote (falcoware) ЛКМ - Удар по мячу
Выкладывать в Готовые Проекты.
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| | | |
|
