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

Сформировать файл "BOOK" из фамилий любимых писателей учеников класса (ученики по очереди вводят по три фамилиии писателей). Используя сформированный - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Написать программу на Borland C++ http://www.cyberforum.ru/cpp-beginners/thread309187.html
Даны два целочисленных массива K(m) и L(n). Найти Наибольший элемент массива K, не имеющий себе равных в массиве L Помогите пожалуйста написать, я создаю 2 массива, вывожу максимальный элемент К(m) а дальше не могу, нужно написать через функцию
C++ нужно написать программу Написать программу сравнения двух файлов, должна печататься первая строка, в которой они различаются. Если файлы идентичны – вывести сообщение. Добавлено через 58 минут ребят помогите, срочно нужно http://www.cyberforum.ru/cpp-beginners/thread309174.html
Программа под visual studio 2010 сравнение методов сортировки. C++
Написал прогу для методов сортировки используя некоторые материалы с инета, помогите с проблемой исполнения программы. Компилируется нормально, но при включении идут ошибки.... http://narod.ru/disk/14588618001/Sorting.rar.html ссылка на прогу.
C++ Сколькими способами можно отобрать команду в составе 5 человек из 8 кандидатов;из 10 кандидатов; из 11 кандидатов? Подсчет количества способов отбора
Нужна помощь, есть код на Pascal нужно в C. Вот программа: function fact(x: longint): longint; begin if x=0 then fact:=1 else fact:=x*fact(x-1); end; function C(n,k: longint): longint; begin
C++ Определить их сумму.. http://www.cyberforum.ru/cpp-beginners/thread309143.html
При решении данной задачи обязательным условием является обработка входных данных сразу после их введения. Запрещается любым способом сохранять исходные данные после введения.
C++ Вывод функции. Задание: Вывести на экран таблицу значений функции f(x) = х – 2е^x и ее первой про- изводной f (x) в диапазоне от -5 до 5. Для вычисления значений f(х) и f'(x) со- здать функции. Написал функцию, сделал вывод, но выводит какой то бред. Вот код для функции f(x) = х – 2е^x, и ее вывода. #include "stdafx.h" #include <math.h> #define _USE_MATH_DEFINES #include <iostream> #include <conio.h> подробнее

Показать сообщение отдельно
stalker.kz
0 / 0 / 0
Регистрация: 31.05.2011
Сообщений: 9

Сформировать файл "BOOK" из фамилий любимых писателей учеников класса (ученики по очереди вводят по три фамилиии писателей). Используя сформированный - C++

31.05.2011, 15:30. Просмотров 424. Ответов 0
Метки (Все метки)

Нужна помощь. Есть задача в Паскале, нужно перевести в Си. Вот задача и код.
Сформировать файл "BOOK" из фамилий любимых писателей учеников класса (ученики по очереди вводят по три фамилиии писателей). Используя сформированный файл, напечатать фамилии пяти наиболее популярных писателей.
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
uses crt;
var f:text;
    a:array[1..100] of string[20];{массив фамилий}
    b:array[1..100] of integer;{массив встречаемости}
    n,i,j,k:integer;
    x:string[20];
begin
clrscr;
assign(f,'book.txt');
rewrite(f);
write('Сколько учеников n=');
readln(n);
for i:=1 to n do
 begin
  writeln('Ученик ',i);
  for j:=1 to 3 do
   begin
    write('Писатель ',j,': ');
    readln(x);
    writeln(f,x);
   end;
 end;
close(f);
reset(f);
n:=1;
readln(f,a[1]);{читаем первую фамилию}
b[1]:=1;{1раз}
while not eof(f) do
 begin
  readln(f,x);{читаем остальные}
  {проверям были уже или нет}
  k:=0;
  i:=1;
  while(i<=n)and(k=0) do
  if x=a[i] then{если было}
   begin
    k:=i;{номер}
    b[k]:=b[k]+1;{+1}
   end
  else i:=i+1;
  if k=0 then{если не было}
   begin
    n:=n+1;{увеличим массив}
    a[n]:=x;{запишем}
   end;
 end;
close(f);
for i:=1 to n-1 do{отсортируем массивы по убыванию встречаемости}
for j:=i+1 to n do
if b[i]<b[j] then
 begin
  k:=b[i];
  b[i]:=b[j];
  b[j]:=k;
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
if n<5 then writeln('Названы менее 5 писателей');
writeln('Наиболее любимые писатели:');
if n<5 then k:=n else k:=5;
for i:=1 to k do
writeln(a[i]);
readln
end.
Заранее благодарю.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru