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

Записи

30.04.2010, 18:31. Просмотров 3963. Ответов 2
Метки нет (Все метки)

Здравствуйте! Помогите пожалуйста преобразовать код программы на паскале, в С++:

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
program Project2;
uses crt;
 
type
tv=record
mark: string[10];
st:real;
mag:string[40];
sk:byte;
end;
 
var
  spisok:array[1..100] of tv;
  n,i,k:integer;
  min,a:real;
begin
  writeln('Начало');
  writeln('введите количество телевизоров');
  readln(n);
  For i:=1 to n do
   begin
    write('введите марку телевизора: ');  readln(spisok[i].mark);
    write('Стоимость: ');         readln(spisok[i].st);
    write('Название магазина: ');   readln(spisok[i].mag);
    write('Скидка: ');     readln(spisok[i].sk);
   end;
 
    min:=spisok[1].st*(1-spisok[1].sk/100); k:=1;
 
    for i:=2 to n do
    begin
    a := spisok[i].st*(1-spisok[i].sk/100);
     if a < min then   begin
      min:=a; k:=i;         end;  end;
      Writeln('самый дешёвый телевизор - ', spisok[k].mark, ' ,его стоимость с учётом процента = ',min);
 
readln;
 
end.
Добавлено через 7 минут
Извиняюсь, если поместила задание не в тот раздел...
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2010, 18:31
Ответы с готовыми решениями:

Написать функции для чтения/записи отдельных бит для любой записи из данного набора
Начиная с адреса А в памяти МК находятся N записей длиной k бит каждая. Записи выровнены по границе...

Есть в записи числа m цифры, которые совпадают с цифрами в записи числа n
Дано два натуральных числа n(&lt;=9999) и m (&lt;=9999). Проверить, есть в записи числа m цифры, которые...

Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n
Помогите составить программу. Условие: Даны два натуральных числа m и n{m&lt; 9999, n &lt; 9999)....

Записи в С++
Здравствуйте, гуру...я вновь прошу о помощи, надеясь на нее... Задача: Составить программу,...

2
4335 / 1467 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
30.04.2010, 18:38 2
Лучший ответ Сообщение было отмечено LadyFlame как решение

Решение

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#include <iostream>
 
using namespace std;
 
struct TV
{
    char marka[10];
    double cena;
    char mag[40];
    int skidka;
};
 
int main()
{
    int N;
    cout << "Введите кол-во телевизоров -> ";
    cin >> N;
    cin.get();
    TV* spisok = new TV[N];
 
    for (int i = 0; i < N; i++)
    {
        cout << "Телевизор #" << i+1 << endl;
        cout << "Марка -> ";
        cin.getline(spisok[i].marka,10);
        cout << "Стоимость -> ";
        cin >> spisok[i].cena;
        cin.get();
        cout << "Название магазина -> ";
        cin.getline(spisok[i].mag,10);
        cout << "Скидка -> ";
        cin >> spisok[i].skidka;
        cin.get();
    }
 
    double min = spisok[0].cena * (1 - spisok[0].skidka/100.0);
    int k = 0;
    double a;
    for (int i = 1; i < N; i++)
    {
        a = spisok[i].cena * (1 - spisok[i].skidka/100.0);
        if (a < min)
        {
            min = a;
            k = i;
        }
    }
    cout << "Самый дешёвый телевизор: " << spisok[k].marka << " ,его стоимость со скидкой " << min << endl;
    return 0;
}
1
0 / 0 / 0
Регистрация: 28.04.2010
Сообщений: 14
30.04.2010, 18:53  [ТС] 3
Спасибо огромное за оказанную помощь! Очень-очень благодарна!!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2010, 18:53

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

Записи
А. Описать запись с именем AEROFLOT, содержащую следующие поля: -Название пункта рейса -Номер...

записи
Всем привет! Помогите, пожалуйста, решить задачу на С++ В памяти машины хранятся записи,...

Записи, с паскаля на с++
Вечер добрый, на учёбе начали юзать плюсы, задание с Паскаля нужно переделать под с++, написал, ...

Структуры (Записи)
Такое вот &quot;дурацкое&quot; условие,(правда понятное, пример с програмкой постараюсь написать и вывести, а...


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

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

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