С Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы

Чистый - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Непонятка при записи в текстовой файл http://www.cyberforum.ru/cpp-beginners/thread513591.html
Есть несколько строковых переменных, которые нужно вывести в текстовой файл так, чтобы в файле их значения разделял бы служебный символ с кодом 10. Проблема в том, что перед служебным символом с...
C++ Массив записей. Перевод кода с паскаля на чистый С. Задача написана под паскаль! Знающим людям прошу,помогите написать ее на Borland C:(чистый С)program lab17_1; uses crt; type baza=record name:string; sename:string; group:string; ser_bal:real;... http://www.cyberforum.ru/cpp-beginners/thread513587.html
При выводе массива выводятся лишние непонятные символы C++
Имеется массив vord из 10 символов. Ввожу несколько символов(например 4 символа) в этот массив. Определяю их количество - count. Создаю динамический массив new_vord размерности count и затем...
Описать структуру с именем AEROFLOT C++
1. Описать структуру с именем AEROFLOT, содержащую следующие поля: - название пункта назначения рейса; - номер рейса; - тип самолета. 2. Написать программу, выполняющую следующие действия: -...
C++ Написать программу ввода произвольных символов до тех пор, пока не будет введен символ q http://www.cyberforum.ru/cpp-beginners/thread513560.html
Написать программу ввода произвольных символов до тех пор, пока не будет введен символ q
C++ Вычислить f (x) = kx + b , при x = 1,2,...,100с использованием оператора while Вычислить f (x) = kx + b , при x = 1,2,...,100с использованием оператора while подробнее

Показать сообщение отдельно
Fobos1994
4 / 4 / 0
Регистрация: 15.04.2011
Сообщений: 274

Чистый - C++

06.03.2012, 20:58. Просмотров 276. Ответов 0
Метки (Все метки)

Помогите пожалуйста,нужно перевести с паскаля на читсый С!
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
program lab_17;
uses crt;
type procesor=record
     procesor:string[25];
     Takchast:string[20];
     Cina:string[15];
  end;
var baza:array [1..5] of procesor;
    i:byte;
    k:string;
begin
clrscr
;for i:=1 to 5 do
with baza [i] do
begin
write('Vvedite nazvanie procesora:');
readln(procesor);
write('Vvedite taktovuyu 4astotu procesora:');
readln(Takchast);
write('Vvedite cenu procesora:');
readln(Cina);
clrscr;
end;
for i:=1 to 5 do
with baza [i] do
begin
writeln(procesor,'   ',Takchast,'   ',Cina);
end;
writeln('Vvedite nazvanie procesora:');
readln(k);
for i:=1 to 5 do
with baza [i] do
if procesor=k then
writeln(procesor,'   ',Cina);
readkey;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.