Помогите с Паскалем срочно, хорошо оценю 1. Найти S заштрихованной части фигуры. Параметры a, b, c, d, e, f, R вводятся с клавиатуры. 2.
5-9 класс
|
Найти значение y. y={√5x^4 +6 , если x>10 {2x^2 + 3x/ |3x – 8| , если x ≤ 10 (тут эти два выражения под одной системой)!!!
3. В одномерном массиве из 20 элементов, который заполнен случайными числами из диапазона [-20,40], найти среднее между min и max значениями.
4. Найти самое длинное из 3 введённых предложений (известно, что вводятся предложения разной длины).
Program one;
var S,a,b,c,d,e,f,R:real;
begin
readln(a,b,c,d,e,f,R);
S:=a*b-f*e-d*c-pi*Sqr(R);
write(S);
end.
***
Program two;
var y,x:real;
begin
read(x);
if x>10
then y:=5*Sqr(sqr(x))+6
else y:=2*Sqr(x) +3*x/Sqrt(sqr(3*x-8));
write(y);
end.
***
Progran three;
var A:array [1..100] of real; i:integer; min,max,Sr:real;
begin
for i:=1 to 20 do
begin
Randomaze
A[i]:=random(60)-20;
end;
for i:=1 to 20 do
begin
min:=A[1];
if A[i]<A[1] then min:=A[i];
max:=A[1];
if A[i]>A[1] then max:=A[i];
end;
Sr:=(min+max)/2;
write(Sr);
end.
***
Program four;
var s1,s2,s3:string;x,y,z:integer;
begin
readln(s1,s2,s3);
x:=length(s1);
y:=length(s2);
z:=length(s3);
If (x>y) and (x>z) then write('Самое длинное - первое предложение');
If (y>x) and (y>z) then write('Самое длинное - второе предложение');
If (z>x) and (z>y) then write('Самое длинное - третье предложение');
end.
Другие вопросы из категории
аргумента, второй - соответствующие значения функции.
F(x)=x^2 *sin^2x +1
Незнайки , Маша ответила следующим образом : " Мне 33 года . Моей маме 124 года , а папе 131 . А вместе нам 343 " . Какую систему счисления использовала Маша ?
Читайте также
Задали сделать презентацию о Белке и Стрелке. Я работаю в "Презентация Microsoft PowerPoint" (в других не понимаю как, мне кажется эта наиболее удобная) и мне надо подобрать космический фон. Там, в "Дизайне" этой презентации ничего подобного нет. Я нашла в интернете подходящую картинку для фона, скачала ее на компьютер но я не знаю как ее вставить. Там есть "Шаблоны оформления на Microsoft Ofice Online", но там я ничего не поняла (написала "Космос", вышли несколько картинок, загрузила одну и теперь она неизвестно где) и есть "Шаблоны оформления: Дополнительные", там он просит найти фото. Я точно знаю куда я его загрузила. проверяю несколько раз, но он не находит. Помогите пожалуйста, 3 дня ответ не могу нигде найти!!!
read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!
файла.Результат поместить в файл g.
дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g
ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g
Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f
Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.
Ввести три числа,вывести на экран их сумму,произведение и среднее арифметическое.
(В паскале,по такому типу:
Var
Begin
WriteLn
End)
Буду очень благодарна!