Bulfleet.com - Official Forums

Хора имам едно малко проблемче имам да пиша курсова задача на Bordlan Pascal, но за жалост и бъкел не разбирам от този език за програмиране. Та искам да помоля някой ако има възможност и склонността да помага на необразованите като мен да помогне Условието на задачата е:

Дадени са два едномерни масива М[10] и N[10]. Елементите на M[10] са изминатият път от автобуси в км, а елементите на N [10] са времената, измерени в часове и минути, за които тези автобуси са изминали определен път. Да се създаде нов масив С [10], чиито елементи са средните скорости в км/ч, които са изминали автобусите.Изчислените данни да се изведат на екран във вида: <<Автобус номер (извежда се индекса на съответния елемент ) - средна скорост .......... км/ч >>.)

Благодаря предварително на отзовалите се

Здравей, трябва да е нещо такова. Обаче и аз грам не разбирам от Паскал, сега само за 5 минутки прочетох някакъв онлайн самоучител Ако прочетеш за 5 минутки може да видиш как е най-подходящият начин да ги направиш тия работи, как да си набуташ всичко в 1 цикъл, да извеждаш в неекспоненциален вид и така

program bfsux;
type
masiv = array[1..10] of real;
var
M : masiv;
N : masiv;
C : masiv;
i,j,k,p : integer;

begin
for i :=1 to 10 do
read(M);
for j :=1 to 10 do
read(N[j]);
for k :=1 to 10 do
C[k] := (M[k]*60)/N[k];
for p :=1 to 10 do
writeln('Avtobus nomer ',p, '- sredna skorost: ',C[p],' km/chas. ');
end.

Това ми звучи като курсова в ТУ.

Да точно така