Паскаль определить наибольшую выручку от продажи трех видов товаров, если известны: цена товара; количество проданных товаров каждого вида. составить код программы

Program suma;
Var c1, c2, c3, t1, t2, t3, sum:integer;
begin
  readln(c1, c2, c3, t1, t2, t3);
  sum:= c1 * t1 + c2 * t2 + c3 * t3;
  write(sum);
end.

    

1. Открываем программу логомиры.

2. Во вкладке процедуры создадим новую программу, которую назовем дом

это дом
конец

3.  Нарисуем первый элемент нашего дома для этого в программе (между слова это дом иконец) напишем следующее.

по нц 9 нрп 1  (по - опускаем перо, нц 9 - задаём новый цвет, нрп - задаём новый размер пера)
повтори 4 [вп 100 пр 90]  (рисуем стены нашего дома, программа квадрата)

Посмотрим полученный результат. Для этого создадим черепашку, в поле команд напишем имя нашей программы дом, запустим её нажав клавишу Enter.

4. Далее рисуем крышу, для этого после команды квадрата пишем следующее.

вп 100 (передвигаем черепашку в левый верхний угол уже нарисованного квадрата)
пр 30 (нам известно что сумма внешних углов правильного многоугольника равна 360 градусов следовательно внешний угол правильного треугольника равен 120=360/3, поворот будет равен 30 градусам т.к. 120-90=30)
вп 100 (рисуем левую часть крыши)
пр 120 (поворачиваем черепашку на 120 градусов)
вп 100 (рисуем правую часть крыши)

Посмотрим полученный результат в поле команд напишем сг (стирание с экрана всей графики) дом (выполним программу дом).

5.  Нарисуем окно дома. Для этого следует перевести черепашку в центр дома.

пр 30 (повернём черепашку так чтобы её голова смотрела вниз)
вп 30 (передвинем её вниз на 30 шагов)
пр 90 (относительного её движения повернём её на 90 градусов)
пп (поднимем  перо чтобы черепашка не оставляла за собой след)
вп 30 (продвинем черепашку на 30 шагов)
по (чтобы нарисовать окно следует опустить перо)
повтори 4 [вп 40 лв 90]  (рисуем квадрат размером в 40 шагов)

Посмотрим полученный результат в поле команд напишем сг (стирание с экрана всей графики) дом (выполним программу дом).

6. осталось только дом разукрасить для этого выполним следующие команды.

пп (поднять перо чтобы черепашка не оставляла за собой след)
вп 10  лв 90 вп 10 (передвинемся во внутрь окна)
нц 91 крась (закрасим окно голубым цветом)
пр 180 вп 20 (передвинем черепаху на стену)
нц 41 крась (закрасим стену светло-кремовым цветом)
вп 40 (передвинем черепаху на крышу)
нц 18 крась (закрасим крышу красным цветом)

Посмотрим полученный результат в поле команд напишем сг (стирание с экрана всей графики) дом (выполним программу дом). Любуемся.

FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.