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

с паскаля на с++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Лабораторная работа номер 5 задание 1! Открыть файл, имя которого задается с клавиатуры. Посчитать и вывести на эк-ран количество байт в этом файле http://www.cyberforum.ru/cpp-beginners/thread998309.html
Лабораторная работа номер 5 задание 1!!!! Открыть файл, имя которого задается с клавиатуры. Посчитать и вывести на эк-ран количество байт в этом файле. !!за. быстрый ответ отблагодарю
C++ Принадлежит ли точка окружности Нужно было написать программу определяющию принадлежит ли точка окружности { setlocale(LC_ALL,"RUS"); float x, y, r; printf ( " Введите x, y, r:" ); scanf ( "%f%f%f", &x, &y, &r ); if ( x*x+y*y<=r*r ) printf ("Принадлежит"); else http://www.cyberforum.ru/cpp-beginners/thread998303.html
C++ Задача на с++. Сортировка массивов. Входные данные читать из файла!
:help: Помогите пожалуйста написать программу, по данной задаче. Дана целочисленная матрица A = {aij}, где 1≤ i ≤n; 1≤ j≤ m. Выбрать строки матрицы, среди элементов которых есть простые числа, и отсортировать их по убыванию максимальных элементов таких строк. Если таких строк в матрице нет, выдать сообщение. Заранее, огромное спасибо!!!
C++ Посчитать расстояние между точками прямой
Здравствуйте,помогите пожалуйста.даны два списка х1,х2,...-1е координаты точек Прямой и у1,у2,...- 2е координаты точек Прямой,нужно посчитать расстояние между точками ((х1,у1)и (х2,у2),(х2,у2)и (х3,у3),....)результаты забить в список. делала через d=sqrt( ((x2-x1)*(x2-x1))*((y2-y1)*(y2-y1)));но толькооо между двумя точками,а как рекурсивно это сделать и со списком не получается
C++ В Одномерном массиве http://www.cyberforum.ru/cpp-beginners/thread998298.html
Здравствуйте,учусь в институте на заочном и дали задание в С++, так как с языком не знакома, справиться не смогла...Прошу помогите. В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) Сумму положительных элементов массива; 2) Произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами. Упорядочить элементы массива по...
C++ Добавление ресурсов У меня Visual Studio Express и поэтому у меня нету встроенного редактора ресурсов. Когда я хотел дать своей программе иконку, я в Блокноте писал файл .RC и добавлял его в проект. И все работает. А тут вот открыл чужой проект и увидел в добавленных ресурсах не только .RC с указанием иконки, но и саму иконку на которую .RC ссылался. Ее тоже добавили в проект вместе с файлом ресурсов. Напишите,... подробнее

Показать сообщение отдельно
сержи
6 / 6 / 0
Регистрация: 03.07.2010
Сообщений: 222
05.11.2013, 10:09     с паскаля на с++
Всем добрый день. помогите перевести с паскаля на с++. Буду очень благодарен
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Program zarplata;
uses dos,crt,BD;
type Tbass=record
     name:string[20];
     zarplat:real;
     end;
     Tmass=array[1..100] of tbass;
var ZarpFile:file of tbass;
    work:tbass;
    vid:byte;
    end_menu:boolean;
    name:string[12];
    i,x,y:integer;
    c:char;
    h,m,s,d:word;
begin
textbackground(15);
clrscr;
textbackground(4);
window(40,21,45,22);
clrscr;
gettime(h,m,s,d);
writeln(h,':',m);
textbackground(6);
window(5,5,40,20);
clrscr;
end_menu:=false;
repeat
c:=#201;
write(c);
c:=#200;
gotoxy(1,15);write(c);
c:=#187;
gotoxy(36,1);write(c);
c:=#188;
gotoxy(36,15);write(c);
x:=2;
c:=#205;
for i:=1 to 34 do
begin
gotoxy(x,1);writeln(c);
gotoxy(x,15);writeln(c);
x:=x+1;
end;
c:=#186;
y:=2;
for i:=1 to 13 do
begin
gotoxy(1,y); writeln(c);
gotoxy(36,y); writeln(c);
y:=y+1;
end;
gotoxy(3,3); writeln('*** Blank zarplati ***');
gotoxy(3,4); writeln('1 - Sozanie novogo faila');
gotoxy(3,5); writeln('2 - Prosmotr Blanka');
gotoxy(3,6); writeln('3 - Izmenenie zapisi');
gotoxy(3,7); writeln('4 - Dopolnenie spravochnika');
gotoxy(3,8); writeln('5 - Poisk rabotnika');
gotoxy(3,9); writeln('0 - Zavershenie raboti');
gotoxy(3,10); write('Vash vibor: ');
read(Vid);
clrscr;
case vid of
1: create_blank;
2: prosmotr;
{3: updaterec;
4: addrec;
5: findfio;   }
0: end_menu:=true;
end;
gotoxy(3,12); writeln('Dlya prodolgeniz nagmite Enter');
readln;
clrscr;
until end_menu;
readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 03:23. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru