| Автор | Паскаль |
|---|
для FireSwarm:
Вперёд товарищ! Страна в тебе нуждается, а я уж как-нибудь буду среди программистов прозябать :) |
для Mc_Artemon:
арифметический - час-полтора писать.
я знаю :) Только школу бы вспомнить ещё
я только на одном залип, не понимал почему паскаль ругается на intostr.
Вобщем кройте тему, заказ уже выполнен |
program X1;
var
s:string[1];
i:integer;
begin
writeln('1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9 1*10=10');
readln(s);
if s=' ' then
begin
writeln('2*1=2 2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=14 2*8=16 2*9=18 2*10=20');
readln(s);
end
else
begin
exit;
end;
if s=' ' then
begin
writeln('3*1=3 3*2=6 3*3=9 3*4=12 3*5=15 3*6=18 3*7=21 3*8=24 3*9=27 3*10=30');
readln(s);
end
else
begin
exit;
end;
if s=' ' then
begin
writeln('4*1=4 4*2=8 4*3=12 4*4=16 4*5=20 4*6=24 4*7=28 4*8=32 4*9=36 4*10=40');
readln(s);
end
else
begin
exit;
end;
if s=' ' then
begin
writeln('5*1=5 5*2=10 5*3=15 5*4=20 5*5=25 5*6=30 5*7=35 5*8=40 5*9=45 5*10=50');
readln(s);
end
else
begin
exit;
end; |
if s=' ' then
begin
writeln('6*1=6 6*2=12 6*3=18 6*4=24 6*5=30 6*6=36 6*7=42 6*8=48 6*9=54 6*10=60');
readln(s);
end
else
begin
exit;
end;
if s=' ' then
begin
writeln('7*1=7 7*2=14 7*3=21 7*4=28 7*5=35 7*6=42 7*7=49 7*8=56 7*9=63 7*10=70');
readln(s);
end
else
begin
exit;
end;
if s=' ' then
begin
writeln('8*1=8 8*2=16 8*3=24 8*4=32 8*5=40 8*6=48 8*7=56 8*8=64 8*9=72 8*10=80');
readln(s);
end
else
begin
exit;
end;
if s=' ' then
begin
writeln('9*1=9 9*2=18 9*3=27 9*4=36 9*5=45 9*6=54 9*7=63 9*8=72 9*9=81 9*10=90');
readln(s);
end
else
begin
exit;
end;
end. |
вот так :)
программа работает от пробела и нажатие ентер :) |
| Н-да... Это даже не индийский код уже... |
для Derryk:
а я не парился насчёт оптимизации кода, для школьной задачи пойдёт и такой. А если будет сильно сложный то будет наводить на мысль о помощи или списывании. |
оптимизации кода
Не надо путать написание кода и его оптимизацию. Первого ты не умеешь, так что о втором говорить нечего. |
для Derryk:
Программа делает то, что было заявлено в условии, а так как вашего варианта я не видел это абсолютно голословные обвинения. |
| intToStr неправильно писал:) |
| А если через for, while, repeat делать в 10 раз короче |
| для AlkisTer: у тебя не от пробела работает |
для Буссурманин:
Да и ладно :) Я не хочу ещё с этим парится. |
Ох ты ни фига себе!
для AlkisTer:
Код твой говно! Видел мой на с++? Не вижу ни одной причины, чтоб на паскале был больше. Да даже если и будет, то не на столько же! Это первое.
Второе. Вообще не видно блочной архитектуры паскаля. У меня на асме код лучше читается. Хоть бы пустыми строками блоки отделил друг от друга для выразительности.
И третье. Если в коде больше 10 строк, то в ней должны быть комментарии. Хотя, тут надо без фанатизма. Но, тем не менее, надо!
Чтоб не писать блок кода на каждую строку, надо было всего-то привязать один множитель к счётчику. Второй, кстати тоже можно. В этой ситуации вложенный цикл оправдан. А результат умножения тупо вычислять. И из этих данных собирать строку.
Может, всё-таки в пекари?)))) |
не зря же последний год на программиста учусь :)
Да и ладно :) Я не хочу ещё с этим парится.
Страшно мне за наше поколение... |
для FireSwarm:
Конечно цикл лучше бы был, но мне по барабану. И я кайфую что вы все по*осите меня. Так что прошу продолжай!
Честно, мне тупо лень это всё делать и всё. А вот поспорить об этом на форуме гораздо интреснее :) |
Честно, мне тупо лень это всё делать и всё.
Упал, катаюсь)))) А вот эту ересь не лень было писать? Циклом же проще!
Вот, кстати, после таких прогеров как ты, которым лень, встречаешь код, который делает одно, и комментарий к нему, который говорит, что программа делает савсем другое. А лень было нубо-прогеру коменты если не переписать, то хотя бы прочитать и удалить! |
для Генерал_Вибий:
Не боись, мы ещё и не на такое способны :) |
для FireSwarm:
Точнее два цикла, для горизонтали и вертикали :)
Я вообще-то специально нубо прогу написал, что повеселее было, а то до этого один флуд был на автора. А сейчас хоть меня оскорбляют :) |
| а по второму насколько помню надо пользоваться функцией ord или chr. |
