Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal блок-схема https://www.cyberforum.ru/ pascal/ thread163873.html решить относитьльно х блок-схему:1 (ax+b)/(cx+d)=0 блок-схему:2: (ax+b)/(cx+d)>0	Pascal Написать программу, которая отображает следующую строку если не трудно можете еще 2 задачи решить 1)написать программу, которая отображает следующую строку ab , abc , abcd 2) написать программу, которая выводит таблицу умножения с любой цифрой
Pascal вычисление суммы С = 1 +2 +.....+ 100 pascal https://www.cyberforum.ru/ pascal/ thread163801.html привет ребята, я в паскале не шарю поэтому нужна ваша помощь , вычисление суммы S = 1 +2 +.....+ 100 ( нужны 3 Программы с функциями FOR,WHILE,REPEAT) зарание спасибо	Pascal составить блок схему на данную программу uses crt; const n=10; var a:array of integer; i,c,max,imax,k,p:integer; begin ClrScr; Randomize; for i:=1 to n do begin a:=random(20)-10; https://www.cyberforum.ru/ pascal/ thread163780.html
Pascal Произведения элементов массива расположенных после максимального по модулю элемента В одномерном массиве состоящем из n элементов вычислить: 1. Количество элементов массива, больших С 2. Произведения элементов массива расположенных после максимального по модулю элемента	Pascal Что значит var в параметрах функции Что значит var в парнаметрах функции, для чего она там? и что изменится если убрать var? function name (var a:integer) { } https://www.cyberforum.ru/ pascal/ thread163750.html
Pascal Вывести все простые делители числа. Дали задачу не знаю как решать.Дано число n.Вывести все его простые делители. https://www.cyberforum.ru/ pascal/ thread163740.html	массивы составить блок схему Pascal В одномерном массиве состоящем из n элементов вычислить: 1. Количество элементов массива, больших С 2. Произведения элементов массива расположенных после максимального по модулю элемента
Pascal Работа с Графикой https://www.cyberforum.ru/ pascal/ thread163717.html Здравствуйте. пишу прогу которая перемещает фигуры по экрану при помощи нажатия на стрелки. Движение реализуется при помощи след. алгоритма: Рисуется фигура --> закрашивается--> меняются координаты--> снова рисуется. Проблема в том что не работают функция SetFillStyle в процедуре tCircle.Hide, то есть фигура не закрашивается а при назатии на стрелку просто рисуется еще одна с другими...	Pascal Определить, является ли заданный текст арифметическим выражением Уважаемые программист(ы)! Очень прошу помочь решить еще одну задачку, условие которой звучит так: Определить, является ли заданный текст арифметическим выражением без скобок (т.е в него входят только числа и знаки операций: +,-,*,/). Заранее благодарен, но если не трудно, то расскажите, как ее решить, чтобы я допер что к чему, т.е с описанием :) https://www.cyberforum.ru/ pascal/ thread163704.html
Pascal Даны два массива. Сравнить множество их значений. Пожалуйста, помогите решить задачку, завтра сдавать. Заранее спасибо!!!! Добавлено через 7 минут 1. Даны два массива. Сравнить множество их значений 2. Дан текст, состоящий из арифметических выражений и слов. Подсчитать количество арифметических выражений не содержащих переменных и функций. Кто чем может помогите, очень прошу!	Pascal Составить рекурсивный алгоритм вычисления суммы элементов массива https://www.cyberforum.ru/ pascal/ thread163667.html Пожалуйста помогите составить алгоритм вычисления суммы элементов массива

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

06.09.2010, 15:56

Экзамен сейчас! - Pascal - Ответ 943391

06.09.2010, 15:56. Показов 1202. Ответов 2

Метки (Все метки)

Сообщение было отмечено Quades как решение

Решение

Pascal

uses crt;
const m=3;
      n=7;
var a:array[1..m,1..n] of word;
   i,j,k:byte;
begin
clrscr;
writeln('Введите по 3 стороны ',n,' треугольников:');
for i:=1 to n do
 begin
  repeat
  writeln('Треугольник ',i);
  readln(a[1,i],a[2,i],a[3,i]);
  until(a[1,i]>0)and(a[2,i]>0)and(a[3,i]>0);{длины больше 0}
 end;
clrscr;
writeln('Стороны треугольников:');
for i:=1 to m do
 begin
  write('a',i);
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
k:=0;
for i:=1 to n do
{если 2 стороны равны, а третья не равна и меньше суммы длин первых, то равнобедренный}
if((a[1,i]=a[2,i])and(a[1,i]<>a[3,i])and(a[3,i]<a[1,i]+a[2,i]))
or((a[1,i]=a[3,i])and(a[1,i]<>a[2,i])and(a[2,i]<a[1,i]+a[3,i]))
or((a[2,i]=a[3,i])and(a[2,i]<>a[1,i])and(a[1,i]<a[2,i]+a[3,i]))then k:=k+1;
write('Количество равнобедренных треугольников=',k);
readln
end.

Вернуться к обсуждению:
Экзамен сейчас! Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

06.09.2010, 15:56

Готовые ответы и решения:

Паскаль!циклы и одномерный массив. На экзамен нужно срочно.!!не могу сдать экзамен
СРОЧНО!ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ НА ЦИКЛЫ И ОДНОМЕРНЫЙ МАССИВ.ЭКЗАМЕН НЕ могу...

на экзамен...
1. Составить программу, которая организует ввод данных о совхозах: название совхоза, засеиваемая...

Экзамен
Напишите, что знаете(задания на украинском языке). Очень нада.

Пишется ли сейчас ПО на Паскале?
у меня вопрос, в 2016 кто-то будет писать это на паскале?)ну есть такие мазохисты?)

	06.09.2010, 15:56

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

06.09.2010, 15:56

Помогаю со студенческими работами здесь

Сегодня экзамен
Очень прошу, помогите!!! Мне составили программу, а я до конца не могу в ней разобраться....

Тесты на экзамен
Доброго времени суток! Правильно ли я ответил на вопросы ? 24 Фрагмент програми повинен...

Задача на экзамен
Здравствуйте, помогите пожалуйста с кодом. Задача: Сведения о выполненных работах включают:...

экзамен :( по массиву
у нас экзамен по паскалю, дали программу: Вводится массив N строк, каждая строка заканчивается...

Лабороторные к достопу на экзамен
вот сканы заданий.нужно на понедельник ,понятно не реально все сразу сделать.хоть что то а то могут...

Дана матрица. Экзамен
Ребят на экзамене сижу, решите побыстрей.. Пишите номер телефона, с меня палтос) Дана матрица...

Наверх