Var
i,j,n:integer;
s,a,t:string;
begin<span>
write('Введи текст: ');</span><span>
readln(s);</span>
n:=length(s);
i:=n mod 7;
if i>0 then
begin
i:=7-i;
s:=s+copy('корвет',1,i);
n:=n+i;
end;<span>
for i:=1 to n do
</span><span> begin
</span><span> a:=a+s[i];
</span><span> if i mod 7=0 then
</span><span> begin
</span><span> for j:= 7 downto 1 do
</span><span> t:=t+a[j];
</span><span> a:='';
</span><span> end
</span> end;<span>
writeln(t)
</span><span>end.
Можно использовать специальную функция переворота строки. Будет чуть короче
var
i,j,n:integer;
s,a,t:string;
begin
write('Введи текст: ');<span>
readln(s);</span>
n:=length(s);
i:=n mod 7;
if i>0 then
begin
i:=7-i;
s:=s+copy('корвет',1,i);
n:=n+i;
end;<span>
for i:=1 to n do
</span><span> begin
</span><span> a:=a+s[i];
</span><span> if i mod 7=0 then
</span> begin<span>
</span><span> t:=t+ReverseString(a);
</span><span> a:='';
</span><span> end
</span> end;<span>
writeln(t)
</span><span>end.
Sub z()
s = InputBox("Введи текст")
n = Len(s)
i = n Mod 7
If i > 0 Then
i = 7 - i
s = s & Mid("корвет", 1, i)
n = n + i
End If
For i = 1 To n
a = a + Mid(s, i, 1)
If i Mod 7 = 0 Then
t = t + StrReverse(a)
a = ""
End If
Next i
MsgBox (t)
<span>End Sub</span></span></span>
В чем же дело, идем в Паскаль, набираем программу, запускаем, сотрим на результат. Программа выдает значение первого элемента массива A[1]:=(mas[9]-mas[1])*mas[5];
1. При построении модели выделяют наиболее существенные свойства, особенности изучаемого объекта, явления или процесса.
2. Информационная модель описывает объект в знаковой форме.
3. предметные(материальные) и информационные (знаковые и образные).
по назначению: познавательная, прагматическая, инструментальная
виды математических моделей: динамическая и статическая, дискретная и непрерывная, имитационная и вероятностная (стохастическая), множественная, логическая, игровая, алгоритмическая, визуальная, геометрическая (графическая)
по структуре: табличные, иерархические, сетевые
4. наглядные модели часто используются на уроках . Модели играют чрезвычайно важную роль в проектировании. Без чертежа, схемы или макета невозможно изготовить изделие, тем более аппарат и механизм.
Образные информационные модлеи (рисунки, фото) представляют собой зрительныеобразы объектов, зафиксированные на каком-либо носителей информации. Знаковые представлены в форме текста (программы, таблицы, формулы и т.д.
5. знания, исследование поведения объектов. компьютерное моделирование - основа представления знаний в вычислительных системах, для получения новой информации компьютерное моделирование использует любую информацию, которую можно актуализировать с помощью самого компьютера и вычислительных сетей.
6. F = ma (ф-ла Ньютона) это математическая модель физического объекта, скатывающегося на плоскости
Глобус, таблица Д.И.Менделеева, анатомические муляжи и т.д.
7. например, если модель исследуется в приложении электронные таблицы, то можно провести сортировку или поиск данных, построить диаграмму и график; на экране компьютера в обучении часто используются визуальные модели (при обучении автовождению), клавиатуры (программы-тренажеры техники машинопись) и т.д
в целом чертеж это графическо отображение различных деталей, описание динамики различных процессов
