задачи в Паскаль

[Иришка1]

1.С клавиатуры вводятся символы, пока не встретится символ *. На экран выводить код каждого введенного символа.
2.С клавиатуры посимвольно вводится предложение. Если предложение начинается со слова “Когда”, то вывести случайное число в диапазоне от 1001 до 1996. Если предложение начинается с другого слова, вывести на экран сообщение: “Задайте, пожалуйста, другой вопрос “.
3.Даны матрицы А(4,3) и В(3,5).Найти средние геометрические положительных элементов каждой строки матриц. Ввод, вывод матрицы и поиск средних геометрических оформить в виде отдельных процедур.
4.Даны матрицы А(4,5), В(5,3), С(4,6). В каждой матрице поменять местами первый и последний столбцы. Ввод матрицы, вывод матрицы, обмен столбцов оформить как отдельные подпрограммы.

[Mandrivnyk]

Решение задач с нуля "под ключ" (а именно так ты и хочешь) -- в платном разделе форума.
Или сразу ко мне в аську, сделаю быстро и недорого.

[Иришка1]

не дорого это сколько???
И я вобще-то пыталась их решить!!!!!У меня есть наброски!!!!!!!!

[Arigato]

По 100 руб. за задачу могу решить.

[Иришка1]

100грн. за одну задачу????????????????А не много будет?

[Mandrivnyk]

Давай наброски, поможем, разъясним.
Помощь (именно помощь, при участии с твоей стороны) -- бесплатно -)

100грн. за одну задачу????????????????А не много будет?

Не гривен. Рублей.

[Иришка1]

Ну ладно!Розберем для начала эту задачу ----С клавиатуры вводятся символы, пока не встретится символ *. На экран выводить код каждого введенного символа.
Вот смотри,я пыталась зделать так ,но в результате выводится только код первого символа(((А как остальные зделать я не знаю(((

program lab6_v4;
uses crt;
var
ch:char;
begin
clrscr;
while ch <> '*' do
begin
writeln('Dlya zakinchenya vvedit *');
write('ASCII kod simvola ');
readln(ch);
clrscr;
writeln('Dlya zakinchenya vvedit *');
writeln('ASCII kod simvola ',ch,': #',ord(ch));
writeln('Dlya prodovzhenya natisnit bud yaku knopku');
readkey;
clrscr;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Arigato]

ch до while не инициализирован.

[Иришка1]

мне мой учитель то же самое сказал,но у меня никак не получается это зделать((

[Arigato]

Лучше цикл repeat ... until использовать.