ХОТЬ ГОТОВА ЗАПЛАТИТЬ Запрограммируйте функцию digitSum :: integer -> integer -> integer таким образом, чтобы digitsum base X был числовой суммой числа x в базе. Примечание.: числовые литералы, такие как 1234 или 5, находятся в десятичной системе счисления. Помните, что в Haskell можно вводить числа в шестнадцатеричной системе счисления, например: 0x1234.
Работайте только с неотрицательными числами. Можно предположить, что первый аргумент-база-будет положительным числом ≥ 2.
digitSum 10 1234 ~>* 10
digitSum 16 0x1234 ~>* 10 -- шестнадцатеричный ввод
digitSum 16 1234 ~>* 19 -- 4d2 в системе счисления с основанием 16, т. е. цифр [4, 13, 2]
digitSum 16 0x4d2 ~>* 19
digitSum 3 1234 ~>* 6
digitSum 4 0 ~>* 0
начнём с того,что s трапеции-это 1/2 a*h (1/2 основания на высоту).
теперь,с этими знаниями,переходим в pascal abc.net.
начинаем с названия программы.
program pltrap; (pltrap-это сокращенно площадь трапеции.если хочешь,можешь написать за место этого то,что хочешь ты).
задаем переменные.
var a,b,c: real; (а-это высота,b-это средняя линия,с-сама площадь трапеции. real-тип переменных чисел.real-значит число может быть как целым,так и не целым).
begin - (начало решения).
возьмем наши переменные,которые будем записывать в строку.
readln(a); - высота.
readln(b); - основание.
c: =0.5*a*b - это наша формула для нахождении площади.1/2-это 0,5.в паскале нужно писать в целых числах вместо запятой точку.
writeln(c); - это то,что нам надо найти,то,что высветится,как ответ,в окне вывода.в нашем случае-это площадь.
end. - конец программы (на конце ставим точку).
итак,что у нас получилось:
program pltrap;
var a,b,c: real;
begin
readln(a);
readln(b);
c: =0.5*a*b;
writeln(c)
end.
теперь пишем в окно ввода числа.
первое число-это a (высота),потому что мы ее задали первой в команде readln(a);
потом-b (основание).
и получаем,чему будет равна площадь.например.пишем числа:
10
2
s=1/2*a*c=0,5*10*2=10- это число выдаст паскаль.
не забывай про ;
если будут вопросы-пиши мне.
#include <string>
#include <math.h>
#include <algorithm>
using namespace std;
int hexCharToDec(char hexChar)
{
switch (hexChar) {
case 'a':
return 10;
break;
case 'b':
return 11;
break;
case 'c':
return 12;
break;
case 'd':
return 13;
break;
case 'e':
return 14;
break;
case 'f':
return 15;
break;
default:
return hexChar - 48;
break;
}
}
int hexToDec(string hexString)
{
std::transform(hexString.begin(), hexString.end(), hexString.begin(), ::tolower);
int power = 0, ret = 0;
for (string::reverse_iterator rit = hexString.rbegin(); rit != hexString.rend(); ++rit) {
ret += hexCharToDec(*rit) * pow(16, power);
power++;
}
return ret;
}
int main()
{
string s;
cout << "Строка: ";
cin >> s;
cout << endl << "ответ: " << hexToDec(s) << endl;
return 0;
}