Форум программистов, компьютерный форум CyberForum.ru

Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ) - C++

Восстановить пароль Регистрация
 
Татиана
1 / 1 / 0
Регистрация: 13.12.2012
Сообщений: 94
06.11.2013, 10:16     Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ) #1
Помогите перевести из языка Pascal в СИ:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var 
a: array[1..24] of integer
max,min,i,k:integer;
begin
max:= a[1];
min:= a[1];
for i:= 1 to 24 do begin
 k:= k + a[i];
 if a[i] > max then
  max:= a[i];
 if a[i] < min then
  min:= a[i];
end;
k:= k div 24;
writeln(max,min,k);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.11.2013, 10:16     Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ)
Посмотрите здесь:

C++ Удалить минимальный и максимальный элементы массива
Удалить минимальный и максимальный элементы массива C++
C++ Поменять минимальный и максимальный элементы массива
C++ Поменять местами минимальный и максимальный элементы массива
Найти минимальный и максимальный элементы массива и упорядочить элементы по убыванию, стоящие между ними, методом «пузырька». C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Sonance
6 / 6 / 3
Регистрация: 15.02.2013
Сообщений: 55
06.11.2013, 10:55     Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ) #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#include <stdio.h>
#include <stdlib.h>
#include <iostream>
#include <conio.h>
 
 
using namespace std;
 
int main(){
    int a[23], max(0), min(0), i(0), k(0);
    for(i = 0; i <= 23; i++){
        k = k + a[i];
        if (a[i] > max){
            max = a[i];
        }
        if (a[i] < min){
            min = a[i];
        }
 
    }
    k = div (k,24);
    cout << max << min << k;
getch();
return 0;   
}
Могут быть ошибки, компилятора сейчас под рукой нет.
SatanaXIII
Супер-модератор
Эксперт С++
 Аватар для SatanaXIII
5549 / 2563 / 233
Регистрация: 01.11.2011
Сообщений: 6,334
Завершенные тесты: 1
06.11.2013, 11:37     Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ) #3
Цитата Сообщение от Sonance Посмотреть сообщение
k = div (k,24);
div в паскале это остаток от деления:
C++
1
k = k % 24;
Добавлено через 31 минуту
Цитата Сообщение от SatanaXIII Посмотреть сообщение
div в паскале это остаток от деления
Обманул я вас. Это div это наоборот получение целой части от деления:
C++
1
k = k / 24;
А вот mod паскале это получение остатка.
Erondondon
0 / 0 / 0
Регистрация: 12.01.2014
Сообщений: 13
12.01.2014, 17:05     Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ) #4
Добрый день помогите с переводом с паскаля в си
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const st='SINUS';
Var s:string;
    k,i,j:byte;
Begin
    write('Введите строку: ');readln(s);
    j:=0;
    k:=Pos('!',s);
    if k>0 then 
    Begin
      For i:=1 to k-1 do
       if Pos(s[i],st)>0 then j:=1;
      writeln(j=1);
    End
    else writeln('Нету "!"');
    readln;
End.
SatanaXIII
Супер-модератор
Эксперт С++
 Аватар для SatanaXIII
5549 / 2563 / 233
Регистрация: 01.11.2011
Сообщений: 6,334
Завершенные тесты: 1
14.01.2014, 10:13     Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ) #5
Erondondon, в логику программы так и не въехал, но вот какая-то хрень.
(кстати лучше создавать отдельную тему)
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#include <iostream.h>
#include <string.h>
 
int main()
{
 
const char st[] = "SINUS";
string s;
char k, i, j;
 
    cout << "Введите строку: "; cin >> s;
    j = 0;
    k = s.find( '!' );
    if( k >= 0 )
      {
      for( i=0; i<=k; i++ )
       if( strchr( st, s[i] ) > 0 )
         j = 1;
      cout << (int)(j=1);
      }
    else cout << "Нету \"!\"";
    cin.ignore(2);
 
 
return 0;
}
Kuzia domovenok
 Аватар для Kuzia domovenok
1883 / 1738 / 116
Регистрация: 25.03.2012
Сообщений: 5,907
Записей в блоге: 1
05.10.2015, 13:13     Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ) #6
Цитата Сообщение от Sonance Посмотреть сообщение
C++
1
2
int a[23], max(0), min(0), i(0), k(0); 
for(i = 0; i <= 23; i++){
выход за пределы массива
Yandex
Объявления
05.10.2015, 13:13     Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ)
Ответ Создать тему
Опции темы

Текущее время: 17:28. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru