Вопрос № 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
Отправлен: 29.03.2008, 12:46
Вопрос задала: Ласточка (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Пупорев Юрий Борисович
Здравствуйте, Ласточка! Вот придумал код, как заполнить первым и вторым способом. Смотрите приложение.
Приложение:
Ответ отправил: Пупорев Юрий Борисович (статус: Студент)
Ответ отправлен: 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
Здравствуйте, уважаемые эксперты портала. Вот такая вот незамысловатая задачка по Турбо Паскалю:
Написать программу, которая в веденной с клавиатуры строке преобразует строчные буквы алфавита в прописные.
Заранее спасибо. Георгий.
Отвечает: Пупорев Юрий Борисович
Здравствуйте, Чечин Георгий Александрович!
Решение задачи с переводом строчных букв в прописные в приложении. Если для латинских букв есть специальная функция 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 Комментарий оценки: Спасибо. Отлично. Вы мне помогли, как и надеялись.