Переделать (доделать) код программы

16.04.2020, 18:54. Показов 461. Ответов 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
Program Lab_11;
Uses CRT;
Var
f:file;
x,s:string[15];
i,y,max,x1:integer;
z,min:real;
Begin
Textbackground(black);
ClrScr;
Writeln;
Gotoxy(29,2);
Writeln('N11');
Assign(f,'E:\L9.dat');
Reset(f,1);
For i:=1 To 15 Do
Begin
BlockRead(f,x,15);
BlockRead(f,y,2);
BlockRead(f,z,6);
End;
max:=y;
reset(f,1);
For i:=1 To 15 Do
Begin
BlockRead(f,x,15);
BlockRead(f,y,2);
BlockRead(f,z,6);
End;
min:=z;
Reset(f,1);
for i:=1 to 15 do
Begin
Blockread(f,x,15);
Blockread(f,y,2);
Blockread(f,z,6);
end;
while pos('.',x)>0 do
begin
delete(x,pos('.',x),1);
end;
writeln('Max ID : ',x,max);
writeln('Min Score : ',x,min:1:3);
write('Vipolnil Student .........');
Close(f);
Readln;
End.

IT_Exp

Эксперт

34794 / 4073 / 2104

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

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

Блог

16.04.2020, 18:54

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

Переделать код программы (убрать подпрограмму)
const nmax=100; type mas=array of integer; procedure max(a:mas;n:integer;var mx:integer); var i,k:integer; begin k:=0; for i:=1...

Возможно ли переделать код этой программы так, чтобы обойтись без функции?
Здравствуйте Возможно ли переделать код этой программы так, чтобы обойтись без функции? uses Crt; var x: real; function...

Есть такой код.Нужно переделать в код с функцией. Благодарю
program lab9(input,output); var s:string; len:integer; begin write('vvedit text:'); readln(s); len:=length(s); ...

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

16.04.2020, 18:54

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

Как переделать код программы?
Доброго времени суток! Подскажите пожалуйста, как переделать код данной программы, что бы она вместо проверки на нечетность делала...

Переделать код программы из Pascal в PascalABC
var f,fout:text; l,x,y,fname,fname1,s:string; i:integer; begin l:=''; write('Input file name:');readln(fname); ...

Переделать код программы из Turbo Pascal в PascalABC
Ребят может кто-нибудь помочь пожалуйста из PascalABC.NET в PascalABC переделать код программы и это вообще возможно ?:help: вот...

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

Переделать исходный код. Код в Паскале,а нужно сделать его в Фортране
{$S+,R+} program arab_to_roman; uses crt; var n : word; ch : char; procedure convert(n : word);

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

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

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

Наверх