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

массивы записей на паскале - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ С (одномерные числовые массивы) http://www.cyberforum.ru/cpp-beginners/thread121748.html
Кто может решить задачу??)) Решение надо на С Задача: Дан вектор из 5 элементов.Найти среднее арифметическое максимального и минимального элементов вектора. Формат ввода mas - вектор из 5 элементов Формат вывода
C++ C (обработка строк) Помогите пожалуйста решить задачу, вроде не сложная, но что-то не получается)). Решение надо на языке С. Задача: Дана строка(# - окончание строки).Нужно вывести наиболее часто встречающийся символ , наименее часто , и их количество . Если таких символов несколько , то вывести первый из них . Формат ввода A - исходная строка http://www.cyberforum.ru/cpp-beginners/thread121744.html
C++ Превод из 10-ричной с.с. в 16 -ричную строку
Нужно считать к примеру из файла или из строки 10-ричное число, и получить его 16-ричное представление в другой строке. Посоветуйте пожалуйста, какую нибудь стандартную функцию если таковая имеется. Заранее заготовил спасибы=)
Ввод/вывод из файла C++
Нужно написать программу на С++, которая из одного текстового файла записывает в другой текстовый файл только предложения, в которых более 4-х слов. Предложением считается набор слов, разделённых точкой (не обязательно начинается с большой буквы). Исходный файл просто где-то есть на диске, его можно вручную набить. Файл с результатом создает программа (исходник не меняем). Помогите...
C++ А для работадателя важно в какой среде прграммировать? http://www.cyberforum.ru/cpp-beginners/thread121703.html
Вообще требуют ли они чтобы программист использовал какую то определенную среду?
C++ Нужен исходник кодирования base64 Нужен исходник программы, которая кодирует текст в base64 и декодирует base64 в текст. Помогите, пожалуйста. подробнее

Показать сообщение отдельно
for_tuna
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
25.04.2010, 18:22     массивы записей на паскале
Помогите переделать с паскаля на Си,пожалуйста


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
uses crt;
const n=3;
type rec=record
      name:string;
      p1,p2,p3:byte;
      sum:integer;
     end;
var x:array[1..n] of rec;
    i:byte;
    max1,max2,max3,maxx:integer;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' P1: ');
   Readln(p1);
   Write(' P2: ');
   Readln(p2);
   Write(' P3: ');
   Readln(p3);
  end;
Writeln('Table: ');
x[i].sum:=0;
for i:=1 to n do
 x[i].sum:=x[i].sum+x[i].p1+x[i].p2+x[i].p3;
Writeln('----------------------------------');
Writeln('||  Name  | P1 | P2 | P3 || Sum ||');
Writeln('----------------------------------');
for i:=1 to n do
 Writeln('||',x[i].name:8,'|',x[i].p1:4,'|',x[i].p2:4,'|',x[i].p3:4,
         '||',x[i].sum:5,'||');
Writeln('----------------------------------');
max1:=-1;
for i:=1 to n do
 if (x[i].p1>max1) then
  max1:=x[i].p1;
max2:=-1;
for i:=1 to n do
 if (x[i].p2>max2) then
  max2:=x[i].p2;
max3:=-1;
for i:=1 to n do
 if (x[i].p3>max3) then
  max3:=x[i].p3;
maxx:=max1;
if (max2>max1) and (max2>max3) then
 maxx:=max2;
if (max3>max2) and (max3>max1) then
 maxx:=max3;
Writeln('High result: ',maxx);
Readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 01:50. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru