|
Вопрос # 4 371/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Решите пожалуйста 2 задачки на Pascal:
 |
Вопрос задал: Алатар (статус: Посетитель)
Вопрос отправлен: 1 июля 2010, 15:44
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 12; последнее сообщение — 2 июля 2010, 17:58; участников в обсуждении: 5.
|
padonak (статус: Посетитель), 1 июля 2010, 16:27 [#1]:
Алатар: незнаю, брал консоль на дельфи, так что придётся тебе немного подредактировать 
http://files.mail.ru/G7QI0Y
и эксперты, сделайте мне ликбез... как сдесь ссылки вставляются?
|
|
Егор (статус: 10-ый класс), 1 июля 2010, 18:10 [#2]:
Цитата (Алатар):
выдает на экран дисплея страшую цифру
эт что за цифра такая?
 )))
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
Алатар (статус: Посетитель), 1 июля 2010, 19:14 [#3]:
1-ую задачку я решил, оказывается на столько простое решение =)
Помогите решить 2-ую, очень срочно нужно
|
|
|
Алатар (статус: Посетитель), 1 июля 2010, 19:54 [#4]:
Вот немного написал, но выдаёт ошибку в строке объявления массива:
Program Zadacha1;
uses crt;
var
i,j:integer;
x:array[1,11,21,31,41,51,61,71,81,91,101,111,121] of string;
begin
j:=High(x) do
writeln("всего элементов", j);
writeln("введите номер элемента");
read(j);
Writeln("число по номеру равно ",x[j]);
end;
помогите
|
|
Мережников Андрей (статус: Абитуриент), 1 июля 2010, 20:01 [#5]:
массив здесь не нужен совсем. Тем более тот, который объявляется неправильно.
Элемент по номеру в данном случае определяется так:
i:=(j-1)*10+1;
соответственно количество элементов в последовательности:
j:=((121-1)/10)+1;
|
|
|
Алатар (статус: Посетитель), 1 июля 2010, 20:08 [#6]:
Можете написать полностью программу?
|
|
|
padonak (статус: Посетитель), 1 июля 2010, 20:21 [#7]:
Алатар: ты моё скачать не можешь что ли? по ссылке тыкай, по ссылке!!!
а насчёт массива, то ты колхоз, раз так объявляешь... надыть вот так:
x : array[1..13] of integer = (1,11,21,31,41,51,61,71,81,91,101,111,121);
... но всё равно у тебя там тонна ошибок...
|
|
|
Мережников Андрей (статус: Абитуриент), 2 июля 2010, 05:55 [#8]:
Program Zadacha1;
uses crt;
var
j:integer;
begin
j:=((121-1) div 10)+1;
writeln("всего элементов", j);
writeln("введите номер элемента");
read(j);
j:=(j-1)*10+1;
Writeln("число по номеру равно ",j);
readln;
end;
|
|
|
Алатар (статус: Посетитель), 2 июля 2010, 11:00 [#9]:
Спасибо всем! Уже решил.
|
|
|
Мережников Андрей (статус: Абитуриент), 2 июля 2010, 11:22 [#10]:
Цитата (Алатар):
Спасибо всем! Уже решил.
Понадобилось всего четыре часа с последнего сообщения, чтобы "уже решить".
|
|
Ерёмин А.А. (статус: *Администратор), 2 июля 2010, 17:31 [#11]:
padonak:
Цитата (padonak):
незнаю, брал консоль на дельфи, так что придётся тебе немного подредактировать
Ставьте галку "Эксперт" и отправляйте решения ответами, а не в мини-форумы. Люди оценят!
|
|
|
padonak (статус: Посетитель), 2 июля 2010, 17:58 [#12]:
Ерёмин А.А.: честно? влом... Послушайте, а не могли бы вы расказать, какие здесь коды используются? меня интересует вставка кода, цитаты, ссылки...
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
