Процедуры и функции

Комментарии

Дан вектор n(1<=n<=100).Найти

Дан вектор n(1<=n<=100).Найти минимальный элемент, который не превышает целое число m.
сделать программу нужно в Паскаль с помощью функции или процедуры.Помогите , пожалуйста

Помогите пожалуйста!

Вычислить функцию y, если {a^2-2, a<0
корень2-2, a>0

Нужна помощь

как в паскале записать функцию
"минус единица в степени К"?

-1^k

-1^k

пожалуйста, помогите! нужно

пожалуйста, помогите! нужно написать программу! Дан массив целых чисел. Для каждого элемента с нечетным индексом найти и вывести количество цифр и их сумму.

как переписать задачу, используя не процедуры а функции?

uses crt;
const n=10;
type mas=array [1..10] of real;
var B,C,F,S:mas;
    i,j,n:integer;
Procedure Nul(A:mas; var D:mass);
begin
for i:=2 to (n-1) do
     if A[i]=0 then begin
     A[i]:=(A[i-1]+A[i-1])/2;
     D[i]:=A[i];
end
     else D[i]:=A[i];
     if A[1]=0 then D[1]:=A[2] else D[1]:=A[i];
     if A[n]=0 then D[n]:=A[n-1] else D[n]:=A[n];
end;
BEGIN
clrscr;
write('Задайте размер массива С: n= ');
readln(n);
writeln;
 writeln (' Введите массив С');
for i:=1 to n do begin
readln (C[i]);
Nul(C,B);
writeln;writeln;
writeln ('Измененный массив= ');
 for i:=1 to n do
 write (B[i]:2:2, ' ');
writeln; writeln;       
write('Задайте размер массива S: n= ');
readln(n);
writeln;
 writeln (' Введите массив S');
for i:=1 to n do begin
readln (S[i]);
Nul(S,F);
writeln;writeln;
writeln ('Измененный массив= ');
 for i:=1 to n do
 write (F[i]:2:2, ' ');
readln;
end.

Помогите

Помогите с задачей пожалуйста! если можно с комментариями.
Задача: массив Р(m), полученной заменой в массиве С(m) полусуммой соседних элементов (прочие элементы не изменяются; если 0 стоит на первом или последнем месте, то он заменяется значением соседнего элемента).
что нужно записать в подпрограмме и почему?

Создать блок-схему

Прошу помочь создать блок-схему

Program variant4;
uses crt;
var
n,r,i:integer;
t,v,s:real;
begin
writeln('Сколько раз вы хотите использовать программу для вычислений?');
write('Введите количество раз:');
Readln(r);
for i:=1 to r do
begin
writeln('1.Вычислить расстояние.');
writeln('2.Вычислить скорость.');
writeln('3.Вычислить время.');
readln(n);
case n of
1:begin
write('Введите время:');
readln(v);
write('Введите скорость:');
readln(t);
S:=t*v;
writeln('Расстояние = ',s:5:2);
end;
2:begin
write('Введите расстояние:');
readln(s);
write('Введите время:');
readln(t);
v:=s/t;
writeln('Скорость = ',v:5:2);
end;
3:begin
write('Введите расстояние:');
readln(s);
write('Введите скорость:');
readln(v);
t:=s/v;
writeln('Время = ',t:5:2);
end;
end;
readln;
end;
end.

пользовательский интерфейс

Помогите создать пользовательский интерфейс, построенный на основе меню с выделением цветом текущего пункта меню.

функции и процедуры

помогите пожалуйста...

1.описать функцию вычисления f(x) по формуле:
f(x)= x^2 при -2<=x<2;
x^2+4x+5 при x>=2;
4 при x<-2
используя эту функцию, для n заданных чисел вычислить f(x). среди вычисленных значений найти наибольшее.

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

Два простых числа называются

Два простых числа называются «близнецами», если они отличаются друг от
друга на два (например, числа 41 и 43). Напечатать все пары «близнецов», не
превышающих число N. Определить функцию, позволяющую распознавать простые
числа и написать две программы: с использованием этой подпрограммы и без неѐ.

Создать файл, содержащий

Создать файл, содержащий сведение о кубиках. Структура записи: цвет(красный, желтый, зелены, синий), материал (деревянный, металический, картонный), размер (длина ребра в см.) Кол-во записей не менее 15. Определить:
- Кол-во кубиков каждого из перечисленных цветов и их суммарный объем;
- Кол-во деревянных кубиков с ребром X см;
- Какой цвет преобладает среди картонных кубиков;
- Есть ли сведения о зеленом деревянном кубике с ребром 13 см. , если таких сведений в файле нет - дописать.