Важная информация
Показано с 1 по 2 из 2

Тема: Help! Кто может помочь перевести программу из паскаля в вижуал бэйсик?

  1. #1 Help! Кто может помочь перевести программу из паскаля в вижуал бэйсик? 
    Новичок
    Регистрация
    12.09.2015
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    var x,m,n,s,p,z: real;
    i:=1;
    begin
    writeln('Введите сумму выплаты для 3 работников');
    readln(p);
    while i<4 do
    begin
    WriteLn('Оцените ',i,' работника = ');
    readln(x);
    if i=1 then m:= x;
    if i=2 then n:= x;
    if i=3 then s:= x;
    i:=i+1;
    end;
    z:=m+n+s;
    m:=m/z;
    n:=n/z;
    s:=s/z;

    Writeln('з/p 1-го = ', m*p);
    Writeln('з/p 2-го = ', n*p);
    Writeln('з/p 3-го = ', s*p);
    end.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,931
    Сказал(а) спасибо
    1,842
    Поблагодарили 982 раз(а) в 840 сообщениях
    Записей в блоге
    1
    А что сложного? Там, где пользовательский ввод, т.е. :
    Pascal Code:
    1. WriteLn('Оцените ',i,' работника = ');
    2. readln(x);

    Заводите отдельную форму для ввода и в коде основной формы пишете что-то типа
    VB Code:
    1. Form2.Show

    На форму ввода помещаете текстбокс и кнопку "ok". То, что пользователь введёт в текстбокс
    проверяете на то, что это число и отправляете например в переменную x (для кода выше).
    Во всём остальном, убираете begin, end. , там где := ставите просто =, убираете все ;.
    Заместо
    Pascal Code:
    1. var x,m,n,s,p,z: real;
    2. i:=1;


    Пишете
    VB Code:
    1. DIM x, m, n, s, p, z, i AS INTEGER


    Для результата заводите три текстбокса на форме и отправляете туда m*p, n*p, s*p.
    Точно не помню как это делается, но что то типа:
    VB Code:
    1. TextBox1.Text = "з/p 1-го = " + STR$(m * p)


    Короче дерзайте, там всё просто.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Кто-нибудь может мне помочь???
    от Afroditajed в разделе Софт
    Ответов: 1
    Последнее сообщение: 29.10.2013, 03:45
  2. Ответов: 0
    Последнее сообщение: 29.05.2013, 13:51
  3. Просьба помочь
    от sergeev в разделе Софт
    Ответов: 3
    Последнее сообщение: 25.10.2012, 02:43
  4. Ответов: 3
    Последнее сообщение: 05.01.2012, 15:34
  5. Ответов: 1
    Последнее сообщение: 01.12.2011, 17:53
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •