Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 622
от 04.04.2008, 04:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 253, Экспертов: 51
В номере:Вопросов: 3, Ответов: 6

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 129564: Уважаемые эксперты! Помогите, пожалуйста, решить задачи: Заполнить массив А размером n*m одним из следующих способов: 1) 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 2) 1 12 13 24 25 36 2...
Вопрос № 129611: Здравствуйте! У меня при запуске моей программы (правда, она еще не дописана) возникает ошибка "Invalid qualifier" на строке readln (x[i,j]); в процедуре "vvod". Моя программа в приложении. Программа написана на языке &quo...
Вопрос № 129661: Здравствуйте, уважаемые эксперты портала. Вот такая вот незамысловатая задачка по Турбо Паскалю: Написать программу, которая в веденной с клавиатуры строке преобразует строчные буквы алфавита в прописные. Заранее спасибо. Георгий. ...

Вопрос № 129.564
Уважаемые эксперты! Помогите, пожалуйста, решить задачи:
Заполнить массив А размером n*m одним из следующих способов:
1) 1 0 2 0 3 0 4
0 5 0 6 0 7 0
8 0 9 0 10 0 11
0 12 0 13 0 14 0

2) 1 12 13 24 25 36
2 11 14 23 26 35
3 10 15 22 27 34
4 9 16 21 28 33
5 8 17 20 29 32
6 7 18 19 30 31

3) 1 3 4 10 11 21
2 5 9 12 20 22
6 8 13 19 23 30
7 14 18 24 29 31
15 17 25 28 32 35
16 26 27 33 34 36

Заранее огромное спасибо! Swallow.
Отправлен: 29.03.2008, 12:46
Вопрос задала: Ласточка (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Ласточка!
Вот придумал код, как заполнить первым и вторым способом. Смотрите приложение.

Добавлен код второй программы.
-----
∙ Отредактировал: Николай Владимирович / Н.В. (Профессор)
∙ Дата редактирования: 29.03.2008, 18:53

Приложение:

Ответ отправил: Пупорев Юрий Борисович (статус: Студент)
Ответ отправлен: 29.03.2008, 15:49
Оценка за ответ: 5
Комментарий оценки:
Огромное спасибо за решение, Юрий Борисович! Вы мне очень помогли!

Отвечает: Зенченко Константин Николаевич
Здравствуйте, Ласточка!

Третий способ в приложении.
Удачи!

Приложение:

---------
И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал)
Украина, Киев
Тел.: +380958380164
Адрес: Украина г.Киев
----
Ответ отправлен: 03.04.2008, 12:04
Оценка за ответ: 5
Комментарий оценки:
Огромное спасибо за решение третьей задачи, Константин Николаевич! Вы мне очень помогли!!!!!!!!!!!!!!!!!!


Вопрос № 129.611
Здравствуйте!
У меня при запуске моей программы (правда, она еще не дописана) возникает ошибка "Invalid qualifier" на строке readln (x[i,j]); в процедуре "vvod".
Моя программа в приложении. Программа написана на языке "Pascal".
ВОПРОС: скажите, пожалуйста, в чём проблема ?
Большое спасибо!

Приложение:

Отправлен: 29.03.2008, 18:25
Вопрос задал: BOOM (статус: 10-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 21)

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Красильников И.П.!
Ошибка возникает потому что неправильно объявлены параметры процедуры. Во первых в Паскале нет динамических массивов, да и даже если бы они были, их нельзя в таком виде включать в качестве параметров. Вообще ошибок очень много. Код не рабочий. Синтаксис я поправил, но не зная сути задачи, дальше исправить не могу. Если не разберетесь, пишите на форуме задание, будем причесывать программу.
Попытки исправить в приложении.

Приложение:

Ответ отправил: Пупорев Юрий Борисович (статус: Студент)
Ответ отправлен: 29.03.2008, 18:55
Оценка за ответ: 5
Комментарий оценки:
Благодарю!


Вопрос № 129.661
Здравствуйте, уважаемые эксперты портала. Вот такая вот незамысловатая задачка по Турбо Паскалю:
Написать программу, которая в веденной с клавиатуры строке преобразует строчные буквы алфавита в прописные.
Заранее спасибо. Георгий.
Отправлен: 30.03.2008, 04:27
Вопрос задал: Чечин Георгий Александрович (статус: 3-ий класс)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Чечин Георгий Александрович!
Решение задачи с переводом строчных букв в прописные в приложении. Если для латинских букв есть специальная функция UpCase(ch), то русские буквы приходится переводить вручную, используя таблицу символов ASCII и функции ord(ch), chr(val).

Приложение:

Ответ отправил: Пупорев Юрий Борисович (статус: Студент)
Ответ отправлен: 30.03.2008, 09:13
Оценка за ответ: 5
Комментарий оценки:
Спасибо. Попробую.

Отвечает: Шемет Станислав Васильевич
Здравствуйте, Чечин Георгий Александрович!
Программа в приложении она может переводить строчные буквы в прописные на русском и английском языке.
Удачи !!!!!

Приложение:

---------
Любовь это прекрасно!!!

Ответ отправил: Шемет Станислав Васильевич (статус: 5-ый класс)
Ответ отправлен: 30.03.2008, 13:24
Оценка за ответ: 5
Комментарий оценки:
Спасибо. Большое спасибо.

Отвечает: Евчик Сергей Александрович
Здравствуйте, Чечин Георгий Александрович!
Тут два варианта:
1. Вы вводите только латинские буквы.
2. Вы вводите русские и латинские буквы.
1. В плане реализации очень быстрый:
Program z1; uses crt;
var s:string;
i:integer;
begin
clrscr;
Writeln('Введите строку: ');
readln(s);
for i:=1 to length(s) do
s[i]:= UpCase(s[i]);
Writeln(s);
readln
end.
функция UpCase преобразует строчную латинскую букву в прописную.
Второй выриант немного посложнее:
Program z1; uses crt;
var s:string;
i:integer;
begin
clrscr;
Writeln('Введите строку: ');
readln(s);
for i:=1 to length(s) do
case s[i] of
'а': s[i]:='А';
'б': s[i]:='Б';
'в': s[i]:='В';
...
'я': s[i]:='Я';
else s[i]:=UpCase(s[i]);
end;
Writeln(s);
readln
end.
Надеюсь я Вам помог...
Ответ отправил: Евчик Сергей Александрович (статус: 3-ий класс)
Ответ отправлен: 30.03.2008, 14:39
Оценка за ответ: 5
Комментарий оценки:
Спасибо. Отлично. Вы мне помогли, как и надеялись.


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 4.72.7 от 22.03.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное