НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММЫ НА ПАСКАЛЕ .ЧЕРЕЗ ФУНКЦИЮ ИЛИ ПРОЦЕДУРУ!

@Артём10 · Регистрация: 23.01.2013

Author24 — интернет-сервис помощи студентам

РЕШИТЕ ПОЖАЛУЙСТА !!!!!!!!!! ЗАВТРА КОНТРОЛЬНАЯ ПО ЭТИМ ЗАДАЧАМ!!!!!!!!

ПРОШУ СИЛЬНО!!!!!!! ХОТЯ БЫ ЧТО НИБУДЬ ИЗ ЭТИХ!!!!!
ЗАРАНЕЕ СПАСИБО!!!

3. Даны три целых числа. Определить, могут ли они являться длинами сторон треугольника.
4. С клавиатуры вводятся 7 целых чисел. Вычислить количество отрицательных членов этой последовательности.
5. Дано целое трѐхзначное число. Определить, является ли сумма его цифр двузначным числом.
6. Вычислить сумму первых n натуральных чисел.
7. Вычислить значение выражения 2n.
8. Написать таблицу значений функции y =корень из х (+1 не под корнем) для значений x от 0 до 10 с шагом 1.
9. Написать таблицу перевода расстояний из дюймов в сантиметры для значений от 1 дюйма до 15 дюймов с шагом 1.
10. Определить, принадлежит ли точка с заданными координатами графику функции у=0,5 корень из х квадрат + 1.
11. Определить, лежит ли точка с данными координатами внутри круга с заданным центром и заданным радиусом.
12. Определить количество цифр в натуральном числе N.
13. Даны две строки. Сравнить их длины и «обрубить» бóльшую из них до размеров меньшей.
14. Задано 5 целых чисел. Необходимо найти среди них максимальное.

@code-n'-help · 24.01.2014, 23:58

а вы массивы учили или только иф,зен елсе или цыклы?

Добавлено через 5 минут
Num 3.

Pascal

var a,b,c;
begin 
read(a,b,c);
if (a>=b+c) or (b>a+c) or (c>a+b)
then writeln('Ne mogut')
else writeln('Mogut');
end.

Добавлено через 5 минут
а вы массивы учили или только иф,зен елсе или цыклы?

Добавлено через 5 минут
Num 3

Pascal

Procedure num3(a,b,c:word);
begin 
read(a,b,c);
if (a>=b+c) or (b>a+c) or (c>a+b)
then writeln('Ne mogut')
else writeln('Mogut');
end.

num 4

Pascal

Procedure num4(a,b,c,d,e,f,g:int64);
var conter:byte;
begin
read(a,b,c,d,e,f,g);
if a<0 then inc(counter);
if b<0 then inc(counter);
if c<0 then inc(counter);
if d<0 then inc(counter);
if e<0 then inc(counter);
if f<0 then inc(counter);
if g<0 then inc(counter);
writeln('kolichestvoelemov:',counter);
end;
for i:=1 to 7 do

@Артём10 · 25.01.2014, 00:39 **[ТС]**

спасибо ....но еще бы другие решить

Добавлено через 16 секунд
и вот эти реши пжл!
Три сопротивления соединены параллельно. Вычислить общее сопротивление.
9. Определить время падения камня с некоторой заданной высоты.
10. Дана сторона равностороннего треугольника. Вычислить его периметр и площадь.
11. Даны координаты двух точек. Определить длину отрезка с концами в этих точках.
12. Дано натуральное число x. Определить значение выражения
13. Дано слово «информатика». Получить из него слово «формат».
14. Даны два слова. Объединить их в словосочетание и определить количество букв в нѐм.

Добавлено через 20 секунд
8.Три сопротивления соединены параллельно. Вычислить общее сопротивление.
9. Определить время падения камня с некоторой заданной высоты.
10. Дана сторона равностороннего треугольника. Вычислить его периметр и площадь.
11. Даны координаты двух точек. Определить длину отрезка с концами в этих точках.
12. Дано натуральное число x. Определить значение выражения
13. Дано слово «информатика». Получить из него слово «формат».
14. Даны два слова. Объединить их в словосочетание и определить количество букв в нѐм.

Добавлено через 15 секунд
вот....спасибо заранее

KOPOJI · 25.01.2014, 00:41

Комментарий модератора

Перечитайте уже правила форума, пора.
Один вопрос - одна тема.
Заголовок темы должен быть осмысленным и отражать суть вопроса.
Закрыто.

@Артём10 1 / 1 / 0 Регистрация: 23.01.2013 Сообщений: 88
		1
	НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММЫ НА ПАСКАЛЕ .ЧЕРЕЗ ФУНКЦИЮ ИЛИ ПРОЦЕДУРУ! 24.01.2014, 23:38. Показов 1095. Ответов 3 Метки нет (Все метки) РЕШИТЕ ПОЖАЛУЙСТА !!!!!!!!!! ЗАВТРА КОНТРОЛЬНАЯ ПО ЭТИМ ЗАДАЧАМ!!!!!!!! ПРОШУ СИЛЬНО!!!!!!! ХОТЯ БЫ ЧТО НИБУДЬ ИЗ ЭТИХ!!!!! ЗАРАНЕЕ СПАСИБО!!! 3. Даны три целых числа. Определить, могут ли они являться длинами сторон треугольника. 4. С клавиатуры вводятся 7 целых чисел. Вычислить количество отрицательных членов этой последовательности. 5. Дано целое трѐхзначное число. Определить, является ли сумма его цифр двузначным числом. 6. Вычислить сумму первых n натуральных чисел. 7. Вычислить значение выражения 2n. 8. Написать таблицу значений функции y =корень из х (+1 не под корнем) для значений x от 0 до 10 с шагом 1. 9. Написать таблицу перевода расстояний из дюймов в сантиметры для значений от 1 дюйма до 15 дюймов с шагом 1. 10. Определить, принадлежит ли точка с заданными координатами графику функции у=0,5 корень из х квадрат + 1. 11. Определить, лежит ли точка с данными координатами внутри круга с заданным центром и заданным радиусом. 12. Определить количество цифр в натуральном числе N. 13. Даны две строки. Сравнить их длины и «обрубить» бóльшую из них до размеров меньшей. 14. Задано 5 целых чисел. Необходимо найти среди них максимальное. 0

@Артём10 1 / 1 / 0 Регистрация: 23.01.2013 Сообщений: 88
	25.01.2014, 00:39 [ТС]	3
	спасибо ....но еще бы другие решить Добавлено через 16 секунд и вот эти реши пжл! Три сопротивления соединены параллельно. Вычислить общее сопротивление. 9. Определить время падения камня с некоторой заданной высоты. 10. Дана сторона равностороннего треугольника. Вычислить его периметр и площадь. 11. Даны координаты двух точек. Определить длину отрезка с концами в этих точках. 12. Дано натуральное число x. Определить значение выражения 13. Дано слово «информатика». Получить из него слово «формат». 14. Даны два слова. Объединить их в словосочетание и определить количество букв в нѐм. Добавлено через 20 секунд 8.Три сопротивления соединены параллельно. Вычислить общее сопротивление. 9. Определить время падения камня с некоторой заданной высоты. 10. Дана сторона равностороннего треугольника. Вычислить его периметр и площадь. 11. Даны координаты двух точек. Определить длину отрезка с концами в этих точках. 12. Дано натуральное число x. Определить значение выражения 13. Дано слово «информатика». Получить из него слово «формат». 14. Даны два слова. Объединить их в словосочетание и определить количество букв в нѐм. Добавлено через 15 секунд вот....спасибо заранее 0

	25.01.2014, 00:41

Опции темы