Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.01.2012, 16:23   #1
Viwwna
Пользователь
 
Аватар для Viwwna
 
Регистрация: 18.11.2011
Сообщений: 33
По умолчанию Тест.Паскаль. В чем ошибка?

Здасьте.... Дано тестовое задание:
var f:text; x,y:char;
Каким будет содержимое файла f после выполнения следующих операторов:
rewrite(f);
for x:='1' to '3' do
begin y:=succ(x); write(f,y);
end;
Введите последовательность элементов файла через пробел.

Я полагаю примерный код будет таким:
Код:
 
program test;
const
  name='C:\test.txt';
var
  f:text; x,y:char;
begin
  assign(f,name);
  rewrite(f);
  for x:='1' to '3' do
begin y:=succ(x); write(f,y);
  end;
  close(f);
   reset(f);
  while Not Eof(f) do
  begin
    Read(f,y);
    writeln(y);
  end;
  close(f);
  WriteLn('File was saved.');
end.
выводится ответ 2 3 4 (его я и вношу в тестовый ответ) но в тесте,он указывается как неправильный.... Подскажите, где ошибка? Заранее благодарю, кто откликнется.
Тех, кто презирает программистов, программисты презирают сильнее, чем те, кто презирает программистов, презирающих программистов, которые презирают тех, кто их презирает.

Последний раз редактировалось Viwwna; 22.01.2012 в 16:30.
Viwwna вне форума Ответить с цитированием
Старый 22.01.2012, 16:42   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
выводится ответ 2 3 4
В три разные строки. А в задании символы выводятся в файл подряд - write(f,y); Без переноса строки и пробелов.
Предполагаю что ответ будет '234'
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.01.2012, 16:57   #3
Viwwna
Пользователь
 
Аватар для Viwwna
 
Регистрация: 18.11.2011
Сообщений: 33
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
В три разные строки. А в задании символы выводятся в файл подряд - write(f,y); Без переноса строки и пробелов.
Предполагаю что ответ будет '234'
Я согласна (на счет пробелов и переносов строк) Но в тесте требуют "Введите последовательность элементов файла через пробел." Разве не 2 3 4 я должна ввести? Хотя Вариант без пробелов 234 тоже тест выдает, как неверный
Тех, кто презирает программистов, программисты презирают сильнее, чем те, кто презирает программистов, презирающих программистов, которые презирают тех, кто их презирает.
Viwwna вне форума Ответить с цитированием
Старый 22.01.2012, 17:01   #4
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,751
По умолчанию

'2' '3' '4'
? )))
vovk вне форума Ответить с цитированием
Старый 22.01.2012, 17:05   #5
Viwwna
Пользователь
 
Аватар для Viwwna
 
Регистрация: 18.11.2011
Сообщений: 33
По умолчанию

Цитата:
Сообщение от vovk Посмотреть сообщение
'2' '3' '4'
? )))
Ага, верно. Огромнейшее Вам спасибо.
Тех, кто презирает программистов, программисты презирают сильнее, чем те, кто презирает программистов, презирающих программистов, которые презирают тех, кто их презирает.
Viwwna вне форума Ответить с цитированием
Старый 22.01.2012, 17:30   #6
Viwwna
Пользователь
 
Аватар для Viwwna
 
Регистрация: 18.11.2011
Сообщений: 33
По умолчанию

Если не сложно, подскажите ещё в других непонятных для меня вопросах теста:

Упростить (A и В - множества) A-(A-B).
Введите ответ без лишних пробелов.
Ввод ответа:[]
Тест тоже показал как неправильный ответ.....


Найти ошибки в следующей программе:
Код:
type pole=(a,b);
rec=record a:integer; b:char end;
var x,y:rec; c:char;
function f(var z:rec):rec;
var p:pole;
begin for p:=a to b do
f.p:=succ(z.p); end;
begin readln(c);
with x do begin a:=ord(c); b:=c end;
y:=f(x);
with y do writeln(a,x)
end.
В возрастающем порядке укажите номера строк через пробел, где присутствуют ошибки.
Ввод ответа:
Неверными (проверенными мной вариантами ) являются:
2 9 11
2 7 11
2 7 9 11
2 7 9
2 9

Очень нуждаюсь в помощи..... Спасибо за оперативные ответы....
Тех, кто презирает программистов, программисты презирают сильнее, чем те, кто презирает программистов, презирающих программистов, которые презирают тех, кто их презирает.
Viwwna вне форума Ответить с цитированием
Старый 22.01.2012, 17:40   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
f.p:=succ(z.p);
Опечатка? Нет поля р в записи.
Цитата:
Упростить (A и В - множества) A-(A-B).
Имхо: B останется (Это если я правильно помню дискретку с колледжа)
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.01.2012, 17:49   #8
Viwwna
Пользователь
 
Аватар для Viwwna
 
Регистрация: 18.11.2011
Сообщений: 33
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Опечатка? Нет поля р в записи.
Думаю это и есть ошибка.... (строка 7) еще вижу ошибку в отсутствии ";" в строках 2 и 9. Однако, ответ 2 7 9 - не верен ((( Так же неверен просто вариант ответа: 7

Цитата:
Сообщение от Stilet Посмотреть сообщение
Имхо: B останется (Это если я правильно помню дискретку с колледжа)
Тоже выдает,как неправильный вариант ответа((((
Тех, кто презирает программистов, программисты презирают сильнее, чем те, кто презирает программистов, презирающих программистов, которые презирают тех, кто их презирает.
Viwwna вне форума Ответить с цитированием
Старый 22.01.2012, 19:17   #9
Viwwna
Пользователь
 
Аватар для Viwwna
 
Регистрация: 18.11.2011
Сообщений: 33
По умолчанию

Про пересечение множеств, уже поняла, что правильным будет ответ : А*В.
А вот про то в каких строках ошибки??? нет(((((
Тех, кто презирает программистов, программисты презирают сильнее, чем те, кто презирает программистов, презирающих программистов, которые презирают тех, кто их презирает.
Viwwna вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В чем ошибка? Cannibal Общие вопросы C/C++ 5 30.10.2011 12:35
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
Паскаль задача на обработку последовательностей, помогите найти в чем ошибка??? Nubik Помощь студентам 2 22.12.2009 11:04
Паскаль. составить тест-опросник RusOverLord Помощь студентам 6 12.12.2009 01:32
Скажите, в чем моя ошибка в сортировке, или напишите, как правильно сортировать. язык Паскаль. Devo4ka Паскаль, Turbo Pascal, PascalABC.NET 0 26.11.2008 00:19