В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
omusheg
omusheg
24.07.2020 02:43 •  Информатика

Нужно сделать , что то типа калькулятора в виде функции для Excel(Microsoft visual basic). При вводе веса выдаёт минимум и максимум(мин.: вес*1,5 и мак.: вес*2,5).

Показать ответ
Ответ:
sitkavetskiy
sitkavetskiy
01.09.2021 17:22

ответ:

uses crt;

 

var s,sf,sl: string;

    i,l: integer;

 

begin

writeln('введите слова: ');

readln(s);

if s[1]=' ' then       //проверяем, чтобы не было пробелов в начале строки

  repeat

  delete(s,1,1);       //удаляем пробелы в начале строки, если они есть

  until s[1]< > ' ';

l: =length(s);

if s[l]=' ' then       //проверяем, чтобы не было пробелов в конце строки

  repeat

  delete(s,l,1);       //удаляем пробелы в начале строки, если они есть

  dec(l);

  until s[l]< > ' ';

i: =1;

sf: =''; sl: ='';         //изначально переменные для первого и последнего слова пусты

while s[i]< > ' ' do       //начинаем с первого символа и прекрепляем к первому слову

      begin

      sf: =sf+s[i];       //по одному символу до тех пор, пока не дойдем до пробела

      inc(i);           //увеличиваем счетчик символов на 1

      end;

i: =l;

while s[i]< > ' ' do     //начинаем с последнего символа и прекрепляем ко второму слову (спереди, то есмть по сути перед словом =))

      begin

      sl: =s[i]+sl;     //по одному символу до тех пор, пока не дойдем до пробела

      dec(i);         //уменьшаем счетчик символов на 1

      end;

writeln(sf,' ',sl);   //вывод

readln;

end.

объяснение:

0,0(0 оценок)
Ответ:
Shaxnoza2509
Shaxnoza2509
21.02.2021 16:52

ответ:

брат такой ответ дал незнаю нащет правельно с и но может правельно)

c++выделить код

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

#include

#include

#include

#include

#include

using namespace std;

void main()

{

setlocale(0, "");

srand(time(null));

int a[10] = {};

int b[5] = {};

int c[5] = {};

for (int i = 0, q = 0; i < 10; i++)

{

a[i] = rand() % (20 - (-20) + 1) + (-20);

cout < < a[i] < < endl;

if (a[i] % 2 == 0)

{

cout < < "" < < endl;

b[q] = a[i];

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота