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

[Stepler]

Практически так же!

Что ты имееш ввиду практически также?

Если брать способ решения то вполне имеющий право на существование,
но под даное условие задание он не совсем подходит.
В задании конкретно сказано использовать массив строк, в котором будет храниться наименование товара и его цена.
Грубо говоря надо будет "вытащить" кусочек строки где записано число,
перевести его в целое, и потом уже сравнивать числа, это немного сложнее чем сравнивать сразу готовые числа. Потом после увеличения числа на 10% надо будет его обратно занести в строку.

[alena-yalymova]

Спасибо. Сейчас посмотрю результат.

[alena-yalymova]

Спасибо. Сейчас посмотрю результат.

[alena-yalymova]

Пишет ошибку: "error 4: Duplicate idnetifier (tovar)". Что это?

[puporev]

Alena, примите решение четвертой задачи. Все нормально работает, только при вводе строк нужно повнимательней. Слово, один пробел, число. Увеличенную цену я округлил, чтобы меньше писанины.
Я смотрю, такая длинная переписка, подведите итог, что у вас нормально работает, а что нужно переделать. Впервой задаче не понимаю что значит (Xί,Yί).

uses crt;
var s:array[1..7]of string;
    i,n,m,t,t1,c:integer;
    s1:string;
begin
clrscr;
Writeln('Vvedite 7 strok tipa "ruchka 2":');
writeln;
writeln('Tovary do nacenki:');
for i:=1 to 7 do
   begin
    write('Tovar ',i,': ');readln(s[i]);
   end;
for i:=1 to 7 do
   begin
    n:=length(s[i]);  //длина строки
    m:=pos(' ',s[i]);  //индекс позиции пробела
    val(copy(s[i],m+1,n-m),t,c);  //превращаем цену в число
    delete(s[i],m+1,n-m);     //отрубаем ее от строки
    t1:=round(1.1*t);        //нацениваем
    str(t1,s1);               //превращаем в строку
    s[i]:=s[i]+s1;           //возвращаем на место
   end;
writeln;
writeln('Tovary posle nacenki:');
for i:=1 to 7 do
   begin
    writeln(s[i]);      //выводим на экран
   end;
readln
end.

[Rusl92]

Оба решения правильные!

[alena-yalymova]

Спасибо за решение. Сейчас проверим.
Что означает в первой задаче Xi, Yi я тоже не понимаю. Такие задания были напечаты в лабораторной, которую буду сдавать. Нам ни чего не объясняли.

[alena-yalymova]

Программа все выводит, но ни каких вычислений и расчетов не делает. Пишет только все, что должна вывести на екран, а потом 7 рядов 0. Как это можно исправить?

[Rusl92]

моя программа или программа puporevа?
Я тестировал свою - она работает!

[alena-yalymova]

Rusl92 Твоя программа выдает ошибку - я выше писала какую. Избавиться от нее не могу, поэтому даже и проверить не могу.