Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2018, 13:00   #1
USovA
Новичок
Джуниор
 
Регистрация: 20.10.2018
Сообщений: 2
По умолчанию Очень нужна помощь в переводе с Паскаля на СИ/C++

const N = 10;
var
arr: array[1..N] of byte;
i, k: byte;
begin
randomize;
for i:=1 to N do begin
arr[i] := random(80);
write(arr[i]:3);
end;
writeln;

for i:=1 to N-1 do
for k:=i+1 to N do
if arr[i] = arr[k] then begin
writeln('Есть одинаковые элементы');
exit;
end;
writeln('Все элементы уникальны');
end.
USovA вне форума Ответить с цитированием
Старый 20.10.2018, 13:30   #2
jura_k
gamer
Участник клуба
 
Аватар для jura_k
 
Регистрация: 09.05.2015
Сообщений: 1,529
По умолчанию

Код:
#include <stdlib.h>
#include <time.h>
#define N 10
char array [N + 1];
char i, k;

void main ()
{
   randomize ();
   for (i = 1; i <= N; i++)
   {
      array [i] = random (80);
      printf ("%-3i", array [i]);
   }

   printf ("\n");

   for (i = 1; i < N; i++)
      for (k = i + 1; k <= N; k++)
         if (array [i] == array [k]) {printf ("Есть одинаковые элементы.\n"); return;}

   printf ("Все элементы уникальны.\n");
}
мой канал на Ютубе: youtube.com/@games-zz3ju/videos/
мой канал на Рутубе: rutube.ru/channel/31423139/videos/
В ожидании Кеши...
jura_k вне форума Ответить с цитированием
Старый 21.10.2018, 18:39   #3
jura_k
gamer
Участник клуба
 
Аватар для jura_k
 
Регистрация: 09.05.2015
Сообщений: 1,529
По умолчанию

А где спасибо от Сбербанка?
мой канал на Ютубе: youtube.com/@games-zz3ju/videos/
мой канал на Рутубе: rutube.ru/channel/31423139/videos/
В ожидании Кеши...
jura_k вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь в переводе кода с CИ на C# Uncontrol21 C# (си шарп) 0 20.05.2017 18:50
Нужна помощь в переводе скрипта на C# stationfuk C# (си шарп) 0 09.11.2013 23:06
Очень нужна помощь c матрицами, макросами в Excel. Заранее благодарен(поверьте, очень-очень нужна помощь) Farridjan Помощь студентам 1 03.07.2009 12:24
Очень нужна помощь! Нужно найти ошибку в очень простой программе. Lex55555777 Помощь студентам 3 07.12.2008 20:32
Очень нужна помощь в переводе символов в ASCII и обратно !!!~VivO~!!! Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 05.05.2008 10:47