0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 18
1

Выручайте нужно написать программу для табулирования функции перевода километров в американские мили

22.09.2010, 11:38. Показов 1434. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Нужно написать программу для табулирования функции перевода километров в американские мили (mi) для расстояний от 1км до 20 км шагом 0,5 км (1км равен 0,62137).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2010, 11:38
Ответы с готовыми решениями:

Перевода расстоянии из километров в мили
Разработать программу для перевода расстояния из километров в мили. Написать для преобразования...

Составить таблицу перевода километров в мили
составить таблицу перевода километров в мили на интервале от 10 до 50 с шагом 5 ( 1 миля= 1,609...

Написать программу табулирования функции f(x;y) в прямоугольник [a,b]*[c,d] с шагом табулирования h
Написать программу табулирования функции f(x;y) в прямоугольник * с шагом табулирования h=0.20....

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

3
6 / 6 / 6
Регистрация: 27.12.2009
Сообщений: 38
22.09.2010, 12:04 2
если я правильно понял то вот так
Pascal
1
2
3
4
5
6
7
8
var
   a,b:real;
begin
     a:=0.5;
     repeat
     begin a:=a+0.5; b:=a*0.62137; writeln(a:3:1,'km=',b:8:5,'mi');end;
     until a=20;
end.
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
22.09.2010, 12:17 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
const kf=0.62137;
var km,mi:real;
    i,k:byte;
begin
clrscr;
writeln('-----------------------------');
writeln('|  km  |  mi  |  km  |  mi  |');
writeln('-----------------------------');
for i:=0 to 38 do
 begin
  km:=1+0.5*i;
  mi:=km*kf;
  if i<=19 then
   begin
    gotoxY(1,4+i);
    write('|',km:5:1,' |',mi:5:1,' |');
   end
  else
   begin
    gotoxY(16,4+i-20);
    write(km:5:1,' |',mi:5:1,' |');
   end;
 end;
readln
end.
0
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 18
22.09.2010, 14:07  [ТС] 4
Цитата Сообщение от Puporev Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
const kf=0.62137;
var km,mi:real;
    i,k:byte;
begin
clrscr;
writeln('-----------------------------');
writeln('|  km  |  mi  |  km  |  mi  |');
writeln('-----------------------------');
for i:=0 to 38 do
 begin
  km:=1+0.5*i;
  mi:=km*kf;
  if i<=19 then
   begin
    gotoxY(1,4+i);
    write('|',km:5:1,' |',mi:5:1,' |');
   end
  else
   begin
    gotoxY(16,4+i-20);
    write(km:5:1,' |',mi:5:1,' |');
   end;
 end;
readln
end.
в строчке gotoxY(1,4+i); выдает несоответствие типа, что не так не пойму

Добавлено через 5 минут
А нет, спс огромное, мой косяк был, запятую пропустил
0
22.09.2010, 14:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2010, 14:07
Помогаю со студенческими работами здесь

Написать и отладить программу для табулирования функции
Значений функций y=2sin(3x-0,8) для х в интервале с шагом 0,25

Написать и отладить программу для табулирования функции
24. Для заданного n вычислите F=n! (123…n) Спасибо!!!!

Написать и отладить программу для табулирования функции
1)написать и отладить программу для табулирования функции y=ln (2x2 +3x-5) для xв интервале с...

Написать и отладить программу для табулирования функции
- перевода температуры из шкалы Цельсия (С) в шкалу Фаренгейта для температур от -5oС до 30oС с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru