Программа расчёта таблицы

[xFOXpp]

Программа расчёта таблицы

Вот и начались мои тяжкие дни в универе. Сперва програмирование не понравилось так как я пропустил по болезне пару пар и не розобрался. Но когда нагнал упущеное стало даже интересно. Зделал пару робот. Но тут столкнулся с проблемой. Мне нужно научится пользоватся оператором FOR.
Гуглил - полезной информацыии не нашел.
Моя задача:
Спроектировать программу рощета таблиц между измирениями
1 морськая миля = 1.852 км =6076 футов


Начальное значение мер, шаг изминения и количчество рядков в таблице задается диалогом. нужно оформить с использованием форматирования вывода.
Мне не нужно писать всю программу так как я перепишу и ничего не научусь. мне подскажыте с чего начать. я малейшого понятия не имею....
Пример таблицы смотрим ниже в фото

 

[Юрий-dos]

Что такое " рощета " ?

 

[Vladimir_S]

Вот и начались мои тяжкие дни в универе.

Роман, ну что за дела? Еще для тебя, как для новичка зеленого, не хватало вывешивать это художество:

 

[xFOXpp]

Роман, ну что за дела? Еще для тебя, как для новичка зеленого, не хватало вывешивать это художество:
Посмотреть вложение 98450

ая яй! Вот забыл. Паскаль

 

[Vladimir_S]

Ну так с освоения форматов вывода и надо начинать, с чего ж еще? А вообще - пробуй, выкладывай, спрашивай - поможем!

 

[xFOXpp]

Ну так с освоения форматов вывода и надо начинать, с чего ж еще? А вообще - пробуй, выкладывай, спрашивай - поможем!

Ща буду пробувать.

 

[AlexZir]

Сюда http://www.tehnari.ru/f22/t52621/ сходите, там есть вся нужная вам для освоения языка информация. А еще просто настоятельно советую прочитать эту книгу по теме, а также включить проверку орфографии в браузере, а то ошибки глаз режут.

 

[xFOXpp]

uses CRT;
var
i,k,step,n,j:integer;
begin
clrscr;
write ('vvedite na4alnoe zna4enie');
readln(k);
write ('vvedite shag izmineniya');
readln(step);
write('vvedite koli4estvo strok [10..15]: ');
readln;
writeln('Morskaya milia':10, 'Km':10, 'Fyti':10);
j:=k;
for i:=k to n do
begin
writeln(j, ' ', j*1.852:6:3, ' ' , j*6076);
j:=j+step;
end;
readkey;
end.


Вот вроди закончил. =)