Программа Кумир

[Extazzy_Oksi]

Ребятки, помогите мне пожалуйста(((( Не могу справиться с заданиями в программе кумир(((
вот задания:
в программе "Робот":
1. даны три числа, вывести по возрастанию;
2. робот стоит на перекрестке, от которого отходят 1коридор и 3 тупика. составить алгоритм, выводящий робота в противоположную сторону коридора.
3. робот находится внутри прямоугольного лабиринта, огороженного с 4х сторон стенами. внутри лабиринта стены имеют вид отрезков, НЕкасающихся друг друга и наружных стен. составить алгоритм, который в любом таком лабиринте перемещает робота в левый верхний угол.


важно!! 1. ДАНА ПРЯМОУГОЛЬНАЯ ТАБЛИЦА, создать линейную таблицу, содержащую суммы элементов, соответствующих строк данной таблицы.
2. дана квадратная таблица, найти произведение элементов в главной диагонали.

1.составить таблицу стоимостей порций сыра, весом 100, 200, .. до 1000 гр.

2. начав тренировки спортсмен в первый день пробежал 10км. каждый следующий день он увеличивал длину пробега на 10% от норма предыдущего дня. на какой день спортсмен будет пробегать 20км? на какой день суммарный путь будет больше 100км?

3. составить алгоритм вычисления суммы последовательности 1 + 1/2 + 1/3 + ... 1/n так , чтобы последний член последовательности был не меньше некоторого заданного числа.

Пожалуйстаааа(((( очень вас прошу(((

[Mad_Cat]

даны три числа, вывести по возрастанию;

алг 
нач
вещ a,b,c,k
ввод a,b,c
если   b < a  то
     k:= a;
     a:= b;
     b:= k
все
 если c < a то
     k:= a;
     a:= c;
     c:= k
  все
 если c < b то
     k:= b;
     b:= c;
     c:= k
  все
вывод a," ",b," ",c
кон

составить таблицу стоимостей порций сыра, весом 100, 200, .. до 1000 гр.

алг 
нач
цел i
вещ цена
вывод "введи цену за 1 кг " 
ввод цена
i :=1;
нц 10 раз
вывод i*100,"гр = ",i/10*цена,"р"
вывод нс
i:=i+1;
кц
кон

составить алгоритм вычисления суммы последовательности 1 + 1/2 + 1/3 + ... 1/n так , чтобы последний член последовательности был не меньше некоторого заданного числа

.

алг 
нач
алг 
нач
цел n
вещ e
вещ сумма
вывод "точность = "
ввод e
n :=1;
сумма:=0;
нц пока 1/n>=e
сумма:=сумма+1/n;
n:=n+1;
кц
вывод сумма
кон

[Extazzy_Oksi]

Спасибооо))))
Помогите с остальными пожалуйста. Завтра денюжку кину на вэбмани :*

[Extazzy_Oksi]

Вот эти главное... ((
1. ДАНА ПРЯМОУГОЛЬНАЯ ТАБЛИЦА, создать линейную таблицу, содержащую суммы элементов, соответствующих строк данной таблицы.
2. дана квадратная таблица, найти произведение элементов в главной диагонали.

1.составить таблицу стоимостей порций сыра, весом 100, 200, .. до 1000 гр.

2. начав тренировки спортсмен в первый день пробежал 10км. каждый следующий день он увеличивал длину пробега на 10% от норма предыдущего дня. на какой день спортсмен будет пробегать 20км? на какой день суммарный путь будет больше 100км?

3. составить алгоритм вычисления суммы последовательности 1 + 1/2 + 1/3 + ... 1/n так , чтобы последний член последовательности был не меньше некоторого заданного числа.

[Extazzy_Oksi]

Завтра закину 50WMZ тому кто решит последние задачи)))

[rUs_LAN]

хмм, ему никто не хочет помочь за 50wmz?? Пиши в скайп если надо.

[Mad_Cat]

на какой день спортсмен будет пробегать 20км?

алг 
нач
цел Количество_Дней
вещ пробег
Количество_Дней :=1;
пробег:=10;
нц пока пробег<20
Количество_Дней:=Количество_Дней+1;
пробег :=пробег+0.1*пробег
кц
вывод Количество_Дней
кон

на какой день суммарный путь будет больше 100км?

алг 
нач
цел Количество_Дней
вещ пробег,сумма
Количество_Дней :=1;
пробег:=10;
сумма :=0;
нц пока сумма<100
сумма:=сумма+пробег
Количество_Дней:=Количество_Дней+1;
пробег :=пробег+0.1*пробег
кц
вывод Количество_Дней-1
кон

ДАНА ПРЯМОУГОЛЬНАЯ ТАБЛИЦА, создать линейную таблицу, содержащую суммы элементов, соответствующих строк данной таблицы.

алг 
нач
вещтаб таблица[1:100,1:100]
цел Строка,столбец
цел Кстрок, Кстолб
вещтаб Результат[1:100]
вывод "количество строк="
ввод Кстрок
вывод "количество столбцов="
ввод Кстолб
Строка:=1;
нц пока Строка <=Кстрок
столбец :=1;
нц пока столбец <=Кстолб
вывод  "[",Строка,",",столбец,"]="
ввод таблица[Строка,столбец]
столбец:=столбец+1;
кц
Строка:=Строка+1;
кц
Строка:=1;
нц пока Строка <=Кстрок
столбец :=1;
нц пока столбец <=Кстолб
вывод таблица[Строка,столбец]," "
столбец:=столбец+1;
кц
вывод нс
Строка:=Строка+1;
кц
Строка:=1;
нц пока Строка <=Кстрок
столбец :=1;Результат[Строка]:=0;
нц пока столбец <=Кстолб
Результат[Строка]:=Результат[Строка]+ таблица[Строка,столбец]
столбец:=столбец+1;
кц
вывод  Результат[Строка]," "
Строка:=Строка+1;
кц
кон

дана квадратная таблица, найти произведение элементов в главной диагонали.

алг 
нач
вещтаб таблица[1:100,1:100]
цел Строка,столбец
цел Кстрок
вещ Произведение
вывод " n="
ввод Кстрок
Строка:=1;
нц пока Строка <=Кстрок
столбец :=1;
нц пока столбец <=Кстрок
вывод  "[",Строка,",",столбец,"]="
ввод таблица[Строка,столбец]
столбец:=столбец+1;
кц
Строка:=Строка+1;
кц
Строка:=1;
нц пока Строка <=Кстрок
столбец :=1;
нц пока столбец <=Кстрок
вывод таблица[Строка,столбец]," "
столбец:=столбец+1;
кц
вывод нс
Строка:=Строка+1;
кц
Произведение:=1;
Строка:=1;
нц пока Строка <=Кстрок
Произведение:=Произведение*таблица[Строка,Строка]
Строка:=Строка+1;
кц
вывод  "Произведение=",Произведение," "
кон

[Mad_Cat]

ему никто не хочет помочь за 50wmz

Почему??? Пишем)

[rUs_LAN]

для я просто тему не прочитал и думал что вы для примера пишете. А это оказывается еще такая мовя есть. Если честно она мне мозг выносит

[Mad_Cat]

А это оказывается еще такая мовя есть

сам только сегодня о ней узнал))