Форум программистов, компьютерный форум, киберфорум
Наши страницы

Перевод из pascal в С - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Использования шаблонов КЛАССОВ http://www.cyberforum.ru/cpp-beginners/thread112545.html
Привет!!! Кто может помочь с заданием, и его объяснить: 1).Создать шаблон класса однонаправленный список list.Определить конструкторы, деструктор, перегруженную операцию присваивания (“=”) и...
C++ Структура, бинарный файл Помогите пожалуйста сделать задачу. Описать структуру с именем AEROFLOT, которая содержит следующие поля: 1). Название пункта назначения рейса; 2). Номер рейса; 3). Тип самолета. Написать... http://www.cyberforum.ru/cpp-beginners/thread112542.html
C++ iostream vs iostream.h
Я пишу include <iostream.h> в книге написано: расширение h оно теперь для заг файлов С а не С++ заг файлы с++ без расширения. в папке includes есть и iostream.h и iostream когда подключаю...
C++ Сортировки. Требуется совет.
#include <stdio.h> #include <string.h> #include <stdlib.h> #include <time.h> void bubble(char *items, int count); void shaker(char *items, int count); void shell(char *items, int count); ...
C++ кодирование текста http://www.cyberforum.ru/cpp-beginners/thread112518.html
задачка такая: Написать программу,"шифрующую(расшифровывающею)" текст из файла указанного пользователем,путем добавления (вычитания) к (из) ASC11-коду каждого символа "пароля" в виде числа от1 до10...
C++ Ошибка при удалении элемента (STL) У меня есть вектор списков. Мне нужно во внутреннем цикле(в списке) удалить элемент. Ошибка компиляции,когда удаляю с помощью алгоритма,причем лезет куда-то в header STL. Подскажите,как нужно... подробнее

Показать сообщение отдельно
molniya07
0 / 0 / 0
Регистрация: 13.03.2010
Сообщений: 10

Перевод из pascal в С - C++

04.04.2010, 14:25. Просмотров 505. Ответов 1
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program pr4_1;
uses crt;
var
     firstmaxpos, lastminpos, n, i            :integer;
     x, MAX,MIN                                     :real;
Begin
     Clrscr; 
   Write(' Сколько чисел в последовательности ? '); read(n);
    Write(' Введите первое число  ');read(x);
    MAX:= x;  FirstMaxpos := 1;
    MIN := x; LastMinPos := 1;
    For i:=2 to n do
      Begin
         Write(' Очередное число числововй последовательности ');  read(x);
          IF x > MAX THEN begin MAX:= x ; FirstMaxPos:= i     end;
          IF x <= MIN THEN begin MIN:=x ; LastMinPos:= i      end;
      End;
  Write(' MAX =' , MAX:7:3);
Writeln(';  первый по порядку max находится в позиции : ', FirstMaxPos:3);
Write( 'MIN = ', MIN:7:3);
 Writeln('; первый по порядку min находится в позиции: ', Lastminpos :3);
End.
Добавлено через 23 секунды
Помогите плизззз. очень нужно)))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru