М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Superstylegir
Superstylegir
06.06.2020 13:06 •  Информатика

Строка содержит арифметическое выражение в виде двух чисел, между которыми стоит знак арифметического действия ("+" или "-"). составьте программу, которая предлагает ввести строку, выполняет данное арифметическое действие и выводит результат.

👇
Ответ:
lollerkaa
lollerkaa
06.06.2020
Я здесь и для *(умножения тоже сделал)
program gt;
label 1;
var a:string;
i,l,s,s2,s3,j:longint;
begin
read(a);l:=length(a);s:=0;s2:=0;
for i:=1 to l do
begin
if (a[i]='+')or(a[i]='-')or(a[i]='*')then goto 1;
end;
1:
for j:=1 to i-1 do
begin
if a[j]='1' then s:=s*10+1;
if a[j]='2' then s:=s*10+2;
if a[j]='3' then s:=s*10+3;
if a[j]='4' then s:=s*10+4;
if a[j]='5' then s:=s*10+5;
if a[j]='6' then s:=s*10+6;
if a[j]='7' then s:=s*10+7;
if a[j]='8' then s:=s*10+8;
if a[j]='9' then s:=s*10+9;
if a[j]='0' then s:=s*10+0;
end;
for j:=i+1 to l do
begin
if a[j]='1' then s2:=s2*10+1;
if a[j]='2' then s2:=s2*10+2;
if a[j]='3' then s2:=s2*10+3;
if a[j]='4' then s2:=s2*10+4;
if a[j]='5' then s2:=s2*10+5;
if a[j]='6' then s2:=s2*10+6;
if a[j]='7' then s2:=s2*10+7;
if a[j]='8' then s2:=s2*10+8;
if a[j]='9' then s2:=s2*10+9;
if a[j]='0' then s2:=s2*10+0;
end;
if a[i]='+' then s3:=s+s2;
if a[i]='-' then s3:=s-s2;
if a[i]='*' then s3:=s*s2;
writeln(s3);
end.
2)более проще
program gt;
label 1;
var a:string;
i,l,s,s2,s3,j:longint;
begin
read(a);l:=length(a);s:=0;s2:=0;
for i:=1 to l do
begin
if (a[i]='+')or(a[i]='-')or(a[i]='*')then goto 1;
end;
1:
for j:=1 to i-1 do
begin
s:=s*10+ord(a[j])-48;
end;
for j:=i+1 to l do
begin
s2:=s2*10+ord(a[j])-48;
end;
if a[i]='+' then s3:=s+s2;
if a[i]='-' then s3:=s-s2;
if a[i]='*' then s3:=s*s2;
writeln(s3);
end.
4,4(69 оценок)
Открыть все ответы
Ответ:
gimnastikgirla
gimnastikgirla
06.06.2020
//1)
Type
ty=array[1..25] of integer;

Var
n,i:integer;
ar:ty;

procedure sortbutmeh(var ar:ty;n:integer);
Var
i,j,c:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i]<ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
end;

begin
randomize;
readln(n);
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(100);
write(ar[i]:4);
end;
sortbutmeh(ar,n);
writeln;
writeln('Array after sortbutmeh()');
for i:=1 to n do
write(ar[i]:4);
end.

//2)
Var
n:integer;

procedure ned(n:integer);
begin
case n of 
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
end;

begin
readln(n);
ned(n);
end.

//3)
Var
s:string;

function lengthbutmeh(s:string):integer;
begin
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
lengthbutmeh:=length(s);
end;

begin
readln(s);
writeln(lengthbutmeh(s));
end.
4,5(65 оценок)
Ответ:
kristina758
kristina758
06.06.2020

Лишние словосочетание выделено жирным шрифтом :

а. Формирование у пользователей компьютера навыков грамотной постановки задач, возникающих в практической деятельности, для их решения с компьютера.

б. Формирование у пользователей компьютера навыков использования основных типов прикладных программ общего назначения для решения с их практических задач и понимания основных принципов, лежащих в основе этих систем.

в. Формирование у пользователей компьютера навыков печати десятипалым методом.

г. Формирование у пользователей компьютера умения грамотно интерпретировать результаты решения практических задач с компьютеров и применять эти результаты в практической деятельности.

4,4(42 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ