Вопрос № 84486: Здравствуйте!
У меня задача: Напечатать таблицу перевода расстояний в дюймах в сантиметры для значений 10,11...22 дюйма (1 дюйм = 25,4 мм).
Решить мне её надо на языке Pascal.
При условии, что здесь надо каким-то образом использовать цикл...Вопрос № 84494: Здравствуйте!
У меня такая задача:
Известна масса каждого из 12 предметов. Определить общую массу всего набора предметов.
--
Конечно, понятно, что надо просто ввести массу каждого предмета, а потом всё это сложить, но вопрос в том, ...
Вопрос № 84.486
Здравствуйте!
У меня задача: Напечатать таблицу перевода расстояний в дюймах в сантиметры для значений 10,11...22 дюйма (1 дюйм = 25,4 мм).
Решить мне её надо на языке Pascal.
При условии, что здесь надо каким-то образом использовать цикл с параметром.
У меня есть предположение решения, но оно почему-то не работает, выглядит оно так:
program P1;
var a:byte;
b,c:real;
begin
for a:=10 to 22 do writeln (c);
b:=a*25.4;
c:=b/10;
readln;
end.
Как думаете, как решить эту задачу?
Помогите мне, пожадуйста, разобраться в этой задаче.
Очень надеюсь на вашу помощь!
Отвечает: Ерёмин Андрей
Здравствуйте, Красильников И.П.!
У вас почти всё правильно, только строки идут не в том порядке и к циклу относится только вывод c. Правильно так:
program P1; var a:byte; b,c:real; begin for a:=10 to 22 do begin b:=a*25.4;
c:=b/10; writeln (a,' дюйм(ов) ~ ',c,' см'); end; readln; end.
Удачи!
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW:Программирование на Delphi. Помощь, советы, обмен опытом. ICQ: 286837644 ---- Ответ отправлен: 27.04.2007, 18:15 Оценка за ответ: 5 Комментарий оценки: А можно написать программу так, чтобы выводились не просто числа, а, например, 10 дюймов приблизительно равно 25 и т.д.? Спасибо Вам огромное за помощь!
Отвечает: Шарков Сергей Николаевич
Здравствуйте, Красильников И.П.!
program P1;
var A:array[1..12] of integer;
i:integer
s, b:real
begin
for i:=1 to 12 do
begin
writeln (‘Введите массу ‘,i,’ предмета’);
readln(b);
s:=s+b;
end;
writeln(‘Масса всех предметов равна ‘,s:8:4,’ кг’);
readln;
end.
Ответ отправил: Шарков Сергей Николаевич (статус: 3-ий класс)
Ответ отправлен: 30.04.2007, 07:02 Оценка за ответ: 5
Вопрос № 84.494
Здравствуйте!
У меня такая задача:
Известна масса каждого из 12 предметов. Определить общую массу всего набора предметов.
--
Конечно, понятно, что надо просто ввести массу каждого предмета, а потом всё это сложить, но вопрос в том, что можно ли написать эту программу с помощью оператора цикла с параметром?
Я, вот, хотел узнать, как написать программу с помощью задания массива.
Расскажите мне, пожалуйста, как это можно сделать?
Спасибо!
const n=12;
var a:array[1..n] of integer;
i,s:integer;
begin
writeln('Vvedite ves');
for i:=1 to n do readln(a[i]);
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('Summa=',s);
end.
Ответ отправил: Устинов С.Е. (статус: Практикант)
Ответ отправлен: 27.04.2007, 19:33 Оценка за ответ: 5 Комментарий оценки: Спасибо! Всё работает!!! Удачи!
Отвечает: Ерёмин Андрей
Здравствуйте, Красильников И.П.!
Пример в приложении. Число элементов я сделал константой (N). Массив описывается ключевым словом Array, указывается количество элементов и их тип. Значения вводятся с помощью цикла и с помощью цикла же потом вычисляется сумма. Если появятся вопросы - с радостью отвечу :-) Удачи!
Приложение:
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW:Программирование на Delphi. Помощь, советы, обмен опытом. ICQ: 286837644 ---- Ответ отправлен: 27.04.2007, 19:33 Оценка за ответ: 5 Комментарий оценки: Кстати, а существует Pascal на русском языке (в смысле редактор, где программа пишется)? Да, всё работает!!! Спасибо! И ещё одна оценка: 5!
Отвечает: Djec
Здравствуйте, Красильников И.П.!
Для экзаменаторов - ответ дан по истечении более 12 часов после предыдущего. [Edited by Gh0stik ]
Определяем переменную типа массив:
Var
A:arrya[1..12] of real; {неизвестно какого типа масса, возможно вам надо будет исправить на integer}
Далее вводим элементы массива, все 12 масс:
For i := 1 to 12 do
ReadLn( A[i] );
Затем в таком же цикле и суммируем:
S := 0;
For i := 1 to 12 do
S := S + A[i];
И выводим результат:
WriteLn( S );
Думаю, программу оформите полностью сами. Если будет не получаться обращайтесь.
--------- Никогда не сдавайся, даже если боишься проиграть
Ответ отправил: Djec (статус: 2-ой класс)
Ответ отправлен: 28.04.2007, 11:20 Оценка за ответ: 5 Комментарий оценки: Спасибо! Всё понятно!
Отвечает: Шарков Сергей Николаевич
Здравствуйте, Красильников И.П.!
program P1;
var a: byte;
b:real;
begin
for a:=10 to 22 do
begin
b:=a*2,54;
writeln (a,’ дюймов - ,’b:8:2,’ сантиметров);
end;
readln;
end.
Ответ отправил: Шарков Сергей Николаевич (статус: 3-ий класс)
Ответ отправлен: 29.04.2007, 22:37 Оценка за ответ: 5 Комментарий оценки: Спасибо!
