Модераторы: bsa
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перевод программы из Pascal на C 
:(
    Опции темы
FaRReLL
Дата 7.12.2014, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.12.2014

Репутация: нет
Всего: нет
Код

program vlad;
uses crt;
var
  flag,i,n:integer;
  a:array[1..100] of real;
begin
clrscr;
  flag:=0;
  write('Vvedite N ot 2 do 100; ');
  readln(N);
  for i:=1 to n do
    begin
      write('Vvedite ',i,'-i element: ');
      readln(a[i]);
    end;
  i:=1;
  while (i<n) and (a[i]<a[succ(i)]) do
    inc(i);
  if i=n then
    flag:=2;
  case flag of
    1:writeln('Massiv yporadochen po vozrostaniu ');
    2:writeln('Massiv yporadochen po ybivaniu');
  else
    writeln('Massiv neyporadochen. ');
  end;
readln;
end.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "C/C++: Для новичков"
JackYF
bsa

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, JackYF, bsa.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C/C++: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0878 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.