Информатика: Даны три вещественных числа а в с.найти наибольшее среди них

Даны три вещественных числа а в с.найти наибольшее среди них

👇

Увидеть ответ

Ответ:

KroJlick20178

23.03.2022

Все решение в файлике.

4,7(73 оценок)

Открыть все ответы

Ответ:

jontfols999

23.03.2022

Вот исходник. заменишь строку и искомые слова.

/*
*
* Программа решает задачу: Дана строка символов. Группы символов,
* разделенные пробелами (одним или несколькими) и не содержащие пробелы
* внутри себя, будем называть словами.
* Заменить в строке слова S на слова W ( S, W - заданы).
*
*
*/

//
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <ctype.h>

#define bool int
#define true 1
#define false 0

#define MAX(x, y) (((x) > (y)) ? (x) : (y))
#define SPACE ' '

// Подпрограмма определяет, является ли группа символов словом.
bool isWordc (const char*const str, const char*const begin, int len);

//
#pragma argsused
int main(int argc, char* argv[])
{

const char*const def_str = "Ехал грека через реку , видит грека – в реке рак. Сунул грека руку в реку, рак за руку греку – цап! рекурсия рукавицы";
const char* S[] = { "грека", "реку", "руку", "рак", "ААА" };
const char* W[sizeof(S) / sizeof(char*)] = { "ААА", "поле", "ногу", "мышь", "Грека" };
const int countS = sizeof(S) / sizeof(char*);
int i, offset, delta, isWord;
char* pos;
char* str = (char*)malloc(strlen(def_str)+1);
if (!str) return 1;
memcpy(str, def_str, strlen(def_str)+1);

for ( i = 0; i < countS; ++i) {
pos = str;
while ((pos = strstr(pos, S[i])) != NULL) {
// Группы символов, разделенные пробелами, будем называть словами.
if (isWordc(str,pos,strlen(S[i])) == true) {
if (strlen(S[i]) != strlen(W[i])) {
// При разной длине - компенсируем разницу, т.е при замене рак на раковина не должны портиться другие данные.
delta = strlen(S[i]) - strlen(W[i]);
if (delta < 0) {
offset = pos - str;
str = (char*)realloc(str, strlen(str) + 1 - delta );
if (!str) return 1;
str[strlen(str) - delta] = '\0';
pos = str + offset;
memmove(pos - delta, pos, strlen(pos));
}
memset(pos, SPACE, MAX(strlen(W[i]), strlen(S[i]))); // Замена "грека" на "АА" = "АА___"
}
strncpy(pos, W[i], strlen(W[i]));
}
pos += strlen(S[i]);
}
}
free(str);

return 0;
}
//

//
// Подпрограмма определяет, является ли группа символов словом.
bool isWordc(const char*const str, const char*const begin, int len) {
bool lhs,rhs; // ( рак и раковина разные слова.)
// Приведение к (unsigned char) необходимо т.к. функции isspace и ispunct делают проверку (A>-1 && A<=255).
lhs = (begin == str); // Исключаем выход за границы.
lhs = lhs || (isspace((unsigned char) *(begin - 1)) || ispunct((unsigned char) *(begin - 1)));
rhs = isspace((unsigned char) *(begin + len))|| ispunct((unsigned char) *(begin + len));
return lhs && rhs;
}
//

4,4(28 оценок)

Ответ:

али5553

23.03.2022

Var Z:integer;
Begin
Write('Z = ');ReadLn(Z);
if Z>0 then WriteLn('Положительное')
else if Z=0 then WriteLn('Равное нулю')
     else WriteLn('Отрицательное')
End.

Пример:
Z = -5
Отрицательное

Z = 0
Равное нулю

Z = 256
Положительное

Z = 10455
Положительное

Var
   X,Y:real;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
if (X = 0)and(Y = 0) then WriteLn('Начало координат')
else if (X=0) then Write('Ось абсцисс')
     else if (Y=0) then WriteLn('Ось ординат')
          else if (X>0) then
                  if (Y>0) then WriteLn('Первая четверть')
                  else WriteLn('Вторая четверть')
               else
                  if (Y<0) then WriteLn('Третья четверть')
                  else WriteLn('Четвёртая четверть')
End.

Пример:
X = 0
Y = 0
Начало координат

X = 0
Y = 1
Ось абсцисс

X = 1
Y = 0
Ось ординат

X = 1
Y = 1
Первая четверть

X = 1
Y = -1
Вторая четверть

X = -1
Y = -1
Третья четверть

X = -1
Y = 1
Четвёртая четверть

Var
   a,b,c,S:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
b:=(a div 10) mod 10;
c:=a mod 10;
a:=a div 100;
S:=a+b+c;
if (9<S)and(S<100) then WriteLn('Сумма цифр(',S,') - двузначное число')
else WriteLn('Сумма цифр(',S,') не является двузначным числом');
if (a=4)or(b=4)or(c=4) then WriteLn('Цифра 4 есть') else WriteLn('Цифры 4 нет');
if (a=7)or(b=7)or(c=7) then WriteLn('Цифра 7 есть') else WriteLn('Цифры 7 нет')
End.

Пример:
Введите трёхзначное число: 74
Сумма цифр(11) - двузначное число
Цифра 4 есть
Цифра 7 есть

Введите трёхзначное число: 71
Сумма цифр(8) не является двузначным числом
Цифры 4 нет
Цифра 7 есть

Введите трёхзначное число: 13
Сумма цифр(4) не является двузначным числом
Цифры 4 нет
Цифры 7 нет

4,6(34 оценок)

Это интересно:

Искусство-и-развлечения

01.04.2021

Как научиться петь: советы для начинающих...

Компьютеры-и-электроника

01.03.2023

Как войти в Windows со стандартным паролем администратора...

Компьютеры-и-электроника

15.06.2021

Как открыть программу Terminal на Mac...

Хобби-и-рукоделие