Решаем задачи Абрамян на Паскале. For6

For6. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4, …, 2 кг конфет.

Решение:

program For6;
var
  C:Real;
  i:Integer;

begin
  Write('Введите стоимость 1 кг конфет: ');
  Readln(C);
  Writeln('Введите стоимость конфет: ');
  For i:=1  to 5 do Writeln((1+i*2/10),'??: ',(1+i*2/10)*C);
end.

program For6;

var

C:Real;

i:Integer;

begin

Write('Введите стоимость 1 кг конфет: ');

Readln(C);

Writeln('Введите стоимость конфет: ');

For i:=1 to 5 do Writeln((1+i*2/10),'??: ',(1+i*2/10)*C);

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии 5

Кирилл

10.12.2014 в 00:57

не подходит решение ((( сосем запутался я в этих вычурных заданиях по циклам…

Ответить
- Anton
  
  10.12.2014 в 10:49
  
  Странно, вроде всё правильно считает.
  
  Ответить
  - Кирилл
    
    10.12.2014 в 19:33
    
    Прошу прощения, сошлось.
    
    Ответить
    - Anton
      
      10.12.2014 в 21:02
      
      Ну и хорошо, что сошлось.. 🙂
      
      Ответить

Нерационально, но сделал с помощью двух дополнительных переменных.

uses PT4;
var c,cost,j:real;
var i:integer;
begin
  Task('For6');
read(c);
j:=1;
For i:=1  to 5 do
 begin
 cost:=c*(j+0.2);
 j:=j+0.2;
 write(cost);
 end;  
end.

uses PT4;

var c,cost,j:real;

var i:integer;

begin

Task('For6');

read(c);

j:=1;

For i:=1 to 5 do

begin

cost:=c*(j+0.2);

j:=j+0.2;

write(cost);

end;

end.

Ответить

Решаем задачи Абрамян на Паскале. For6

Комментарии:

Комментарии 5

Добавить комментарий Отменить ответ