Задача на строки

@jurkiw · Регистрация: 22.10.2008

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

Программа. Дана последовательность литер, имеющая следующий вид; d1±d2±...±dn (di—цифры, n>1), за которой следует точка. Вычислить значение этой алгебраической суммы.

Вот код, но щитает толька первые два числа, помогите переделать:

Код

program z6_26;
uses crt;
var s,s1,s2: string;
l,f,k,z,i,a,c,v: integer;
begin
clrscr;
write ('Wwedit radok ');
read (s);
f:=(-1); k:=0; z:=0;
l:=length(s);
l:=l div 2;
for i:=1 to l do
begin
f:=f+2;
s1:=copy(s,f,f);
k:=k+2;
s2:=copy(s,k,k);
val(s1,c,a);
val(s2,v,a);
z:=z+v+c;
end;
writeln ('Znachenna algebraichnoi sumy = ',z);
readkey;
end.

@Arustarh Dark · 06.11.2008, 07:48

Вот решение на Delphi, паскаля под рукой нет, возможно там не хватает каких-то функций, я его, паскаль, уже не помню

Код

var
  data:string;
  summ:integer;
  z:integer;
begin
  readln(data);
  summ:=0;
  data:=StringReplace(data,'-','+-',[rfReplaceAll]);
  while Length(data)>0 do
    begin
      z:=pos('+',data);
      if z=0 then
        z:=Length(data)+1;
      summ:=summ+strtoint(copy(data,1,z-1));
      Delete(data,1,z);
    end;
  writeln(summ);
  readln;
end.

Новые блоги и статьи
Из чего и как собрать свой домашний кинотеатр bt_guru 21.01.2025 Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .	Ошибки стиральных машин bt_guru 21.01.2025 Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .	Копирование (маппинг) объектов в JavaScript bytestream 21.01.2025 В современной разработке программного обеспечения копирование объектов представляет собой фундаментальную операцию, которая требует особого внимания и понимания. Маппинг объектов в JavaScript – это. . .	Как работать с Apache Kafka в C# .NET bytestream 21.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки больших объемов информации в реальном времени. Эта система,. . .	Как использовать RabbitMQ в C# .NET bytestream 21.01.2025 RabbitMQ представляет собой мощный брокер сообщений, который эффективно решает эту задачу, обеспечивая надежную передачу данных между множеством приложений. Этот инструмент реализует протокол AMQP. . .	Как объединить последние коммиты в Git bytestream 21.01.2025 В мире разработки программного обеспечения система контроля версий Git стала незаменимым инструментом для управления исходным кодом. Одной из наиболее полезных, но порой сложных для освоения функций. . .
Как запушить новую локальную ветку (branch) в удалённый репозиторий Git и отслеживать её bytestream 21.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемым инструментом для эффективного управления кодом и организации командной работы. Одной из ключевых. . .	Как создать директорию и все родительские директории, указанные в пути, с помощью Python bytestream 21.01.2025 Python предоставляет мощные инструменты для работы с файловой системой через встроенные модули os и pathlib, которые значительно упрощают процесс манипуляции директориями. Эти модули содержат. . .	Как работать с массивами в JavaScript bytestream 21.01.2025 Массивы в JavaScript представляют собой один из фундаментальных типов данных, который позволяет хранить упорядоченные коллекции различных элементов в одной переменной. Эта структура данных является. . .	Какая максимальная длина адреса (URL) в различных браузерах и стандартах bytestream 21.01.2025 В современном мире интернет-технологий URL-адреса (Uniform Resource Locator) играют фундаментальную роль в функционировании веб-пространства. Эти уникальные идентификаторы ресурсов стали неотъемлемой. . .	Как сбросить локальный репозиторий до состояния удалённого репозитория Git bytestream 21.01.2025 При разработке программного обеспечения с использованием системы контроля версий Git разработчики часто сталкиваются с необходимостью синхронизации локального и удаленного репозиториев. Данная задача. . .	Как запретить подсветку выделенного текста с помощью CSS bytestream 20.01.2025 Подсветка текста при выделении является стандартным поведением браузера, которое не всегда соответствует дизайнерским решениям или функциональным требованиям веб-приложения. Выделение текста может. . .

@jurkiw 0 / 0 / 0 Регистрация: 22.10.2008 Сообщений: 11
		1
	Задача на строки 05.11.2008, 21:55. Показов 1478. Ответов 1 Метки нет (Все метки) Программа. Дана последовательность литер, имеющая следующий вид; d1±d2±...±dn (di—цифры, n>1), за которой следует точка. Вычислить значение этой алгебраической суммы. Вот код, но щитает толька первые два числа, помогите переделать: Код program z6_26; uses crt; var s,s1,s2: string; l,f,k,z,i,a,c,v: integer; begin clrscr; write ('Wwedit radok '); read (s); f:=(-1); k:=0; z:=0; l:=length(s); l:=l div 2; for i:=1 to l do begin f:=f+2; s1:=copy(s,f,f); k:=k+2; s2:=copy(s,k,k); val(s1,c,a); val(s2,v,a); z:=z+v+c; end; writeln ('Znachenna algebraichnoi sumy = ',z); readkey; end. 0

@Arustarh Dark 63 / 64 / 13 Регистрация: 08.06.2008 Сообщений: 243
	06.11.2008, 07:48	2
	Вот решение на Delphi, паскаля под рукой нет, возможно там не хватает каких-то функций, я его, паскаль, уже не помню Код var data:string; summ:integer; z:integer; begin readln(data); summ:=0; data:=StringReplace(data,'-','+-',[rfReplaceAll]); while Length(data)>0 do begin z:=pos('+',data); if z=0 then z:=Length(data)+1; summ:=summ+strtoint(copy(data,1,z-1)); Delete(data,1,z); end; writeln(summ); readln; end. 1