Дана программа для исполнителя Редактор: НАЧАЛО
ПОКА нашлось (63) ИЛИ нашлось (664) ИЛИ нашлось (6665)
ЕСЛИ нашлось (63) ТО заменить (63, 4)
ИНАЧЕ
ЕСЛИ нашлось (664) ТО заменить (664, 5)
ИНАЧЕ
ЕСЛИ нашлось (6665) ТО заменить (6665, 3) КОНЕЦ ЕСЛИ
КОНЕЦ ЕСЛИ
КОНЕЦ ЕСЛИ
КОНЕЦ ПОКА
КОНЕЦ
Какая строка получится в результате применения приведённой выше программы к строке, в
которой первая и последняя цифры – 4, а между ними стоит 125 цифр 6? В ответе запишите
полученную строку.
Var
A:array of array of real;
n,m,i,j,C:integer;
Procedure BBODGRANIC();
Begin
Write('n = ');ReadLn(n);
Write('m = ');ReadLn(m);
SetLength(A,n,m);
End;
Procedure ZAPOLNENIERND();
Var i,j:integer;
Begin
Randomize;
For i:= 0 to n-1 do
For j:= 0 to m-1 do
A[i,j]:=random*21-10;
End;
Procedure BbIBOD();
Var i,j:integer;
Begin
Write('':3);
For i:= 0 to m-1 do
Write(i:5,' ');
WriteLn;
For i:= 0 to n-1 do
Begin
Write(i:2,' ');
For j:= 0 to m-1 do
Write(A[i,j]:5:1,' ');
WriteLn;
End;
End;
Procedure RE();
Begin
Write('i = ');ReadLn(i);
Write('j = ');ReadLn(j);
Write('A[',i,',',j,'] = ');ReadLn(A[i,j]);
End;
Procedure SUMDOk();
Var
k,i,j:integer;
S:real;
Begin
Repeat
Write('k = ');ReadLn(k);
Until k > 0;
m:=m+1;
SetLength(A,n+1,m+1);
if k > m then k:=m;
For i:= 0 to n-1 do
Begin
S:=0;
For j:= 0 to k-1 do
S:=S+A[i,j];
For j:= m downto k do
A[i,j]:=A[i,j-1];
A[i,k-1]:=S;
End;
End;
Begin
BBODGRANIC();
ZAPOLNENIERND();
BbIBOD();
Repeat
WriteLn;
WriteLn('1 - изменить размеры массива');
WriteLn('2 - заполнить массив случайными числами');
WriteLn('3 - ввести новое значение заданного элемента');
WriteLn('4 - вычислить суммы элементов в каждой строке до k-ого столбца и вставить их перед k-столбцом.');
WriteLn('5 - вывод массива');
WriteLn('9 - выход');
ReadLn(C);
Case C of
1:BBODGRANIC;
2:
Begin
ZAPOLNENIERND;
BbIBOD;
End;
3:RE;
4:
Begin
SUMDOk();
BbIBOD
End;
5:BbIBOD;
End
Until C = 9;
End.
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
int[] A = File.ReadAllText("D:\\f.txt").Split().Select(x=>int.Parse(x)).ToArray();
// for(int i = 0; i < A.Length; i++)
// Console.Write("{0} ",A[i]);
using (StreamWriter g = File.CreateText("D:\\g.txt"))
{
Console.WriteLine("\n{0}", "Введите номер задания (0 - а, 1 - б)");
int C = int.Parse(Console.ReadLine());
C = 5 + C * 5;
int i = 0;
while (i < A.Length)
{
for (int j = i; j < i + C; j++)
g.Write("{0} ",A[j]);
i += C*2;
for (int j = i; j < i + C; j++)
g.Write("{0} ", A[j]);
i -= C;
for (int j = i; j < i + C; j++)
g.Write("{0} ", A[j]);
i += C*2;
for (int j = i; j < i + C; j++)
g.Write("{0} ", A[j]);
i += C;
}
}
Console.ReadKey();
}
}
}