Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
1 из 2 1 2 »
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 13.10.2010
Сообщений: 15

Как заменить строчку

27.11.2010, 21:10. Показов 1841. Ответов 23
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
вот программа

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

var s:string;
i:integer;
l,m,n,j:integer;
ch:char;
p1,p2:string;
 
BEGIN
p1:='';
p2:='';
writeln('пример(в конце обязательно "=")');
read(s);
l:=length(s);
 
for i:=1 to length(s) do
if (s[i]='+') or (s[i]='+') or (s[i]='*') or (s[i]='/') then
begin
j:=i;
ch:=s[i];
Break;
end;
 
i:=j+1;
While s[i]<>'=' do
begin
p1:=p1+s[i];      //второе число
inc(i);
end;
  for i:=1 to j-1 do
   p2:=p2+s[i];  //первое число
m:=StrToINT(p2);
n:=StrToINT(p1);
 
 
case ch of
'+':write(m+n);
'-':write(m-n);
'*':write(m*n);
'/':write(m/n);
end;
END.

Как заменить StrToIN ord-ом???
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 27.11.2010, 21:10
Ответы с готовыми решениями:

Как заменить строчку массива
Как заменить строчку массива на строчку,поделенную на A

В Notepad++ найти строчку и заменить ее.
Как в нотепад ++ найти строчку /netcat_files/108/109/ либо /netcat_files/111/122/ и заменить ее на /netcat_files/Image/?? Добавлено...

Где ошибка или как заменить строчку в ListBox
private void edit_button_Click(object sender, EventArgs e) { string change_fio = family_textbox.Text +...

23
ТруЪ Одмин Всiя Руси
 Аватар для ChameleoN
71 / 71 / 14
Регистрация: 20.11.2010
Сообщений: 284
27.11.2010, 21:14
а что такое strtoin? я такого в мануале не нашол
0
0 / 0 / 0
Регистрация: 13.10.2010
Сообщений: 15
27.11.2010, 21:16  [ТС]
это как ord только в делфи вроде,
эта строчка тоже самое что и орд делает, просто не могу записать
0
ТруЪ Одмин Всiя Руси
 Аватар для ChameleoN
71 / 71 / 14
Регистрация: 20.11.2010
Сообщений: 284
27.11.2010, 21:18
так и пиши ord(x)

ах да! и crt подключи
0
0 / 0 / 0
Регистрация: 13.10.2010
Сообщений: 15
27.11.2010, 21:19  [ТС]
Цитата Сообщение от ChameleoN Посмотреть сообщение
так и пиши ord(x)

ах да! и crt подключи
там чтото пишет несовместимость типов и еще типо неправильно написано
0
ТруЪ Одмин Всiя Руси
 Аватар для ChameleoN
71 / 71 / 14
Регистрация: 20.11.2010
Сообщений: 284
27.11.2010, 21:21
попробуй chr(x)
0
0 / 0 / 0
Регистрация: 13.10.2010
Сообщений: 15
27.11.2010, 21:22  [ТС]
Цитата Сообщение от ChameleoN Посмотреть сообщение
попробуй chr(x)
m:=chr(p2);
n:=chr(p1);
так что ли? если да то пишет нельзя преобразовать стринг в интежер)))
0
ТруЪ Одмин Всiя Руси
 Аватар для ChameleoN
71 / 71 / 14
Регистрация: 20.11.2010
Сообщений: 284
27.11.2010, 21:25
Цитата Сообщение от Niniko Посмотреть сообщение
p1:=p1+s[i];
а где этот массив-то?
в var s не прописан
0
0 / 0 / 0
Регистрация: 13.10.2010
Сообщений: 15
27.11.2010, 21:26  [ТС]
Цитата Сообщение от ChameleoN Посмотреть сообщение
а где этот массив-то?
в var s не прописан
с кодом-то все хорошо)))))
вот 2 строчки те просто заменить
а остальное все работает отлично
0
ТруЪ Одмин Всiя Руси
 Аватар для ChameleoN
71 / 71 / 14
Регистрация: 20.11.2010
Сообщений: 284
27.11.2010, 21:27
как хорошо, если нету в переменных такого массива?? пропиши его, мож получится!
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
27.11.2010, 21:28
ChameleoN
это не массив а строка
0
0 / 0 / 0
Регистрация: 13.10.2010
Сообщений: 15
27.11.2010, 21:29  [ТС]
дак S это строка, а потом он рассматривает s[i] , элементы строки
0
ТруЪ Одмин Всiя Руси
 Аватар для ChameleoN
71 / 71 / 14
Регистрация: 20.11.2010
Сообщений: 284
27.11.2010, 21:29
ну строка! сути не меняет)
ааааа вон оно где!
0
0 / 0 / 0
Регистрация: 13.10.2010
Сообщений: 15
27.11.2010, 21:30  [ТС]
да)))) прописано там это строчка
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
27.11.2010, 21:32
Функция StrToInt конвертирует строку с целым значением -
Val юзай

Pascal
1
2

val(p2,m,k);
val(p1,n,k);
k-integer или longint
0
0 / 0 / 0
Регистрация: 13.10.2010
Сообщений: 15
27.11.2010, 21:37  [ТС]
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
Val юзай

Pascal
1
2

val(p2,m,k);
val(p1,n,k);
k-integer или longint
а k это новая переменная к чему присвоили ее?
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
27.11.2010, 21:38
а k это новая переменная к чему присвоили ее?
добавь в Var
и всё
0
0 / 0 / 0
Регистрация: 13.10.2010
Сообщений: 15
27.11.2010, 21:39  [ТС]
ок спасибо!! все работает
0
Фрилансер
Эксперт С++
 Аватар для Dekio
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,373
Записей в блоге: 1
28.11.2010, 10:58
StrToIN

млять, деревня.

во-первых strToint();
а во вторых в паскале есть вместо этого
val(a,b,c);
где а - строка, b переменная числового вида, с код результата исполнения процедуры
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
28.11.2010, 11:06
Dekio
#15
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 28.11.2010, 11:06
Помогаю со студенческими работами здесь

Как изменить функцию GetSuit, нужно заменить If-ы массивами и сделать все в одну строчку кода
enum Suits { Wands, Coins, Cups, Swords } private static string GetSuit(Suits suit) {

Найти строчку в файле и заменить ее на другую
Надо открыть файл и переписать его, заменив единственную строчку? есть ли какой-нибудь готовый метод, чтобы сделать это? или надо долго...

Заменить в кода оду строчку на дургую
вот код основной uses crt; var f:file of real; n,i:integer; a,s:real; begin clrscr; randomize; assign(f,'fileF'); ...

Visual Studio предлагает заменить одну строчку на вторую
Visual studia предлагает заменить сроку if (null != TCP_OnStartingEven) TCP_OnStartingEven();*//Вызов*самого*евента. на ...

Ввести строчку из русских букв. Заменить все строчные буквы на прописные
Вечер всем добрый ! Очень нужна ваша помощь по следующей задаче !! Очень надеюсь на вашу помощь ! Ввести строчку из русских букв....


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

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
1 из 2 1 2 »
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru