Не выводится результат

27.05.2015, 20:45. Показов 707. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program vkaz;
const d = 5;{dovgina riadka}
n = 2;{kilkist radkiv v teksti}
type riadok = string[d];
vkazriadok = ^riadok;
tekst = array [1..n] of vkazriadok;
 
procedure perestanovk(var t:tekst; i,j :integer);
var temp : vkazriadok;
begin
temp:= t[i];
t[i]:=t[j];
t[j]:=temp;
end;
var i,j :integer; str:string;text : tekst; temp:riadok;
begin
for i:=1 to n do
new(text[i]);
for i:=1 to n do
begin
writeln('Yaksho vi hochete vvesti radok nomer(',i,') to vvedit ta, yaksho ni to vvedit ni');
readln(str);
if str = 'ta' then
begin
for j:=1 to d do
begin
read(temp[j]);
text[i]^ := temp;
end;
end else text[i] := nil;
end;
 
perestanovk(text,1,2);
for i:=1 to n do
if(text[i] = nil) then writeln else
begin
for j:=1 to length(text[i]^) do
begin
writeln(text[i]);
end;
end;
 
perestanovk(text,1,2);
for i:=1 to n do
if(text[i] = nil) then writeln else
begin
for j:=1 to length(text[i]^) do
begin
writeln(text[j]);
end;
end;
readln;
readln;
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

27.05.2015, 20:45

Ответы с готовыми решениями:

В задании данные считываются из файла(ов) и результат выводится в файл
В задании данные считываются из файла(ов) и результат выводится в файл. Упорядочить матрицы B(3,5) по убыванию элементов по столбцам....

При вводе одинаковых чисел минимальных или максимальных не выводится результат
Что нужно добавить,чтобы работало правильно program minandmax; var a,b,c,d,e:integer; begin writeln ('введите числа'); readln...

Не выводится результат вычисления одной из переменных
program ob_Par; USES CRT; var St,Vrem,Dohod,Summa1,Summa2:real; begin Writeln('Вычисление дохода по вкладу.'); ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

27.05.2015, 20:45

Помогаю со студенческими работами здесь

Не выводится результат работы программы решения числового ребуса, в чём ошибка?
var b,u,l,o,k,i,m,n,g:integer; begin for b:=1 to 9 do for u:=1 to 9 do for l:=1 to 9 do for o:=1 to 9 do for k:=1 to 9 do for...

Результат выводится в поле но не выводится в span
<div class="hot_predlojenia"> <input type="checkbox" name="hot_home_page" id="hot_home_page" value="a" onclick="showMe(this)"> <label...

Не выводится результат
При попытке посчитать логарифм числа выводится то что написал , а не результат( такая самая беда была и с рангом матрици но со временем...

Не выводится результат
Мне нужно написать программу по определению приналежности точки к определённой области на C++. Я написала код, когда выполняется...

Не выводится результат
Ребят, подскажите в чем проблема, не как не могу разобраться. >> x=0.0 : 0.001 : 1.0; >> y=x+log(x)-0.5; >>...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

Наверх