|
Решения задач на Паскале!Срочно нужно!
|
|
Помогите, плиз, очень срочно
№1. Дан массив D(M,K) целых чисел. Подсчитать в нем количество троек di,j; di,j+1; di,j+2, в каждой из которых элементы равны.
№2. Дана строка символов, состоящая из прописных и строчных латинских букв и пробелов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Вывести на печать слова, состоящие из равного количества строчных и прописных букв (например, fBcD, eaPO и т.п.) и самое длинное из таких слов.
|
|
|
|
Отвечал уже
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите срочно народ
1.Введите множество, состоящее из 20 целых чисел от 1 до100.
Определите, сколько среди них простых чисел.
2.Начиная с центра обойти по спирали все элементы
матрицы размером 9x9 (распечатывая их в порядке обхода).
3.Дана матрица A из целых чисел размером MxN.
Переставить строки матрицы так, чтобы строки стали расположены
по убыванию в лексикографическом порядке.
4.По заданным 4-ем элементным целым массивам a, b, c
написать процедуры, которые вычисляют:
1) max(a[i]), max(b[i]), max(c[i])
2) min(a[i]), min(b[i]), min(c[i])
3) max(a[i]+b[i]), max(a[i]+c[i]), max(b[i]+c[i])
4) min(a[i]-b[i]), min(a[i]-c[i]), min(b[i]-c[i])
5) max(a[i]*b[i]), max(a[i]*c[i]), max(b[i]*c[i])
5.Написать функцию, которая возвращает максимальное из
двух целых чисел, полученных в качестве аргумента.
6.type seria = file of integer;
var s:seria;
Описать функцию max(s), вычисляющую значение
максимального элемента файла s. Программа: введите файл s
(последний элемент равен 0) и напечатайте значение функции
max(s).
7.Построить астроиду-кривую, заданную параметрическим
уравнением x = b cos^3(t),
y = b sin^3(t) t принадлежит интервалу [0,2pi]
8.Написать программу, которая из общего массива сведений
об учащихся школы создаст массивы учащихся по каждой
параллели и выдаст их на печать. В массиве сведений об учащихся
школы расположены фамилии, год рождения, класс (1 по 11).
№ 503 | Автор: M@RECS |
2012-05-10, 17:14 | Изменено: M@RECS - Чт, 2012-05-10, 20:33
|
Репутация: [ + 0 ]
|
|
|
|
Quote (M@RECS) 1.Введите множество, состоящее из 20 целых чисел от 1 до100. Определите, сколько среди них простых чисел.
begin
writeln('25');
end.
Будет время - остальные напишу:))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите пожалуйста!!!
1.Написать программу, находящую сумму на отрезке (X; Y), где каждое слагаемое представляет собой произведение чисел отрезка в порядке их следования. Первое слагаемое содержит один элемент – x, второе – произведение двух следующих, третье – трех следующих и т.д. Последнее слагаемое является произведением всех оставшихся чисел до у включительно. Нахождение слагаемого оформить функцией.
2.Разработать процедуру, определяющую уравнение перпендикуляра от центра окружности до прямой. Написать программу, подсчитывающую количество окружностей, которые пересекаются с данной прямой.
|
|
|
|
Помогите пожалуйста, срочно нужна помощь:((
Написать программу, осуществляющую ввод структурированных данных в
файл и вывод данных из этого файла на экран (сделать хранилище данных в
файле). (Вариант задания: Фонотека)
|
|
|
|
Пожалуйста)))
Заполнить двумерный массив, случайными числами.. найти мах элемент в массиве.
Sweet
|
|
|
|
var
a:array[1..100,1..100]of integer;
i,j,m,n:integer;
begin
read(n);
m:=low(m);
randomize;
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=random[100];
if m<a[i,j] then m:=a[i,j];end;
writeln(m);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
)))
Sweet
№ 509 | Автор: Sweet__life |
2012-05-22, 12:37 | Изменено: Sweet__life - Вт, 2012-05-22, 12:39
|
Репутация: [ + 0 ]
|
|
|
|
Вместо смайлика - лучше повышение репутации))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите
Описать рекурсивную логическую функцию sym(s,i,j),
проверяющую, является ли симметричной часть строки s,
начинающаяся i-ым и кончающаяся j-ым ее элементами.
Опишите рекурсивную функцию sum без параметров для
нахождения суммы элементов файла f.
|
|
|
|
Ранее на форуме писал, ищи
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (GriF) Люди человеки,помогите пожалуйста с задачкой нуна вот чё Составить прогу используя оператор цикла с предусловием. Вычислить количество отрицательных значений Sin(Fi) на интервале {а.в} с заданным шагом.Я вам стока плюсов натыкаю;0))
Добавлено (08.02.12, 11:42)
---------------------------------------------
uses crt;
var a,b,f,h,y:real;
k:integer;
begin
clrscr;
repeat
writeln('Введите диапазон вычислений a<b');
readln(a,b);
until a<b ;
repeat
write('Шаг вычислений h<',b-a:0:1,' h=');
readln(h);
until h<b-a;
k:=0;
f:=a;
while f<=b+h/2 do
begin
y:=sin(f);
writeln('f=',f:4:1,' sin(f)=',y:5:2);
if y<0 then k:=k+1;
f:=f+h;
end;
write('Количество отрицательных=',k);
readln
end.
ВОТ ТАКУ НАПИСАЛ НО СИНУС СЧИТАЕТ НЕПРАВИЛЬНО В ЧЁМ ОШИБКА.ПОМОГИТЕ ЛЮДИ ДОБРЫЕ.
подскажите пожалуйста как составить программу аналогичной этой только чтобы там вычислялась сумма отрицательных значений cos(fi) на интервале [a,b] с заданным шагом.
|
|
|
|
Что именно не выходит?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите народ плиз, такое задание:
Ввести с клавиатуры целочисленную квадратную матрицу размера 4 х 4. Найти строки с минимальной суммой элементов.
Нашел здесь только похожее решение,для максимума, можете помоч?
var
a:array[1..4,1..4]of integer;
i,j,stroka,summa,max:integer;
begin
stroka:=0;summa:=0;max:=low(max);
for i:=1 to 4 do begin
for j:=1 to 4 do begin
read(a[i,j]);
summa:=summa+a[i,j];end;
if summa>max then begin max:=summa;stroka:=i;end;
summa:=0;
end;
writeln(stroka);
writeln(max);
end.
|
|
|
|
max:=high(max);
if summa<max then begin max:=summa;stroka:=i;end;
И будет работать)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите пожалуйста составить программу решения задач на языке Pascal и создать блок-схемы решения.:Отрезок на плоскости задается двумя не совпадающими концевыми точками X(x1,x2) и Y(y1,y2). Из точки Z(z1,z2) к прямой, содержащей отрезок [X,Y], проводится перпендикуляр P.
Определить, попадает ли перпендикуляр P на отрезок [X,Y] или на его продолжение.
|
|
|
|
Помогите решить задачи по тему STRING
1. Введите строку. Удалить все пробелы между первым и вторым вопросительным знаком.
2. Введите строку. Вывести самое короткое слово,заканчивающейся на букву "я". Найти их кол-во.
Помогите,ребят!плиииииз!
|
|
|
|
Помогите...
Ввести с клавиатуры целочисленную квадратную матрицу размера 4 х 4. Найти строки с минимальной суммой элементов.
|
|
|
|
здравствуйте!!
помогите с задачкой:)
задача:Дан вектор А из вещественных чисел преобразовать этот вектор так, чтобы сначала были расположены все отрицательные, а затем все положительные компоненты в порядке их следования.
№ 520 | Автор: leisanka |
2012-05-27, 20:47 | Изменено: leisanka - Вс, 2012-05-27, 21:04
|
Репутация: [ + 0 ]
|
|
|
|
