Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Clear
0 / 0 / 1
Регистрация: 13.01.2013
Сообщений: 5
#1

Задачка "Круглый стол" - Free Pascal

13.01.2013, 13:58. Просмотров 696. Ответов 2
Метки нет (Все метки)

Собственно суть программы такова:
Я работаю в турбо паскале. Но на этом сайте:
http://informatics.mccme.ru/moodle/m...apterid=3864#1
для проверки решения задачи нужна программа написанная на Free pascal 2.4.0.
Я скачал, установил фрее паскаль загрузил туда программу свою из турбо паскаля, но там она находит ошибку, хотя в турбо паскале прекрасно работает. Помогите найти ошибку.

Вот сама прграмма:


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var k,i,m,n:integer;
f1,f2:text;
begin
assign(f1,'table.in');
assign(f2,'table.out');
{rewrite(f1);}
rewrite(f2);
reset(f1);
read(f1,m,n);
if m>n then k:=n;
if m<=n then k:=m;
for i:=1 to k do
write(f2,'BG');
if m>n then
for i:=1 to m-n do
write('B');
if n>m then
for i:=1 to n-m do
write(f2,'G');
close(f1);
close(f2);
end.
Добавлено через 5 минут
Извиняюсь ссылка не на ту задачу вот та о которой спрашивал:
http://informatics.mccme.ru/moodle/m...chapterid=3865
http://www.cyberforum.ru/free-pascal/thread262698.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2013, 13:58
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Задачка "Круглый стол" (Free Pascal):

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте
Задание 1. В каждом слове текста замените &quot;а&quot; на букву &quot;е&quot;, если &quot;а&quot; стоит на...

Ошибка "Syntax error, "BEGIN" expected but "end of file" found"
В чём заключается ошибка в 73 строке под названием &quot;Syntax error, &quot;BEGIN&quot;...

Ошибка "Fatal: Syntax error, "BEGIN" expected but "END" found"
Ввожу unit Unit1; {$mode objfpc}{$H+} interface uses Classes,...

Ошибка при компиляции "Syntax error "Begin" expected but ";" found"
При компиляции выдаёт ошибку &quot;Syntax error &quot;Begin&quot; expected but &quot;;&quot; found&quot; в...

В словосочетании заменить два символа "ас" на один символы "_+_" и удалить знак "*"
В данном словосочетании заменить два символа &quot;ас&quot; на один символы &quot;_+_&quot; и...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25613 / 17166 / 6826
Регистрация: 22.10.2011
Сообщений: 30,361
Записей в блоге: 6
13.01.2013, 18:53 #2
Цитата Сообщение от Clear Посмотреть сообщение
установил фрее паскаль загрузил туда программу свою из турбо паскаля, но там она находит ошибку
Нет ошибок никаких, программа прекрасно компилируется в FPC. Если у тебя этого не происходит, надо было хотя бы сказать, что за ошибка, а лучше - присоединить скриншот, на котором видно сообщение компилятора и строку, где ошибка происходит.
0
Clear
0 / 0 / 1
Регистрация: 13.01.2013
Сообщений: 5
13.01.2013, 21:03  [ТС] #3
Fatal: Can't find unit system used by Program
Fatal: Compilation aborted
Вот такая ошибка
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.01.2013, 21:03
Привет! Вот еще темы с решениями:

Задачка "Цапли"
Решил задачу в турбо паскале всё отлично работает. Вот ссылка на задачу:...

Ошибка: "sintax error, "OF" expected, but "[" found"
Здравствуйте, в 4 строке компилятор выдаёт ошибку: &quot;sintax error, &quot;OF&quot;...

Ошибка "Syntax Error, ":" expected but ";" found
Unit SourceModMenu; interface Uses Crt; function Menu(X,Y:...

В словах-палиндромах (например, "шабаш", "казак") первую и последнюю букву сделать большими
результат такой: что нужно исправить в коде? const ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru