Форум программистов, компьютерный форум, киберфорум
C для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 28.10.2019
Сообщений: 3
1

Переведите с Паскаля на Си пожалуйста

28.10.2019, 18:34. Просмотров 304. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Var
*ar:array[1..10] of integer;
*i,n,k:integer;
*b:boolean;
begin
randomize;
*k:=1;
*b:=false;
*writeln('Array');
*for i:=1 to 10 do
* begin
* *ar[i]:=random(-10,10);
* *write(ar[i]:4);
* end;
writeln;
readln(n);
*for i:=10 downto 10-n+1 do
*if ar[i]>0 then
*begin
*k:=k*ar[i];
*b:=true;
*end;
if b=true then write('Res=',k) else write('Res=0');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2019, 18:34
Ответы с готовыми решениями:

переведите с Паскаля на си++ пожалуйста!
Дано имя файла и целое число N (0 < N < 27). Создать текстовый файл с указанным именем и записать в...

Переведите, пожалуйста, с паскаля на C++
type Person = record Surname, Name, Adress, ...

Переведите пожалуйста из Паскаля в с#
uses crt; const max=100; type mas =array of integer; //функция бинарного поиска элемента в...

переведите с паскаля на с++.пожалуйста
uses crt; var i,j,n,k:integer; a:array of byte; begin Write ('Введите n='); Readln(n);...

1
1113 / 679 / 460
Регистрация: 25.04.2016
Сообщений: 1,906
28.10.2019, 20:55 2
строка 12 должно быть ar[i]:=random(21)-10;

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
27
28
#include <time.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>
 
int main (void)
{
    srand((unsigned int)time(NULL)/2);
    int ar[10];
    int i, n, k=1;
    bool b = false;
 
    printf("Array\n");
    for (i=0; i<10; i++)
        printf("%4d", ar[i] = rand()%21-10);
    printf("\n");
 
    scanf("%d", &n);
    for (i=9; i>9-n; i--)
        if (ar[i]>0)
        {
            k *= ar[i];
            b = true;
        }
    printf("Res=%d\n", b?k:0);
 
    return 0;
}
0
Миниатюры
Переведите с Паскаля на Си пожалуйста  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2019, 20:55

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

переведите с Паскаля на си++ пожалуйста!
в Паскале получается...а в СИ++ нет( procedure Mean(x,y:real; var AMean,GMean:real); begin...

Переведите пожалуйста с паскаля на с++
var i,j: integer; function lol(x: integer): integer; var i,k: integer; begin k:=0; for i:=1...

Переведите пожалуйста код с Паскаля на СИ++
Помогите перенести код на СИ++... До этого не приходилось работать с паскалем( program pokrytie;...

Переведите пожалуйста с паскаля на ДЕЛФИ
const n=20;m=30; type mas=array of real; var a:mas; i,j,k:integer; function...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.