Seo Форум Smo советы Дорвеи |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Seo Форум Smo советы Дорвеи » Turbo Pascal 7.0 Delphi7 » Решение задач на turbo pascal , турбо паскаль, решебник по информатике
Решаю задачу на турбо паскале 10-11 класса.
Даже гости могут написать пост. Если я на сайте решаю , если нет то когда зайду !!! Так что бесполезно писать пожалуйста или подобные им просьбы
PS Если не смогу решить , то не надо ругаться матом ,я такой же человек что и вы , а не какой нибудь хакер или ему подобное
главное суть))) а не как нарисованно)))
Программа вычисляющая S= ∑_(i-1)^20▒i^2
главное суть))) а не как нарисованно)))
что там уж так на мудрено , одно единственное условие
Программа вычисляющая S= ∑_(i-1)^20▒i^2
▒ - что это ?
Вычислить
20
S= ∑ i^2
(i-1)
Найти максимальный отрицательный элемент.Помогите пожалуйста.
Найти максимальный отрицательный элемент.Помогите пожалуйста.
где в массиве
Найти максимальный отрицательный элемент.Помогите пожалуйста.
Мда не плохая задачка
PS У меня чудное решение задачки , но программа работает
var i,min:integer; a:array[1..20] of integer;
begin
for i:=1 to 5 do
read(a[i]);
min:=0;{для проверки присваиваем 0 }
for i:=1 to 5 do
if ((a[i]<a[i+1]) and (a[i] < 0)) then min:=a[i]; {ищем отриц элемент}
for i:=1 to 5 do
if a[i]<min then min:=a[i]; {ищем наименьший элемент}
if min=0 then begin write('с*ка нет отриц. элемента');readln; exit; end; {если не нашли отрицитальный элемент }
writeln(min) ;
readln;
end.
Спасибо за быстрый отклик.
а какие блок схемы для этих задач?
Задачка какая то левая , если не будет числа меньше -50 , она ничего не будет выводить
var i:integer; a:array[1..20] of integer;
begin
for i:=1 to 20 do
read(a[i]);
for i:=1 to 20 do
if a[i]<-50 then begin writeln(a[i]); exit; readln; end;
readln;
end.
Найти наименьший элемент матрицы размером m×n.
var i,j,min:integer; a:array[1..5,1..5] of integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
min:=a[1,1];
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j]<min then min:=a[i,j];
writeln(min);
readln;
end.
Денис
шутишь что ли. Что тут сложного то
да правда хз как их сделать)?
Дана произвольная последовательность чисел a1,a2,..,a15. Найти среди
элементов два числа, модуль разности которых имеет наибольшее
значение.
а как эту делать?
а вы поможете решить задачу или нет?
Типо так , мы находим максимальный и минимальный элемент по модулю
PS Не помню как модуль пишется на языке паскаля abc или abs , так как давно с модулями не работал.
var a:array[1..15] of integer; max,min,i:integer
begin
for i:=1 to 15 do
read(a[i]);
for i:=1 to 15 do
if abs([a[i])<abs(a[i+1]) then max:=abs(a[i]);
for i:=1 to 15 do
if abs(a[i]<a[i+1] then min:=abs(a[i]);
writeln(max);
writeln(min);
readln;
end;
спасибо, а если людям кинуть ваш сайт вы не против будете , мне кажется многие нуждаются в этой помощи?
спасибо, а если людям кинуть ваш сайт вы не против будете , мне кажется многие нуждаются в этой помощи?
да нет конечно же , только я вот не уверен что правильно решаю задачки ...
Вводится символ. Если этот символ равен "***", то вывести "Осадки в виде снега". Если- ":::", то- "Осадки в виде дождя". В остальных случаях- "Безоблачно".
здравствуйте, помогите решить вот такую задачу:
Составить на рисунке связанный граф автомобильных дорог какой-либо известной Вам области (можно выдуманный) с указанием расстояний между населенными пунктами
РЕАЛИЗОВАТЬ НА ЯЗЫКЕ TURBO PASCAL АЛГОРИТМ ПОИСКА КРАТЧАЙШЕГО РАССТОЯНИЯ МЕЖДУ ДВУМЯ ВЫБРАННЫМИ ПУНКТАМИ ДЛЯ ВАШЕГО ГРАФА
Вводится символ. Если этот символ равен "***", то вывести "Осадки в виде снега". Если- ":::", то- "Осадки в виде дождя". В остальных случаях- "Безоблачно".
program lol;
var s:string;
begin
writeln('s-?');
readln(s);
if s='***' then writeln('Осадки в виде снега');
if s=':::' then writeln('Осадки в виде дождя') else writeln('Безоблачно');
readln;
end.
здравствуйте, помогите решить вот такую задачу:
Составить на рисунке связанный граф автомобильных дорог какой-либо известной Вам области (можно выдуманный) с указанием расстояний между населенными пунктами
РЕАЛИЗОВАТЬ НА ЯЗЫКЕ TURBO PASCAL АЛГОРИТМ ПОИСКА КРАТЧАЙШЕГО РАССТОЯНИЯ МЕЖДУ ДВУМЯ ВЫБРАННЫМИ ПУНКТАМИ ДЛЯ ВАШЕГО ГРАФА
это когда вам надо , что то я ничего не помню про граффику надо будет повторить
В течении 10 дней.
Заданная матрица A( n, m ) в каждом столбце которой минимальный элемент нужно заменить суммой положительных элементов этого столбца.
Здравствуйте, помогите пожалуйста)
Массивы. Алгоритмы обработки массивов
В заданном массиве Y(M,N), где M<=9,N<=7, найти сумму частных от деления каждого элемента на последующий элемент каждого столбца:
Y1j/2j+Y2j/Y3j+...+Ym-1,j/Ymj, j=1,n.
Найти максимальную и минимальную сумму, номера их столбцов.
Исходный массив и результаты вывести на печать с соответствующим заголовком.
Как это делать? Дал задание слова не сказал, при сем это первое, там ещё и второе похлеще, напишите пожалуйста с пояснением!!!)
{X^2+4X+7, X<2
{1/X^2+4X+7, X>2
РЕБЯТКИ КТО СМОЖЕТ РЕШИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НАДО!
Заданная матрица A( n, m ) в каждом столбце которой минимальный элемент нужно заменить суммой положительных элементов этого столбца.
Вроде так , проверяйте !!!
......
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for j:=1 to n do begin
for i:=1 to n do begin
if a[j,i]<a[j,i+1] then begin imin:=i; jmin:=j
if a[j,i]>0 then sum:=sum+a[j,i];
end;
a[jmin,imin]:=sum;
Здравствуйте, помогите пожалуйста)
Массивы. Алгоритмы обработки массивов
В заданном массиве Y(M,N), где M<=9,N<=7, найти сумму частных от деления каждого элемента на последующий элемент каждого столбца:
Y1j/2j+Y2j/Y3j+...+Ym-1,j/Ymj, j=1,n.
Найти максимальную и минимальную сумму, номера их столбцов.
Исходный массив и результаты вывести на печать с соответствующим заголовком.Как это делать? Дал задание слова не сказал, при сем это первое, там ещё и второе похлеще, напишите пожалуйста с пояснением!!!)
В реале какая то жопа ))) Хоть бы пример , и то в с4 на егэ с примером.
{X^2+4X+7, X<2
{1/X^2+4X+7, X>2
РЕБЯТКИ КТО СМОЖЕТ РЕШИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НАДО!
Что с ними нужно делать , ты хоть по подробнее опиши. Это системка ???
нужно составить прогу в турбо паскаль с операторами иф и then
да, система
.....
begin
writeln(x);
if x<2 then write(x*x-4*x+7);
if x>2 then write(1/x*x+4*x+7);
readln;
end.
Блиин примера нет, просто задание дано такое и всё. Я и сам не понимаю с чего и как начинать((
Seo спс большое!
а не можешь решить вот эту:
x^2+y^2+3,1/1-x^2-y^2 + x+y/sqrt(1-x) где заданы х=3,2, у=-2,24
очень поможешь если решишь!
Вы здесь » Seo Форум Smo советы Дорвеи » Turbo Pascal 7.0 Delphi7 » Решение задач на turbo pascal , турбо паскаль, решебник по информатике