Практикум по программированию. Основы. Ввод и вывод. Выполнение плана
From AsIsWiki
(Difference between revisions)
| Line 8: | Line 8: | ||
==Java== | ==Java== | ||
| − | < | + | <source lang="java"> |
import java.util.Scanner; | import java.util.Scanner; | ||
| Line 34: | Line 34: | ||
} | } | ||
} | } | ||
| − | </ | + | </source> |
==C++== | ==C++== | ||
| − | < | + | <source lang="cpp"> |
// g++ 4.2 | // g++ 4.2 | ||
| Line 67: | Line 67: | ||
return 0; | return 0; | ||
} | } | ||
| − | </ | + | </source> |
==Pascal== | ==Pascal== | ||
| − | < | + | <source lang="delphi"> |
program Task04; | program Task04; | ||
var | var | ||
| Line 95: | Line 95: | ||
readln; | readln; | ||
end. | end. | ||
| − | </ | + | </source> |
Revision as of 12:09, 29 February 2016
Contents |
Java
import java.util.Scanner;
public class Task04 {
public static void main(String[] args) {
Scanner in = new Scanner(System.in);
System.out.println();
System.out.println(" Расчет процента выполнения плана");
System.out.println("----------------------------------");
System.out.print(" Введите плановый показатель: ");
double p = in.nextDouble();
System.out.print(" Введите фактический показатель: ");
double f = in.nextDouble();
System.out.println("----------------------------------");
double pr = f / p * 100;
System.out.printf(" Процент выполнения плана: %.2f%%\n", pr);
}
}
C++
// g++ 4.2
#include <iostream>
using namespace std;
int main() {
double p, f;
cout << "\n Расчет процента выполнения плана\n";
cout << "----------------------------------\n";
cout << " Введите плановый показатель: ";
cin >> p;
cout << " Введите фактический показатель: ";
cin >> f;
cout << "----------------------------------\n";
double pr = f / p * 100;
printf(" Процент выполнения плана: %.2f%%\n\n", pr);
return 0;
}
Pascal
program Task04;
var
p, f, pr: real;
begin
writeln;
writeln(' Расчет процента выполнения плана');
writeln('----------------------------------');
write(' Введите плановый показатель: ');
readln(p);
write(' Введите фактический показатель: ');
readln(f);
writeln('----------------------------------');
pr := f / p * 100;
writeln(' Процент выполнения плана: ', pr:0:2, '%');
readln;
end.